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 | cbe99e357fff28fb6aa3db7bec03756385c8928c (patch) | |
tree | 2255471124999be1105e6bb71686fba79bcb4864 /fltk-widget-group.adb | |
parent | a3a475cc6a88e7fbd5d55cbca3dd517c0d34b260 (diff) |
Some more bindings
Diffstat (limited to 'fltk-widget-group.adb')
-rw-r--r-- | fltk-widget-group.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/fltk-widget-group.adb b/fltk-widget-group.adb index b6db1f9..76414b7 100644 --- a/fltk-widget-group.adb +++ b/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)); |