blob: 153825f4e13e4ba08fc86c512ade43df9a78fd2b (
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
|
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);
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);
end FLTK.Tooltips;
|