Refactored draw/handle methods in Widgets hierarchy, improved docs, added a few minor method bindings here and there

1 files changed, 6 insertions, 8 deletions

diff --git a/src/fltk-widgets-groups-windows-single.ads b/src/fltk-widgets-groups-windows-single.ads
index 0dfa262..73b2620 100644
--- a/src/fltk-widgets-groups-windows-single.ads
+++ b/src/fltk-widgets-groups-windows-single.ads
@@ -41,20 +41,18 @@ package FLTK.Widgets.Groups.Windows.Single is
 
 
 
-    procedure Draw
+    procedure Make_Current
            (This : in out Single_Window);
 
-    function Handle
-           (This  : in out Single_Window;
-            Event : in     Event_Kind)
-        return Event_Outcome;
-
 
 private
 
 
     type Single_Window is new Window with null record;
 
+    overriding procedure Initialize
+           (This : in out Single_Window);
+
     overriding procedure Finalize
            (This : in out Single_Window);
 
@@ -72,9 +70,9 @@ private
     pragma Inline (Show);
     pragma Inline (Flush);
 
-    pragma Inline (Draw);
-    pragma Inline (Handle);
+    pragma Inline (Make_Current);
 
 
 end FLTK.Widgets.Groups.Windows.Single;
 
+