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.adb | |
| parent | 99ea64c2c914608d3429e63845f8ed396b234dd7 (diff) | |
Some more bindings
Diffstat (limited to 'src/fltk_binding/fltk-widget-group.adb')
| -rw-r--r-- | src/fltk_binding/fltk-widget-group.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/fltk_binding/fltk-widget-group.adb b/src/fltk_binding/fltk-widget-group.adb index b6db1f9..76414b7 100644 --- a/src/fltk_binding/fltk-widget-group.adb +++ b/src/fltk_binding/fltk-widget-group.adb @@ -63,8 +63,8 @@ package body FLTK.Widget.Group is function Create - (X, Y, W, H : Integer; - Label : String) + (X, Y, W, H : in Integer; + Label : in String) return Group_Type is VP : System.Address; @@ -84,7 +84,7 @@ package body FLTK.Widget.Group is procedure Add - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class) is begin fl_group_add (This.Void_Ptr, Item.Void_Ptr); @@ -94,7 +94,7 @@ package body FLTK.Widget.Group is procedure Clear - (This : Group_Type) is + (This : Group_Type'Class) is begin fl_group_clear (This.Void_Ptr); end Clear; @@ -103,7 +103,7 @@ package body FLTK.Widget.Group is function Find - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class) return Index is begin @@ -114,7 +114,7 @@ package body FLTK.Widget.Group is procedure Insert - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class; Place : Index) is begin @@ -128,7 +128,7 @@ package body FLTK.Widget.Group is procedure Remove - (This : Group_Type; + (This : Group_Type'Class; Item : Widget_Type'Class) is begin fl_group_remove (This.Void_Ptr, Item.Void_Ptr); @@ -138,7 +138,7 @@ package body FLTK.Widget.Group is procedure Remove - (This : Group_Type; + (This : Group_Type'Class; Place : Index) is begin fl_group_remove2 (This.Void_Ptr, Interfaces.C.int (Place)); |