diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2016-05-25 13:01:38 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2016-05-25 13:01:38 +1000 |
| commit | ed6fcd873aad9e574de0b2c6311d1c4404cb76dc (patch) | |
| tree | 07ce5ec68c47b812e3ad0ef1b1b73d3b8fe897b0 /src/fltk_binding/fltk-widget-group.ads | |
| parent | 99ea64c2c914608d3429e63845f8ed396b234dd7 (diff) | |
Some more bindings
Diffstat (limited to 'src/fltk_binding/fltk-widget-group.ads')
| -rw-r--r-- | src/fltk_binding/fltk-widget-group.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/fltk_binding/fltk-widget-group.ads b/src/fltk_binding/fltk-widget-group.ads index 689d798..d71f76c 100644 --- a/src/fltk_binding/fltk-widget-group.ads +++ b/src/fltk_binding/fltk-widget-group.ads @@ -14,33 +14,33 @@ package FLTK.Widget.Group is procedure Add - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class); procedure Clear - (This : Group_Type); + (This : Group_Type'Class); function Find - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class) return Index; procedure Insert - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class; Place : Index); procedure Remove - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class); procedure Remove - (This : Group_Type; + (This : Group_Type'Class; Place : Index); |