/packages/gtk2/src/gtk+/gtk/gtkseparator.inc
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