PageRenderTime 36ms CodeModel.GetById 31ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/gtk2/src/gtk+/gtk/gtkseparator.inc

https://github.com/slibre/freepascal
Pascal | 70 lines | 39 code | 18 blank | 13 comment | 0 complexity | e36d45b1313ee2bde7030ccff122e603 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 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   PGtkSeparator = ^TGtkSeparator;
10   TGtkSeparator = record
11        widget : TGtkWidget;
12     end;
13
14   PGtkSeparatorClass = ^TGtkSeparatorClass;
15   TGtkSeparatorClass = record
16        parent_class : TGtkWidgetClass;
17     end;
18
19{$ENDIF read_interface_types}
20
21//------------------------------------------------------------------------------
22
23{$IFDEF read_interface_rest}
24function GTK_TYPE_SEPARATOR : GType;
25function GTK_SEPARATOR(obj: pointer) : PGtkSeparator;
26function GTK_SEPARATOR_CLASS(klass: pointer) : PGtkSeparatorClass;
27function GTK_IS_SEPARATOR(obj: pointer) : boolean;
28function GTK_IS_SEPARATOR_CLASS(klass: pointer) : boolean;
29function GTK_SEPARATOR_GET_CLASS(obj: pointer) : PGtkSeparatorClass;
30
31
32function gtk_separator_get_type:TGtkType; cdecl; external gtklib;
33{$ENDIF read_interface_rest}
34
35//------------------------------------------------------------------------------
36
37{$IFDEF read_implementation}
38function GTK_TYPE_SEPARATOR : GType;
39begin
40   GTK_TYPE_SEPARATOR:=gtk_separator_get_type;
41end;
42
43function GTK_SEPARATOR(obj: pointer) : PGtkSeparator;
44begin
45   GTK_SEPARATOR:=PGtkSeparator(GTK_CHECK_CAST(obj,GTK_TYPE_SEPARATOR));
46end;
47
48function GTK_SEPARATOR_CLASS(klass: pointer) : PGtkSeparatorClass;
49begin
50   GTK_SEPARATOR_CLASS:=PGtkSeparatorClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_SEPARATOR));
51end;
52
53function GTK_IS_SEPARATOR(obj: pointer) : boolean;
54begin
55   GTK_IS_SEPARATOR:=GTK_CHECK_TYPE(obj,GTK_TYPE_SEPARATOR);
56end;
57
58function GTK_IS_SEPARATOR_CLASS(klass: pointer) : boolean;
59begin
60   GTK_IS_SEPARATOR_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_SEPARATOR);
61end;
62
63function GTK_SEPARATOR_GET_CLASS(obj: pointer) : PGtkSeparatorClass;
64begin
65   GTK_SEPARATOR_GET_CLASS:=PGtkSeparatorClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_SEPARATOR));
66end;
67
68{$ENDIF read_implementation}
69// included by gtk2.pas
70