summaryrefslogtreecommitdiff
path: root/src/fltk-dialogs.ads
blob: 0368834ba217d9f9e2e88e1d7c9f07aa32aacb8b (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
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;