1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
package body Windows.Find is
package WD renames FLTK.Widgets.Groups.Windows.Double;
package IP renames FLTK.Widgets.Inputs;
package BU renames FLTK.Widgets.Buttons;
package EN renames FLTK.Widgets.Buttons.Enter;
package LC renames FLTK.Widgets.Buttons.Light.Check;
procedure Find_M
(Item : in out FLTK.Widgets.Widget'Class)
is
use type BU.State;
type Find_Window_Access is access all Find_Window;
Dialog : 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);
end if;
end Find_M;
function Create
return Find_Window
is
My_Width : constant Integer := 350;
My_Height : constant Integer := 130;
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_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;
Case_Margin_Left : constant Integer := 50;
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.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
This.Add (This.Find_What);
This.Add (This.Match_Case);
This.Add (This.Cancel);
This.Cancel.Set_Callback (Hide_CB'Access);
This.Add (This.Start);
This.Start.Set_Callback (Find_M'Access);
This.Set_Icon (Logo);
This.Set_Callback (Hide_CB'Access);
This.Set_Modal;
end return;
end Create;
procedure Set_Find_Callback
(This : in out Find_Window;
Func : in Find_Callback) is
begin
This.Callback := Func;
end Set_Find_Callback;
procedure Do_Callback
(This : in Find_Window;
Dir : in Direction := Forward)
is
use type BU.State;
begin
if This.Callback /= null then
This.Callback.all
(This.Find_What.Get_Value,
This.Match_Case.Get_State = BU.On,
Dir);
end if;
end Do_Callback;
end Windows.Find;
|
