blob: cb5b9666e0ab0dc21f7a6a7447d9e5b28e4c60a8 (
plain)
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
|
package FLTK.Dialogs is
procedure Alert
(Message : String);
type Choice is (First, Second, Third);
function Three_Way_Choice
(Message, Button1, Button2, Button3 : in String)
return Choice;
function File_Chooser
(Message, Filter_Pattern, Default : in String;
Relative : in Boolean := False)
return String;
function Text_Input
(Message : in String;
Default : in String := "")
return String;
procedure Message_Box
(Message : in String);
end FLTK.Dialogs;
|