diff options
Diffstat (limited to 'src/windows-find.adb')
-rw-r--r-- | src/windows-find.adb | 59 |
1 files changed, 19 insertions, 40 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index 2096436..02698da 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -33,38 +33,38 @@ package body Windows.Find is function Create return Find_Window is - My_Width : Integer := 350; - My_Height : Integer := 130; + My_Width : constant Integer := 350; + My_Height : constant Integer := 130; - Button_Width : Integer := 140; - Button_Height : Integer := 40; + Button_Width : constant Integer := 140; + Button_Height : constant Integer := 40; - Input_Line : Integer := 10; - Case_Line : Integer := 50; - Button_Line : Integer := 80; + Input_Line : constant Integer := 10; + Case_Line : constant Integer := 50; + Button_Line : constant Integer := 80; - Input_Width : Integer := 240; - Input_Height : Integer := 25; - Input_Margin_Right : Integer := 10; + Input_Width : constant Integer := 240; + Input_Height : constant Integer := 25; + Input_Margin_Right : constant Integer := 10; - Check_Width : Integer := 100; - Check_Height : Integer := 20; - Case_Margin_Left : Integer := 50; + Check_Width : constant Integer := 100; + Check_Height : constant Integer := 20; + Case_Margin_Left : constant Integer := 50; - Text_Size : Integer := 12; + Text_Size : constant Integer := 12; begin return This : Find_Window := - (WD.Double_Window'(WD.Create (0, 0, My_Width, My_Height, "Find")) with + (WD.Double_Window'(WD.Forge.Create (0, 0, My_Width, My_Height, "Find")) with - Find_What => IP.Input'(IP.Create + Find_What => IP.Input'(IP.Forge.Create (My_Width - Input_Width - Input_Margin_Right, Input_Line, Input_Width, Input_Height, "Find what:")), - Match_Case => LC.Check_Button'(LC.Create + Match_Case => LC.Check_Button'(LC.Forge.Create (Case_Margin_Left, Case_Line, Check_Width, Check_Height, "Match case")), - Cancel => BU.Button'(BU.Create + Cancel => BU.Button'(BU.Forge.Create ((My_Width - 2 * Button_Width) / 3, Button_Line, Button_Width, Button_Height, "Cancel")), - Start => EN.Enter_Button'(EN.Create + Start => EN.Enter_Button'(EN.Forge.Create ((My_Width - 2 * Button_Width) * 2 / 3 + Button_Width, Button_Line, Button_Width, Button_Height, "Find")), @@ -87,27 +87,6 @@ package body Windows.Find is - function Create - (X, Y, W, H : in Integer; - Label_Text : in String) - return Find_Window is - begin - return Create; - end Create; - - - - - function Create - (W, H : in Integer) - return Find_Window is - begin - return Create; - end Create; - - - - procedure Set_Find_Callback (This : in out Find_Window; Func : in Find_Callback) is |