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