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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
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);
type RGB_Float is new Long_Float range 0.0 .. 1.0;
type RGB_Int is mod 256;
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 RGB_Float;
Mode : in FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
FLTK.Widgets.Groups.Color_Choosers.RGB)
return Boolean;
function Color_Chooser
(Title : in String;
R, G, B : in out RGB_Int;
Mode : in FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
FLTK.Widgets.Groups.Color_Choosers.RGB)
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_Reference;
procedure Set_Message_Title
(To : in String);
procedure Set_Message_Title_Default
(To : in String);
private
Icon_Box : aliased FLTK.Widgets.Boxes.Box;
pragma Inline (Alert);
-- pragma Inline (Ask);
pragma Inline (Beep);
pragma Inline (Three_Way_Choice);
pragma Inline (Text_Input);
pragma Inline (Message_Box);
pragma Inline (Password);
pragma Inline (Color_Chooser);
pragma Inline (Dir_Chooser);
pragma Inline (File_Chooser);
pragma Inline (Get_Hotspot);
pragma Inline (Set_Hotspot);
pragma Inline (Set_Message_Font);
pragma Inline (Get_Message_Icon);
pragma Inline (Set_Message_Title);
pragma Inline (Set_Message_Title_Default);
end FLTK.Dialogs;
|
