Draw method implemented for all Window subpackages

1 files changed, 8 insertions, 0 deletions

diff --git a/src/fltk-widgets-groups-windows-single.ads b/src/fltk-widgets-groups-windows-single.ads
index 07a2bca..32b5c65 100644
--- a/src/fltk-widgets-groups-windows-single.ads
+++ b/src/fltk-widgets-groups-windows-single.ads
@@ -28,6 +28,10 @@ package FLTK.Widgets.Groups.Windows.Single is
 private
 
 
+    procedure Draw
+           (This : in out Single_Window);
+
+
     type Single_Window is new Window with null record;
 
 
@@ -35,5 +39,9 @@ private
            (This : in out Single_Window);
 
 
+    package Single_Window_Convert is new System.Address_To_Access_Conversions
+           (Single_Window'Class);
+
+
 end FLTK.Widgets.Groups.Windows.Single;