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

1 files changed, 4 insertions, 6 deletions

diff --git a/src/fltk-widgets-clocks.ads b/src/fltk-widgets-clocks.ads
index 5117fb1..33edf37 100644
--- a/src/fltk-widgets-clocks.ads
+++ b/src/fltk-widgets-clocks.ads
@@ -72,17 +72,15 @@ package FLTK.Widgets.Clocks is
            (This       : in out Clock;
             X, Y, W, H : in     Integer);
 
-    function Handle
-           (This  : in out Clock;
-            Event : in     Event_Kind)
-        return Event_Outcome;
-
 
 private
 
 
     type Clock is new Widget with null record;
 
+    overriding procedure Initialize
+           (This : in out Clock);
+
     overriding procedure Finalize
            (This : in out Clock);
 
@@ -105,8 +103,8 @@ private
     pragma Inline (Set_Time);
 
     pragma Inline (Draw);
-    pragma Inline (Handle);
 
 
 end FLTK.Widgets.Clocks;
 
+