1 files changed, 0 insertions, 121 deletions
diff --git a/src/adapad.ads b/src/adapad.ads
index 45cd6ad..0695315 100644
--- a/src/adapad.ads
+++ b/src/adapad.ads
@@ -1,12 +1,5 @@
 
 
-private with FLTK.Widgets;
-private with FLTK.Widgets.Groups.Windows;
-private with FLTK.Text_Buffers;
-private with Windows.Find;
-private with Windows.Replace;
-
-
 package Adapad is
 
 
@@ -14,119 +7,5 @@ package Adapad is
     procedure Hide;
 
 
-private
-
-
-    --  helper functions
-
-    procedure Set_Title;
-    function Safe_To_Discard return Boolean;
-    procedure Do_Save;
-    procedure Do_Save_As;
-    procedure Load_File (Name : in String);
-    procedure Save_File (Name : in String);
-    procedure Centre (Win : in out FLTK.Widgets.Groups.Windows.Window'Class);
-
-
-    --  callbacks
-
-    type New_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     New_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    New_CB : aliased New_Callback;
-
-
-    type Open_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Open_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Open_CB : aliased Open_Callback;
-
-
-    type Save_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Save_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Save_CB : aliased Save_Callback;
-
-
-    type Save_As_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Save_As_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Save_As_CB : aliased Save_As_Callback;
-
-
-    type Quit_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Quit_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Quit_CB : aliased Quit_Callback;
-
-
-    type Undo_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Undo_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Undo_CB : aliased Undo_Callback;
-
-
-    type Cut_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Cut_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Cut_CB : aliased Cut_Callback;
-
-
-    type Copy_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Copy_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Copy_CB : aliased Copy_Callback;
-
-
-    type Paste_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Paste_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Paste_CB : aliased Paste_Callback;
-
-
-    type Delete_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Delete_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Delete_CB : aliased Delete_Callback;
-
-
-    type Select_All_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Select_All_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Select_All_CB : aliased Select_All_Callback;
-
-
-    type Find_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Find_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Find_CB : aliased Find_Callback;
-
-
-    type Replace_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     Replace_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    Replace_CB : aliased Replace_Callback;
-
-
-    type About_Callback is new FLTK.Widgets.Widget_Callback with null record;
-    overriding procedure Call
-           (This : in     About_Callback;
-            Item : in out FLTK.Widgets.Widget'Class);
-    About_CB : aliased About_Callback;
-
-
 end Adapad;