1// included by gtk2.pas
2
3{$IFDEF read_forward_definitions}
4{$ENDIF read_forward_definitions}
5
6//------------------------------------------------------------------------------
7
8{$IFDEF read_interface_types}
9   // internal type
10   PGtkEditable = pointer;
11
12{ signals  }
13{ vtable  }
14   PGtkEditableClass = ^TGtkEditableClass;
15   TGtkEditableClass = record
16        base_iface : TGTypeInterface;
17        insert_text : procedure (editable:PGtkEditable; text:Pgchar; length:gint; position:Pgint); cdecl;
18        delete_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
19        changed : procedure (editable:PGtkEditable); cdecl;
20        do_insert_text : procedure (editable:PGtkEditable; text:Pgchar; length:gint; position:Pgint); cdecl;
21        do_delete_text : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
22        get_chars : function (editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl;
23        set_selection_bounds : procedure (editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl;
24        get_selection_bounds : function (editable:PGtkEditable; start_pos:Pgint; end_pos:Pgint):gboolean; cdecl;
25        set_position : procedure (editable:PGtkEditable; position:gint); cdecl;
26        get_position : function (editable:PGtkEditable):gint; cdecl;
27     end;
28
29{$ENDIF read_interface_types}
30
31//------------------------------------------------------------------------------
32
33{$IFDEF read_interface_rest}
34function GTK_TYPE_EDITABLE : GType;
35function GTK_EDITABLE(obj: pointer) : PGtkEditable;
36function GTK_EDITABLE_CLASS(vtable : pointer) : PGtkEditableClass;
37function GTK_IS_EDITABLE(obj: pointer) : boolean;
38function GTK_IS_EDITABLE_CLASS(vtable : pointer) : boolean;
39function GTK_EDITABLE_GET_CLASS(inst : pointer) : PGtkEditableClass;
40
41
42function gtk_editable_get_type:TGtkType; cdecl; external gtklib;
43procedure gtk_editable_select_region(editable:PGtkEditable; start:gint; theEnd:gint); cdecl; external gtklib;
44function gtk_editable_get_selection_bounds(editable:PGtkEditable; start:Pgint; theEnd:Pgint):gboolean; cdecl; external gtklib;
45procedure gtk_editable_insert_text(editable:PGtkEditable; new_text:Pgchar; new_text_length:gint; position:Pgint); cdecl; external gtklib;
46procedure gtk_editable_delete_text(editable:PGtkEditable; start_pos:gint; end_pos:gint); cdecl; external gtklib;
47function gtk_editable_get_chars(editable:PGtkEditable; start_pos:gint; end_pos:gint):Pgchar; cdecl; external gtklib;
48procedure gtk_editable_cut_clipboard(editable:PGtkEditable); cdecl; external gtklib;
49procedure gtk_editable_copy_clipboard(editable:PGtkEditable); cdecl; external gtklib;
50procedure gtk_editable_paste_clipboard(editable:PGtkEditable); cdecl; external gtklib;
51procedure gtk_editable_delete_selection(editable:PGtkEditable); cdecl; external gtklib;
52procedure gtk_editable_set_position(editable:PGtkEditable; position:gint); cdecl; external gtklib;
53function gtk_editable_get_position(editable:PGtkEditable):gint; cdecl; external gtklib;
54procedure gtk_editable_set_editable(editable:PGtkEditable; is_editable:gboolean); cdecl; external gtklib;
55function gtk_editable_get_editable(editable:PGtkEditable):gboolean; cdecl; external gtklib;
56{$ENDIF read_interface_rest}
57
58//------------------------------------------------------------------------------
59
60{$IFDEF read_implementation}
61function GTK_TYPE_EDITABLE : GType;
62begin
63   GTK_TYPE_EDITABLE:=gtk_editable_get_type;
64end;
65
66function GTK_EDITABLE(obj: pointer) : PGtkEditable;
67begin
68   GTK_EDITABLE:=PGtkEditable(G_TYPE_CHECK_INSTANCE_CAST(obj,GTK_TYPE_EDITABLE));
69end;
70
71function GTK_EDITABLE_CLASS(vtable : pointer) : PGtkEditableClass;
72begin
73   GTK_EDITABLE_CLASS:=PGtkEditableClass(G_TYPE_CHECK_CLASS_CAST(vtable,GTK_TYPE_EDITABLE));
74end;
75
76function GTK_IS_EDITABLE(obj: pointer) : boolean;
77begin
78   GTK_IS_EDITABLE:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GTK_TYPE_EDITABLE);
79end;
80
81function GTK_IS_EDITABLE_CLASS(vtable : pointer) : boolean;
82begin
83   GTK_IS_EDITABLE_CLASS:=G_TYPE_CHECK_CLASS_TYPE(vtable,GTK_TYPE_EDITABLE);
84end;
85
86function GTK_EDITABLE_GET_CLASS(inst : pointer) : PGtkEditableClass;
87begin
88   GTK_EDITABLE_GET_CLASS:=PGtkEditableClass(G_TYPE_INSTANCE_GET_INTERFACE(inst,GTK_TYPE_EDITABLE));
89end;
90
91{$ENDIF read_implementation}
92// included by gtk2.pas
93
94