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