diff options
Diffstat (limited to 'src/windows-find.adb')
| -rw-r--r-- | src/windows-find.adb | 72 |
1 files changed, 35 insertions, 37 deletions
diff --git a/src/windows-find.adb b/src/windows-find.adb index ea6a807..92b4663 100644 --- a/src/windows-find.adb +++ b/src/windows-find.adb @@ -18,13 +18,13 @@ package body Windows.Find is is use type BU.State; type Find_Window_Access is access all Find_Window; - Dialog : access Find_Window := Find_Window_Access (Item.Parent); + Dialog : constant access Find_Window := Find_Window_Access (Item.Parent); begin if Dialog.Callback /= null then Dialog.Callback.all - (Dialog.Find_What.Get_Value, - Dialog.Match_Case.Get_State = BU.On, - Forward); + (Dialog.Find_What.Get_Value, + Dialog.Match_Case.Get_State = BU.On, + Forward); end if; end Find_M; @@ -34,43 +34,42 @@ package body Windows.Find is function Create return Find_Window is - My_Width : constant Integer := 350; - My_Height : constant Integer := 130; + My_Width : constant Integer := 350; + My_Height : constant Integer := 130; - Button_Width : constant Integer := 140; - Button_Height : constant Integer := 40; + Button_Width : constant Integer := 140; + Button_Height : constant Integer := 40; - Input_Line : constant Integer := 10; - Case_Line : constant Integer := 50; - Button_Line : constant Integer := 80; + Input_Line : constant Integer := 10; + Case_Line : constant Integer := 50; + Button_Line : constant Integer := 80; - Input_Width : constant Integer := 240; - Input_Height : constant Integer := 25; + Input_Width : constant Integer := 240; + Input_Height : constant Integer := 25; Input_Margin_Right : constant Integer := 10; - Check_Width : constant Integer := 100; - Check_Height : constant Integer := 20; + Check_Width : constant Integer := 100; + Check_Height : constant Integer := 20; Case_Margin_Left : constant Integer := 50; - Text_Size : constant Integer := 12; + Text_Size : constant Integer := 12; begin return This : Find_Window := - (WD.Double_Window'(WD.Forge.Create (0, 0, My_Width, My_Height, "Find")) with - - Find_What => IP.Text_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.Forge.Create - (Case_Margin_Left, Case_Line, Check_Width, Check_Height, "Match case")), - Cancel => BU.Button'(BU.Forge.Create - ((My_Width - 2 * Button_Width) / 3, - Button_Line, Button_Width, Button_Height, "Cancel")), - Start => EN.Enter_Button'(EN.Forge.Create - ((My_Width - 2 * Button_Width) * 2 / 3 + Button_Width, - Button_Line, Button_Width, Button_Height, "Find")), - - Callback => null) do - + (WD.Forge.Create (0, 0, My_Width, My_Height, "Find") + with + Find_What => IP.Forge.Create + (My_Width - Input_Width - Input_Margin_Right, + Input_Line, Input_Width, Input_Height, "Find what:"), + Match_Case => LC.Forge.Create + (Case_Margin_Left, Case_Line, Check_Width, Check_Height, "Match case"), + Cancel => BU.Forge.Create + ((My_Width - 2 * Button_Width) / 3, + Button_Line, Button_Width, Button_Height, "Cancel"), + Start => EN.Forge.Create + ((My_Width - 2 * Button_Width) * 2 / 3 + Button_Width, + Button_Line, Button_Width, Button_Height, "Find"), + Callback => null) + do This.Add (This.Find_What); This.Add (This.Match_Case); This.Add (This.Cancel); @@ -96,8 +95,6 @@ package body Windows.Find is end Set_Find_Callback; - - procedure Do_Callback (This : in Find_Window; Dir : in Direction := Forward) @@ -106,12 +103,13 @@ package body Windows.Find is begin if This.Callback /= null then This.Callback.all - (This.Find_What.Get_Value, - This.Match_Case.Get_State = BU.On, - Dir); + (This.Find_What.Get_Value, + This.Match_Case.Get_State = BU.On, + Dir); end if; end Do_Callback; end Windows.Find; + |