From ed6fcd873aad9e574de0b2c6311d1c4404cb76dc Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 25 May 2016 13:01:38 +1000 Subject: Some more bindings --- src/fltk_binding/fltk-widget-group.ads | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/fltk_binding/fltk-widget-group.ads') 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); -- cgit