blob: 786a6870e9c2633e3024c8a7030702d1bc1a9661 (
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
138
139
140
141
142
143
144
145
146
147
148
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
{< public > }
{< private > }
PGtkOldEditable = ^TGtkOldEditable;
TGtkOldEditable = record
widget : TGtkWidget;
current_pos : guint;
selection_start_pos : guint;
selection_end_pos : guint;
flag0 : word;
clipboard_text : Pgchar;
end;
TGtkTextFunction = procedure (editable:PGtkOldEditable; time:guint32); cdecl;
{ Bindings actions }
{ Virtual functions. get_chars is in paricular not a signal because
it returns malloced memory. The others are not signals because
they would not be particularly useful as such. (All changes to
selection and position do not go through these functions)
}
PGtkOldEditableClass = ^TGtkOldEditableClass;
TGtkOldEditableClass = record
parent_class : TGtkWidgetClass;
activate : procedure (editable:PGtkOldEditable); cdecl;
set_editable : procedure (editable:PGtkOldEditable; is_editable:gboolean); cdecl;
move_cursor : procedure (editable:PGtkOldEditable; x:gint; y:gint); cdecl;
move_word : procedure (editable:PGtkOldEditable; n:gint); cdecl;
move_page : procedure (editable:PGtkOldEditable; x:gint; y:gint); cdecl;
move_to_row : procedure (editable:PGtkOldEditable; row:gint); cdecl;
move_to_column : procedure (editable:PGtkOldEditable; row:gint); cdecl;
kill_char : procedure (editable:PGtkOldEditable; direction:gint); cdecl;
kill_word : procedure (editable:PGtkOldEditable; direction:gint); cdecl;
kill_line : procedure (editable:PGtkOldEditable; direction:gint); cdecl;
cut_clipboard : procedure (editable:PGtkOldEditable); cdecl;
copy_clipboard : procedure (editable:PGtkOldEditable); cdecl;
paste_clipboard : procedure (editable:PGtkOldEditable); cdecl;
update_text : procedure (editable:PGtkOldEditable; start_pos:gint; end_pos:gint); cdecl;
get_chars : function (editable:PGtkOldEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl;
set_selection : procedure (editable:PGtkOldEditable; start_pos:gint; end_pos:gint); cdecl;
set_position : procedure (editable:PGtkOldEditable; position:gint); cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
const
bm_TGtkOldEditable_has_selection = $1;
bp_TGtkOldEditable_has_selection = 0;
bm_TGtkOldEditable_editable = $2;
bp_TGtkOldEditable_editable = 1;
bm_TGtkOldEditable_visible = $4;
bp_TGtkOldEditable_visible = 2;
function GTK_TYPE_OLD_EDITABLE : GType;
function GTK_OLD_EDITABLE(obj: pointer) : PGtkOldEditable;
function GTK_OLD_EDITABLE_CLASS(klass: pointer) : PGtkOldEditableClass;
function GTK_IS_OLD_EDITABLE(obj: pointer) : boolean;
function GTK_IS_OLD_EDITABLE_CLASS(klass: pointer) : boolean;
function GTK_OLD_EDITABLE_GET_CLASS(obj: pointer) : PGtkOldEditableClass;
function has_selection(var a : TGtkOldEditable) : guint;
procedure set_has_selection(var a : TGtkOldEditable; __has_selection : guint);
function editable(var a : TGtkOldEditable) : guint; overload;
procedure set_editable(var a : TGtkOldEditable; __editable : guint); overload;
function visible(var a : TGtkOldEditable) : guint; overload;
procedure set_visible(var a : TGtkOldEditable; __visible : guint); overload;
function gtk_old_editable_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_old_editable_claim_selection(old_editable:PGtkOldEditable; claim:gboolean; time:guint32); cdecl; external gtklib;
procedure gtk_old_editable_changed(old_editable:PGtkOldEditable); cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_OLD_EDITABLE : GType;
begin
GTK_TYPE_OLD_EDITABLE:=gtk_old_editable_get_type;
end;
function GTK_OLD_EDITABLE(obj: pointer) : PGtkOldEditable;
begin
GTK_OLD_EDITABLE:=PGtkOldEditable(GTK_CHECK_CAST(obj,GTK_TYPE_OLD_EDITABLE));
end;
function GTK_OLD_EDITABLE_CLASS(klass: pointer) : PGtkOldEditableClass;
begin
GTK_OLD_EDITABLE_CLASS:=PGtkOldEditableClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_OLD_EDITABLE));
end;
function GTK_IS_OLD_EDITABLE(obj: pointer) : boolean;
begin
GTK_IS_OLD_EDITABLE:=GTK_CHECK_TYPE(obj,GTK_TYPE_OLD_EDITABLE);
end;
function GTK_IS_OLD_EDITABLE_CLASS(klass: pointer) : boolean;
begin
GTK_IS_OLD_EDITABLE_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_OLD_EDITABLE);
end;
function GTK_OLD_EDITABLE_GET_CLASS(obj: pointer) : PGtkOldEditableClass;
begin
GTK_OLD_EDITABLE_GET_CLASS:=PGtkOldEditableClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_OLD_EDITABLE));
end;
function has_selection(var a : TGtkOldEditable) : guint;
begin
has_selection:=(a.flag0 and bm_TGtkOldEditable_has_selection) shr bp_TGtkOldEditable_has_selection;
end;
procedure set_has_selection(var a : TGtkOldEditable; __has_selection : guint);
begin
a.flag0:=a.flag0 or ((__has_selection shl bp_TGtkOldEditable_has_selection) and bm_TGtkOldEditable_has_selection);
end;
function editable(var a : TGtkOldEditable) : guint;
begin
editable:=(a.flag0 and bm_TGtkOldEditable_editable) shr bp_TGtkOldEditable_editable;
end;
procedure set_editable(var a : TGtkOldEditable; __editable : guint);
begin
a.flag0:=a.flag0 or ((__editable shl bp_TGtkOldEditable_editable) and bm_TGtkOldEditable_editable);
end;
function visible(var a : TGtkOldEditable) : guint;
begin
visible:=(a.flag0 and bm_TGtkOldEditable_visible) shr bp_TGtkOldEditable_visible;
end;
procedure set_visible(var a : TGtkOldEditable; __visible : guint);
begin
a.flag0:=a.flag0 or ((__visible shl bp_TGtkOldEditable_visible) and bm_TGtkOldEditable_visible);
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
