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{ The GtkTextMark data type } 10 PGtkTextMark = ^TGtkTextMark; 11 TGtkTextMark = record 12 parent_instance : TGObject; 13 segment : gpointer; 14 end; 15 16{ Padding for future expansion } 17 PGtkTextMarkClass = ^TGtkTextMarkClass; 18 TGtkTextMarkClass = record 19 parent_class : TGObjectClass; 20 _gtk_reserved1 : procedure ; cdecl; 21 _gtk_reserved2 : procedure ; cdecl; 22 _gtk_reserved3 : procedure ; cdecl; 23 _gtk_reserved4 : procedure ; cdecl; 24 end; 25{$ENDIF read_interface_types} 26 27//------------------------------------------------------------------------------ 28 29{$IFDEF read_interface_rest} 30function GTK_TYPE_TEXT_MARK : GType; 31function GTK_TEXT_MARK(anObject: pointer) : PGtkTextMark; 32function GTK_TEXT_MARK_CLASS(klass: pointer) : PGtkTextMarkClass; 33function GTK_IS_TEXT_MARK(anObject: pointer) : boolean; 34function GTK_IS_TEXT_MARK_CLASS(klass: pointer) : boolean; 35function GTK_TEXT_MARK_GET_CLASS(obj: pointer) : PGtkTextMarkClass; 36 37function gtk_text_mark_get_type:GType; cdecl; external gtklib; 38procedure gtk_text_mark_set_visible(mark:PGtkTextMark; setting:gboolean); cdecl; external gtklib; 39function gtk_text_mark_get_visible(mark:PGtkTextMark):gboolean; cdecl; external gtklib; 40function gtk_text_mark_get_name(mark:PGtkTextMark):Pgchar; cdecl; external gtklib; 41function gtk_text_mark_get_deleted(mark:PGtkTextMark):gboolean; cdecl; external gtklib; 42function gtk_text_mark_get_buffer(mark:PGtkTextMark):PGtkTextBuffer; cdecl; external gtklib; 43function gtk_text_mark_get_left_gravity(mark:PGtkTextMark):gboolean; cdecl; external gtklib; 44{$ENDIF read_interface_rest} 45 46//------------------------------------------------------------------------------ 47 48{$IFDEF read_implementation} 49function GTK_TYPE_TEXT_MARK : GType; 50begin 51 GTK_TYPE_TEXT_MARK:=gtk_text_mark_get_type; 52end; 53 54function GTK_TEXT_MARK(anObject: pointer) : PGtkTextMark; 55begin 56 GTK_TEXT_MARK:=PGtkTextMark(G_TYPE_CHECK_INSTANCE_CAST(anObject,GTK_TYPE_TEXT_MARK)); 57end; 58 59function GTK_TEXT_MARK_CLASS(klass: pointer) : PGtkTextMarkClass; 60begin 61 GTK_TEXT_MARK_CLASS:=PGtkTextMarkClass(G_TYPE_CHECK_CLASS_CAST(klass,GTK_TYPE_TEXT_MARK)); 62end; 63 64function GTK_IS_TEXT_MARK(anObject: pointer) : boolean; 65begin 66 GTK_IS_TEXT_MARK:=G_TYPE_CHECK_INSTANCE_TYPE(anObject,GTK_TYPE_TEXT_MARK); 67end; 68 69function GTK_IS_TEXT_MARK_CLASS(klass: pointer) : boolean; 70begin 71 GTK_IS_TEXT_MARK_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GTK_TYPE_TEXT_MARK); 72end; 73 74function GTK_TEXT_MARK_GET_CLASS(obj: pointer) : PGtkTextMarkClass; 75begin 76 GTK_TEXT_MARK_GET_CLASS:=PGtkTextMarkClass(G_TYPE_INSTANCE_GET_CLASS(obj,GTK_TYPE_TEXT_MARK)); 77end; 78 79{$ENDIF read_implementation} 80// included by gtk2.pas 81 82