From f28f819c721fa5a317e23b3cc1eefb938115b47a Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Wed, 5 Oct 2016 15:44:17 +1100
Subject: Added logo, made find/replace/about windows attention grabbing

---
 fltk-widgets.ads | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'fltk-widgets.ads')

diff --git a/fltk-widgets.ads b/fltk-widgets.ads
index 05bba29..e692a65 100644
--- a/fltk-widgets.ads
+++ b/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;
 
 
-- 
cgit