diff options
author | Jed Barber <jjbarber@y7mail.com> | 2016-10-05 15:44:17 +1100 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2016-10-05 15:44:17 +1100 |
commit | 116a1589a6b49734f05e5ffdcbe6507470c0da12 (patch) | |
tree | e0ecae0095e9dcfc3c226358967e680236261ba0 /src/fltk_binding/fltk-widgets.ads | |
parent | 3b643fb37910c216d921e742ae30471606093ed9 (diff) |
Added logo, made find/replace/about windows attention grabbing
Diffstat (limited to 'src/fltk_binding/fltk-widgets.ads')
-rw-r--r-- | src/fltk_binding/fltk-widgets.ads | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/src/fltk_binding/fltk-widgets.ads b/src/fltk_binding/fltk-widgets.ads index 05bba29..e692a65 100644 --- a/src/fltk_binding/fltk-widgets.ads +++ b/src/fltk_binding/fltk-widgets.ads @@ -1,6 +1,7 @@ with FLTK.Enums; use FLTK.Enums; +with FLTK.Images; limited with FLTK.Widgets.Groups; private with System; private with System.Address_To_Access_Conversions; @@ -98,12 +99,24 @@ package FLTK.Widgets is procedure Resize (This : in out Widget; W, H : in Integer); procedure Reposition (This : in out Widget; X, Y : in Integer); + + function Get_Image + (This : in Widget) + return access FLTK.Images.Image'Class; + + + procedure Set_Image + (This : in out Widget; + Pic : in out FLTK.Images.Image'Class); + + private type Widget is abstract new Wrapper with record - Callback : access Widget_Callback'Class; + Callback : access Widget_Callback'Class; + Current_Image : access FLTK.Images.Image'Class; end record; |