1 files changed, 38 insertions, 16 deletions
diff --git a/src/editors.ads b/src/editors.ads
index 27d54d7..41e6b07 100644
--- a/src/editors.ads
+++ b/src/editors.ads
@@ -1,41 +1,63 @@
 
 
+with FLTK.Widgets.Groups.Windows;
+use FLTK.Widgets.Groups.Windows;
 with FLTK.Widgets.Groups.Windows.Double;
+use FLTK.Widgets.Groups.Windows.Double;
 with FLTK.Widgets.Inputs;
+use FLTK.Widgets.Inputs;
+with FLTK.Widgets.Buttons;
+use FLTK.Widgets.Buttons;
 with FLTK.Widgets.Buttons.Enter;
+use FLTK.Widgets.Buttons.Enter;
+with FLTK.Widgets.Groups.Text_Displays.Text_Editors;
+use FLTK.Widgets.Groups.Text_Displays.Text_Editors;
+with FLTK.Text_Buffers;
+use FLTK.Text_Buffers;
 
 
 package Editors is
 
 
-    package Windows renames FLTK.Widgets.Groups.Windows;
-
-    type Editor is new Windows.Double.Double_Window with private;
+    type Editor_Window is new Double_Window with private;
 
 
     function Create
            (X, Y, W, H : in Integer;
-            Label      : in String)
-        return Editor;
+            Label_Text : in String)
+        return Editor_Window;
+
+
+    function Create
+           (W, H : in Integer)
+        return Editor_Window;
+
+
+    function Get_Buffer
+           (This : in Editor_Window)
+        return Text_Buffer_Cursor;
+
+
+    procedure Set_Buffer
+           (This : in out Editor_Window;
+            Buff : in out Text_Buffer);
 
 
 private
 
 
-    type Editor is new Windows.Double.Double_Window with
+    type Editor_Window is new Double_Window with
         record
-            Replace_Dialog : Windows.Window;
-            Replace_Find : FLTK.Widgets.Inputs.Input;
-            Replace_With : FLTK.Widgets.Inputs.Input;
-            Replace_All : FLTK.Widgets.Buttons.Button;
-            Replace_Next : FLTK.Widgets.Buttons.Enter.Enter_Button;
-            Replace_Cancel : FLTK.Widgets.Buttons.Button;
+            --Replace_Dialog : Window;
+            --Replace_Find : Input;
+            --Replace_With : Input;
+            --Replace_All : Button;
+            --Replace_Next : Enter_Button;
+            --Replace_Cancel : Button;
+
+            The_Editor : Text_Editor := FLTK.Widgets.Groups.Text_Displays.Text_Editors.Create (0, 30, 640, 370, "AdaPad");
         end record;
 
 
-    overriding procedure Initialize (This : in out Editor);
-    overriding procedure Finalize (This : in out Editor);
-
-
 end Editors;