src/fltk-tooltips.ads


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


--  Programmed by Jedidiah Barber
--  Released into the public domain


with

    FLTK.Widgets;


package FLTK.Tooltips is


    function Get_Target
        return access FLTK.Widgets.Widget'Class;

    procedure Set_Target
           (To : in FLTK.Widgets.Widget'Class);

    function Is_Enabled
        return Boolean;

    procedure Set_Enabled
           (To : in Boolean := True);

    procedure Disable;

    procedure Enter_Area
           (Item       : in FLTK.Widgets.Widget'Class;
            X, Y, W, H : in Integer;
            Tip        : in String);


    function Get_Delay
        return Float;

    procedure Set_Delay
           (To : in Float);

    function Get_Hover_Delay
        return Float;

    procedure Set_Hover_Delay
           (To : in Float);


    function Get_Background_Color
        return Color;

    procedure Set_Background_Color
           (To : in Color);

    function Get_Margin_Height
        return Natural;

    procedure Set_Margin_Height
           (To : in Natural);

    function Get_Margin_Width
        return Natural;

    procedure Set_Margin_Width
           (To : in Natural);

    function Get_Wrap_Width
        return Natural;

    procedure Set_Wrap_Width
           (To : in Natural);


    function Get_Text_Color
        return Color;

    procedure Set_Text_Color
           (To : in Color);

    function Get_Text_Font
        return Font_Kind;

    procedure Set_Text_Font
           (To : in Font_Kind);

    function Get_Text_Size
        return Font_Size;

    procedure Set_Text_Size
           (To : in Font_Size);


private


    pragma Inline (Get_Target);
    pragma Inline (Set_Target);
    pragma Inline (Is_Enabled);
    pragma Inline (Set_Enabled);
    pragma Inline (Disable);
    pragma Inline (Enter_Area);

    pragma Inline (Get_Delay);
    pragma Inline (Set_Delay);
    pragma Inline (Get_Hover_Delay);
    pragma Inline (Set_Hover_Delay);

    pragma Inline (Get_Background_Color);
    pragma Inline (Set_Background_Color);
    pragma Inline (Get_Margin_Height);
    pragma Inline (Set_Margin_Height);
    pragma Inline (Get_Margin_Width);
    pragma Inline (Set_Margin_Width);
    pragma Inline (Get_Wrap_Width);
    pragma Inline (Set_Wrap_Width);

    pragma Inline (Get_Text_Color);
    pragma Inline (Set_Text_Color);
    pragma Inline (Get_Text_Font);
    pragma Inline (Set_Text_Font);
    pragma Inline (Get_Text_Size);
    pragma Inline (Set_Text_Size);


end FLTK.Tooltips;