From 68f7afe50933c1339ac86407e99799d74250d4fd Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 24 May 2017 23:56:17 +1000 Subject: Several more Widget methods added --- src/fltk-widgets.ads | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'src/fltk-widgets.ads') diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index 46e0c4c..f4d0280 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -49,11 +49,40 @@ package FLTK.Widgets is return Boolean; + procedure Clear_Active + (This : in out Widget); + + + function Has_Changed + (This : in Widget) + return Boolean; + + + procedure Clear_Changed + (This : in out Widget); + + function Parent (This : in Widget) return access FLTK.Widgets.Groups.Group'Class; + function Contains + (This : in Widget; + Item : in Widget'Class) + return Boolean; + + + function Get_Alignment + (This : in Widget) + return Alignment; + + + procedure Set_Alignment + (This : in out Widget; + New_Align : in Alignment); + + function Get_Box (This : in Widget) return Box_Kind; @@ -104,6 +133,11 @@ package FLTK.Widgets is Label : in Label_Kind); + function Get_Callback + (This : in Widget) + return Widget_Callback; + + procedure Set_Callback (This : in out Widget; Func : in Widget_Callback); -- cgit