diff options
Diffstat (limited to 'src/editor_windows.ads')
| -rw-r--r-- | src/editor_windows.ads | 37 |
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; |