diff options
Diffstat (limited to 'body/fltk-widgets.adb')
| -rw-r--r-- | body/fltk-widgets.adb | 65 |
1 files changed, 60 insertions, 5 deletions
diff --git a/body/fltk-widgets.adb b/body/fltk-widgets.adb index 87ae432..8bc5c86 100644 --- a/body/fltk-widgets.adb +++ b/body/fltk-widgets.adb @@ -66,6 +66,8 @@ package body FLTK.Widgets is -- Functions From C -- ------------------------ + -- Allocation -- + function new_fl_widget (X, Y, W, H : in Interfaces.C.int; Text : in Interfaces.C.char_array) @@ -81,6 +83,8 @@ package body FLTK.Widgets is + -- Activity -- + procedure fl_widget_activate (W : in Storage.Integer_Address); pragma Import (C, fl_widget_activate, "fl_widget_activate"); @@ -116,6 +120,8 @@ package body FLTK.Widgets is + -- Changed and Output -- + function fl_widget_changed (W : in Storage.Integer_Address) return Interfaces.C.unsigned; @@ -151,6 +157,8 @@ package body FLTK.Widgets is + -- Visibility -- + function fl_widget_visible (W : in Storage.Integer_Address) return Interfaces.C.int; @@ -186,6 +194,8 @@ package body FLTK.Widgets is + -- Focus -- + function fl_widget_get_visible_focus (W : in Storage.Integer_Address) return Interfaces.C.int; @@ -223,6 +233,8 @@ package body FLTK.Widgets is + -- Colors -- + function fl_widget_get_color (W : in Storage.Integer_Address) return Interfaces.C.unsigned; @@ -256,6 +268,8 @@ package body FLTK.Widgets is + -- Relatives -- + function fl_widget_get_parent (W : in Storage.Integer_Address) return Storage.Integer_Address; @@ -296,6 +310,8 @@ package body FLTK.Widgets is + -- Alignment, Box, Tooltip -- + function fl_widget_get_align (W : in Storage.Integer_Address) return Interfaces.C.unsigned; @@ -335,6 +351,8 @@ package body FLTK.Widgets is + -- Labels -- + function fl_widget_get_label (W : in Storage.Integer_Address) return Interfaces.C.Strings.chars_ptr; @@ -398,6 +416,8 @@ package body FLTK.Widgets is + -- Callbacks -- + procedure fl_widget_set_callback (W, C : in Storage.Integer_Address); pragma Import (C, fl_widget_set_callback, "fl_widget_set_callback"); @@ -423,6 +443,8 @@ package body FLTK.Widgets is + -- Dimensions -- + function fl_widget_get_x (W : in Storage.Integer_Address) return Interfaces.C.int; @@ -468,6 +490,8 @@ package body FLTK.Widgets is + -- Images -- + procedure fl_widget_set_image (W, I : in Storage.Integer_Address); pragma Import (C, fl_widget_set_image, "fl_widget_set_image"); @@ -481,6 +505,8 @@ package body FLTK.Widgets is + -- Damage, Drawing, Events -- + function fl_widget_damage (W : in Storage.Integer_Address) return Interfaces.C.unsigned_char; @@ -584,6 +610,8 @@ package body FLTK.Widgets is + -- Miscellaneous -- + function fl_widget_use_accents_menu (W : in Storage.Integer_Address) return Interfaces.C.int; @@ -692,11 +720,11 @@ package body FLTK.Widgets is begin return This : Widget do This.Void_Ptr := new_fl_widget - (Interfaces.C.int (X), - Interfaces.C.int (Y), - Interfaces.C.int (W), - Interfaces.C.int (H), - Interfaces.C.To_C (Text)); + (Interfaces.C.int (X), + Interfaces.C.int (Y), + Interfaces.C.int (W), + Interfaces.C.int (H), + Interfaces.C.To_C (Text)); Extra_Init (This, X, Y, W, H, Text); end return; end Create; @@ -722,6 +750,8 @@ package body FLTK.Widgets is -- API Subprograms -- ----------------------- + -- Activity -- + procedure Activate (This : in out Widget) is begin @@ -780,6 +810,8 @@ package body FLTK.Widgets is + -- Changed and Output -- + function Has_Changed (This : in Widget) return Boolean is @@ -850,6 +882,8 @@ package body FLTK.Widgets is + -- Visibility -- + function Is_Visible (This : in Widget) return Boolean is @@ -908,6 +942,8 @@ package body FLTK.Widgets is + -- Focus -- + function Has_Visible_Focus (This : in Widget) return Boolean is @@ -956,6 +992,8 @@ package body FLTK.Widgets is + -- Colors -- + function Get_Background_Color (This : in Widget) return Color is @@ -1001,6 +1039,8 @@ package body FLTK.Widgets is + -- Relatives -- + function Parent (This : in Widget) return access FLTK.Widgets.Groups.Group'Class @@ -1101,6 +1141,8 @@ package body FLTK.Widgets is + -- Alignment, Box, Tooltip -- + function Get_Alignment (This : in Widget) return Alignment is @@ -1164,6 +1206,8 @@ package body FLTK.Widgets is + -- Labels -- + function Get_Label (This : in Widget) return String @@ -1279,6 +1323,8 @@ package body FLTK.Widgets is + -- Callbacks -- + function Get_Callback (This : in Widget) return Widget_Callback is @@ -1344,6 +1390,8 @@ package body FLTK.Widgets is + -- Dimensions -- + function Get_X (This : in Widget) return Integer is @@ -1413,6 +1461,8 @@ package body FLTK.Widgets is + -- Images -- + function Get_Image (This : in Widget) return access FLTK.Images.Image'Class is @@ -1453,6 +1503,8 @@ package body FLTK.Widgets is + -- Damage, Drawing, Events -- + function Is_Damaged (This : in Widget) return Boolean is @@ -1650,6 +1702,8 @@ package body FLTK.Widgets is + -- Miscellaneous -- + function Uses_Accents_Menu (This : in Widget) return Boolean is @@ -1660,3 +1714,4 @@ package body FLTK.Widgets is end FLTK.Widgets; + |