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.adb | |
parent | 3b643fb37910c216d921e742ae30471606093ed9 (diff) |
Added logo, made find/replace/about windows attention grabbing
Diffstat (limited to 'src/fltk_binding/fltk-widgets.adb')
-rw-r--r-- | src/fltk_binding/fltk-widgets.adb | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/fltk_binding/fltk-widgets.adb b/src/fltk_binding/fltk-widgets.adb index 0a159c7..c6ab5c0 100644 --- a/src/fltk_binding/fltk-widgets.adb +++ b/src/fltk_binding/fltk-widgets.adb @@ -5,6 +5,7 @@ with Interfaces.C.Strings; with System; with System.Address_To_Access_Conversions; with FLTK.Widgets.Groups; use FLTK.Widgets.Groups; +with FLTK.Images; use type System.Address; @@ -105,6 +106,10 @@ package body FLTK.Widgets is X, Y : in Interfaces.C.int); pragma Import (C, fl_widget_position, "fl_widget_position"); + procedure fl_widget_set_image + (W, I : in System.Address); + pragma Import (C, fl_widget_set_image, "fl_widget_set_image"); + @@ -319,5 +324,28 @@ package body FLTK.Widgets is end Reposition; + + + function Get_Image + (This : in Widget) + return access FLTK.Images.Image'Class is + begin + return This.Current_Image; + end Get_Image; + + + + + procedure Set_Image + (This : in out Widget; + Pic : in out FLTK.Images.Image'Class) is + begin + This.Current_Image := Pic'Unchecked_Access; + fl_widget_set_image + (This.Void_Ptr, + Wrapper (Pic).Void_Ptr); + end Set_Image; + + end FLTK.Widgets; |