blob: c0bb80300c8a1c585355099c1f362116c4a478a9 (
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
|
// included by gtk2.pas
{$IFDEF read_forward_definitions}
{$ENDIF read_forward_definitions}
//------------------------------------------------------------------------------
{$IFDEF read_interface_types}
// internal type
PGtkEditable = pointer;
{ signals }
{ vtable }
PGtkEditableClass = ^TGtkEditableClass;
TGtkEditableClass = record
base_iface : TGTypeInterface;
insert_text : procedure (editable:PGtkEditable; text:Pgchar; length:gint; position:Pgint); cdecl;
delete_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
changed : procedure (editable:PGtkEditable); cdecl;
do_insert_text : procedure (editable:PGtkEditable; text:Pgchar; length:gint; position:Pgint); cdecl;
do_delete_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
get_chars : function (editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl;
set_selection_bounds : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
get_selection_bounds : function (editable:PGtkEditable; start_pos:Pgint; end_pos:Pgint):gboolean; cdecl;
set_position : procedure (editable:PGtkEditable; position:gint); cdecl;
get_position : function (editable:PGtkEditable):gint; cdecl;
end;
{$ENDIF read_interface_types}
//------------------------------------------------------------------------------
{$IFDEF read_interface_rest}
function GTK_TYPE_EDITABLE : GType;
function GTK_EDITABLE(obj: pointer) : PGtkEditable;
function GTK_EDITABLE_CLASS(vtable : pointer) : PGtkEditableClass;
function GTK_IS_EDITABLE(obj: pointer) : boolean;
function GTK_IS_EDITABLE_CLASS(vtable : pointer) : boolean;
function GTK_EDITABLE_GET_CLASS(inst : pointer) : PGtkEditableClass;
function gtk_editable_get_type:TGtkType; cdecl; external gtklib;
procedure gtk_editable_select_region(editable:PGtkEditable; start:gint; theEnd:gint); cdecl; external gtklib;
function gtk_editable_get_selection_bounds(editable:PGtkEditable; start:Pgint; theEnd:Pgint):gboolean; cdecl; external gtklib;
procedure gtk_editable_insert_text(editable:PGtkEditable; new_text:Pgchar; new_text_length:gint; position:Pgint); cdecl; external gtklib;
procedure gtk_editable_delete_text(editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl; external gtklib;
function gtk_editable_get_chars(editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl; external gtklib;
procedure gtk_editable_cut_clipboard(editable:PGtkEditable); cdecl; external gtklib;
procedure gtk_editable_copy_clipboard(editable:PGtkEditable); cdecl; external gtklib;
procedure gtk_editable_paste_clipboard(editable:PGtkEditable); cdecl; external gtklib;
procedure gtk_editable_delete_selection(editable:PGtkEditable); cdecl; external gtklib;
procedure gtk_editable_set_position(editable:PGtkEditable; position:gint); cdecl; external gtklib;
function gtk_editable_get_position(editable:PGtkEditable):gint; cdecl; external gtklib;
procedure gtk_editable_set_editable(editable:PGtkEditable; is_editable:gboolean); cdecl; external gtklib;
function gtk_editable_get_editable(editable:PGtkEditable):gboolean; cdecl; external gtklib;
{$ENDIF read_interface_rest}
//------------------------------------------------------------------------------
{$IFDEF read_implementation}
function GTK_TYPE_EDITABLE : GType;
begin
GTK_TYPE_EDITABLE:=gtk_editable_get_type;
end;
function GTK_EDITABLE(obj: pointer) : PGtkEditable;
begin
GTK_EDITABLE:=PGtkEditable(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_EDITABLE));
end;
function GTK_EDITABLE_CLASS(vtable : pointer) : PGtkEditableClass;
begin
GTK_EDITABLE_CLASS:=PGtkEditableClass(G_TYPE_CHECK_CLASS_CAST(vtable,GTK_TYPE_EDITABLE));
end;
function GTK_IS_EDITABLE(obj: pointer) : boolean;
begin
GTK_IS_EDITABLE:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_EDITABLE);
end;
function GTK_IS_EDITABLE_CLASS(vtable : pointer) : boolean;
begin
GTK_IS_EDITABLE_CLASS:=G_TYPE_CHECK_CLASS_TYPE(vtable,GTK_TYPE_EDITABLE);
end;
function GTK_EDITABLE_GET_CLASS(inst : pointer) : PGtkEditableClass;
begin
GTK_EDITABLE_GET_CLASS:=PGtkEditableClass(G_TYPE_INSTANCE_GET_INTERFACE(inst,GTK_TYPE_EDITABLE));
end;
{$ENDIF read_implementation}
// included by gtk2.pas
|
