diff options
Diffstat (limited to 'src/fltk.ads')
| -rw-r--r-- | src/fltk.ads | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/fltk.ads b/src/fltk.ads index d825f5e..757eaf7 100644 --- a/src/fltk.ads +++ b/src/fltk.ads @@ -21,7 +21,12 @@ package FLTK is type Color is new Natural; - type Alignment is new Natural; + type Alignment is private; + Align_Center : constant Alignment; + Align_Top : constant Alignment; + Align_Bottom : constant Alignment; + Align_Left : constant Alignment; + Align_Right : constant Alignment; type Shortcut_Key is private; @@ -183,6 +188,14 @@ private (This : in out Wrapper); + type Alignment is new Interfaces.Unsigned_16; + Align_Center : constant Alignment := 0; + Align_Top : constant Alignment := 1; + Align_Bottom : constant Alignment := 2; + Align_Left : constant Alignment := 4; + Align_Right : constant Alignment := 8; + + type Modifier_Key is new Interfaces.Unsigned_8; |