diff options
Diffstat (limited to 'spec/fltk-widgets-groups.ads')
| -rw-r--r-- | spec/fltk-widgets-groups.ads | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/spec/fltk-widgets-groups.ads b/spec/fltk-widgets-groups.ads index 33c0cb3..9532084 100644 --- a/spec/fltk-widgets-groups.ads +++ b/spec/fltk-widgets-groups.ads @@ -53,6 +53,8 @@ package FLTK.Widgets.Groups is + -- Contents Modification -- + procedure Add (This : in out Group; Item : in out Widget'Class); @@ -81,6 +83,8 @@ package FLTK.Widgets.Groups is + -- Contents Query -- + function Has_Child (This : in Group; Place : in Index) @@ -113,6 +117,8 @@ package FLTK.Widgets.Groups is + -- Iteration -- + package Group_Iterators is new Ada.Iterator_Interfaces (Cursor, Has_Child); @@ -123,6 +129,8 @@ package FLTK.Widgets.Groups is + -- Clipping -- + function Get_Clip_Mode (This : in Group) return Clip_Mode; @@ -134,6 +142,8 @@ package FLTK.Widgets.Groups is + -- Dimensions -- + procedure Add_Resizable (This : in out Group; Item : in out Widget'Class); @@ -156,6 +166,8 @@ package FLTK.Widgets.Groups is + -- Current -- + function Get_Current return access Group'Class; @@ -171,6 +183,8 @@ package FLTK.Widgets.Groups is + -- Drawing, Events -- + procedure Draw (This : in out Group); |