blob: fc7b9808e9e9cb82668089a96b7b3e42540ac318 (
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
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
134
135
136
137
|
private with
Interfaces.C.Strings,
System;
package FLTK.Widgets.Inputs is
type Input is new Widget with private;
type Input_Cursor (Data : access Input'Class) is limited null record
with Implicit_Dereference => Data;
package Forge is
function Create
(X, Y, W, H : in Integer;
Text : in String)
return Input;
end Forge;
procedure Copy
(This : in out Input);
procedure Cut
(This : in out Input);
procedure Cut
(This : in out Input;
Num_Bytes : in Integer);
procedure Cut
(This : in out Input;
Start, Finish : in Integer);
procedure Copy_Cuts
(This : in out Input);
function Has_Changed
(This : in Input)
return Boolean;
procedure Clear_Changed
(This : in out Input);
function Is_Readonly
(This : in Input)
return Boolean;
procedure Set_Readonly
(This : in out Input;
To : in Boolean);
function Get_Value
(This : in Input)
return String;
procedure Set_Value
(This : in out Input;
To : in String);
function Get_Text_Color
(This : in Input)
return Color;
procedure Set_Text_Color
(This : in out Input;
To : in Color);
function Get_Text_Font
(This : in Input)
return Font_Kind;
procedure Set_Text_Font
(This : in out Input;
To : in Font_Kind);
function Get_Text_Size
(This : in Input)
return Font_Size;
procedure Set_Text_Size
(This : in out Input;
To : in Font_Size);
procedure Draw
(This : in out Input);
function Handle
(This : in out Input;
Event : in Event_Kind)
return Event_Outcome;
private
type Input is new Widget with record
Was_Changed : Boolean := False;
end record;
overriding procedure Finalize
(This : in out Input);
function fl_input_get_value
(F : in System.Address)
return Interfaces.C.Strings.chars_ptr;
pragma Import (C, fl_input_get_value, "fl_input_get_value");
end FLTK.Widgets.Inputs;
|
