/packages/gtk1/src/gtk/gtkhruler.pp
Puppet | 53 lines | 37 code | 16 blank | 0 comment | 0 complexity | 7a245844ad03caee75d01db3da2f8977 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ 2} 3 4{**************************************************************************** 5 Interface 6****************************************************************************} 7 8{$ifdef read_interface} 9 10 type 11 PGtkHRuler = ^TGtkHRuler; 12 TGtkHRuler = record 13 ruler : TGtkRuler; 14 end; 15 16 PGtkHRulerClass = ^TGtkHRulerClass; 17 TGtkHRulerClass = record 18 parent_class : TGtkRulerClass; 19 end; 20 21Type 22 GTK_HRULER=PGtkHRuler; 23 GTK_HRULER_CLASS=PGtkHRulerClass; 24 25function GTK_HRULER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type'; 26function GTK_IS_HRULER(obj:pointer):boolean; 27function GTK_IS_HRULER_CLASS(klass:pointer):boolean; 28 29function gtk_hruler_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type'; 30function gtk_hruler_new:PGtkWidget;cdecl;external gtkdll name 'gtk_hruler_new'; 31 32{$endif read_interface} 33 34 35{**************************************************************************** 36 Implementation 37****************************************************************************} 38 39{$ifdef read_implementation} 40 41function GTK_IS_HRULER(obj:pointer):boolean; 42begin 43 GTK_IS_HRULER:=(obj<>nil) and GTK_IS_HRULER_CLASS(PGtkTypeObject(obj)^.klass); 44end; 45 46function GTK_IS_HRULER_CLASS(klass:pointer):boolean; 47begin 48 GTK_IS_HRULER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HRULER_TYPE); 49end; 50 51{$endif read_implementation} 52 53