1 files changed, 3 insertions, 6 deletions
diff --git a/src/fltk-widgets-groups-windows-double-cairo.ads b/src/fltk-widgets-groups-windows-double-cairo.ads
index 111f7ac..02a1dbf 100644
--- a/src/fltk-widgets-groups-windows-double-cairo.ads
+++ b/src/fltk-widgets-groups-windows-double-cairo.ads
@@ -65,11 +65,6 @@ package FLTK.Widgets.Groups.Windows.Double.Cairo is
     procedure Draw
            (This : in out Cairo_Window);
 
-    function Handle
-           (This  : in out Cairo_Window;
-            Event : in     Event_Kind)
-        return Event_Outcome;
-
 
 private
 
@@ -78,6 +73,9 @@ private
         My_Func : Cairo_Callback;
     end record;
 
+    overriding procedure Initialize
+           (This : in out Cairo_Window);
+
     overriding procedure Finalize
            (This : in out Cairo_Window);
 
@@ -93,7 +91,6 @@ private
     pragma Inline (Set_Cairo_Draw);
 
     pragma Inline (Draw);
-    pragma Inline (Handle);
 
 
 end FLTK.Widgets.Groups.Windows.Double.Cairo;