1 files changed, 2 insertions, 9 deletions
diff --git a/src/windows.ads b/src/windows.ads
index 3144bba..b187b7b 100644
--- a/src/windows.ads
+++ b/src/windows.ads
@@ -13,15 +13,8 @@ package Windows is
 private
 
 
-    type Hide_Callback is new FLTK.Widgets.Widget_Callback with null record;
-
-
-    overriding procedure Call
-           (This : in     Hide_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-
-
-    Hide_CB : aliased Hide_Callback;
+    procedure Hide_CB
+           (Item : in out FLTK.Widgets.Widget'Class);
 
 
 end Windows;