Find/Replace window appearance added

1 files changed, 25 insertions, 12 deletions

diff --git a/src/editor_windows.ads b/src/editor_windows.ads
index d90b696..6fede6d 100644
--- a/src/editor_windows.ads
+++ b/src/editor_windows.ads
@@ -64,6 +64,9 @@ package Editor_Windows is
     type About_Window is new Double_Window with private;
 
 
+    function Create return About_Window;
+
+
     function Create
            (X, Y, W, H : in Integer;
             Label_Text : in String)
@@ -80,6 +83,9 @@ package Editor_Windows is
     type Find_Window is new Double_Window with private;
 
 
+    function Create return Find_Window;
+
+
     function Create
            (X, Y, W, H : in Integer;
             Label_Text : in String)
@@ -91,7 +97,9 @@ package Editor_Windows is
         return Find_Window;
 
 
-    procedure Reset (This : in out Find_Window);
+    procedure Set_Function
+           (This : in out Find_Window;
+            Func : access procedure (Item : in String));
 
 
 
@@ -99,6 +107,9 @@ package Editor_Windows is
     type Replace_Window is new Double_Window with private;
 
 
+    function Create return Replace_Window;
+
+
     function Create
            (X, Y, W, H : in Integer;
             Label_Text : in String)
@@ -110,7 +121,9 @@ package Editor_Windows is
         return Replace_Window;
 
 
-    procedure Reset (This : in out Replace_Window);
+    procedure Set_Function
+           (This : in out Replace_Window;
+            Func : access procedure (Item : in String));
 
 
 private
@@ -150,21 +163,21 @@ private
 
     type Find_Window is new Double_Window with
         record
-            --  Find_What : Input;
-            --  Match_Case : Check_Button;
-            --  Cancel : Button;
-            --  Start : Enter_Button;
-            Placeholder : Integer;
+            Find_What  : Input;
+            Match_Case : Check_Button;
+            Cancel     : Button;
+            Start      : Enter_Button;
+            --  callback
         end record;
 
 
     type Replace_Window is new Double_Window with
         record
-            --  Find_What, Replace_With : Input;
-            --  Match_Case, Replace_All : Check_Button;
-            --  Cancel : Button;
-            --  Start : Enter_Button;
-            Placeholder : Integer;
+            Find_What, Replace_With : Input;
+            Match_Case, Replace_All : Check_Button;
+            Cancel : Button;
+            Start : Enter_Button;
+            --  callback
         end record;