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
|
with
FLTK.Widgets.Boxes,
FLTK.Widgets.Groups.Color_Choosers;
package FLTK.Dialogs is
type Beep_Kind is
(Default_Beep, Message_Beep, Error_Beep,
Question_Beep, Password_Beep, Notification_Beep);
type Choice is (First, Second, Third);
procedure Alert
(Message : String);
-- function Ask
-- (Message : in String)
-- return Boolean;
procedure Beep
(Kind : in Beep_Kind);
function Three_Way_Choice
(Message, Button1, Button2, Button3 : in String)
return Choice;
function Text_Input
(Message : in String;
Default : in String := "")
return String;
procedure Message_Box
(Message : in String);
function Password
(Message : in String;
Default : in String := "")
return String;
function Color_Chooser
(Title : in String;
R, G, B : in out Long_Float;
Mode : in FLTK.Widgets.Groups.Color_Choosers.Color_Mode)
return Boolean;
function Dir_Chooser
(Message, Default : in String;
Relative : in Boolean := False)
return String;
function File_Chooser
(Message, Filter_Pattern, Default : in String;
Relative : in Boolean := False)
return String;
function Get_Hotspot
return Boolean;
procedure Set_Hotspot
(To : in Boolean);
procedure Set_Message_Font
(Font : in Font_Kind;
Size : in Font_Size);
function Get_Message_Icon
return FLTK.Widgets.Boxes.Box_Cursor;
procedure Set_Message_Title
(To : in String);
procedure Set_Message_Title_Default
(To : in String);
private
Icon_Box : aliased FLTK.Widgets.Boxes.Box;
end FLTK.Dialogs;
|