From 68f7afe50933c1339ac86407e99799d74250d4fd Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 24 May 2017 23:56:17 +1000 Subject: Several more Widget methods added --- src/fltk.ads | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'src/fltk.ads') 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; -- cgit