diff options
Diffstat (limited to 'src/fltk-widgets.ads')
| -rw-r--r-- | src/fltk-widgets.ads | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 46e0c4c..f4d0280 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -49,11 +49,40 @@ package FLTK.Widgets is return Boolean; + procedure Clear_Active + (This : in out Widget); + + + function Has_Changed + (This : in Widget) + return Boolean; + + + procedure Clear_Changed + (This : in out Widget); + + function Parent (This : in Widget) return access FLTK.Widgets.Groups.Group'Class; + function Contains + (This : in Widget; + Item : in Widget'Class) + return Boolean; + + + function Get_Alignment + (This : in Widget) + return Alignment; + + + procedure Set_Alignment + (This : in out Widget; + New_Align : in Alignment); + + function Get_Box (This : in Widget) return Box_Kind; @@ -104,6 +133,11 @@ package FLTK.Widgets is Label : in Label_Kind); + function Get_Callback + (This : in Widget) + return Widget_Callback; + + procedure Set_Callback (This : in out Widget; Func : in Widget_Callback); |