/packages/gtk1/src/gtk/gtkhruler.pp
https://github.com/slibre/freepascal · Puppet · 53 lines · 37 code · 16 blank · 0 comment · 0 complexity · 7a245844ad03caee75d01db3da2f8977 MD5 · raw file
- {
- }
- {****************************************************************************
- Interface
- ****************************************************************************}
- {$ifdef read_interface}
- type
- PGtkHRuler = ^TGtkHRuler;
- TGtkHRuler = record
- ruler : TGtkRuler;
- end;
- PGtkHRulerClass = ^TGtkHRulerClass;
- TGtkHRulerClass = record
- parent_class : TGtkRulerClass;
- end;
- Type
- GTK_HRULER=PGtkHRuler;
- GTK_HRULER_CLASS=PGtkHRulerClass;
- function GTK_HRULER_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
- function GTK_IS_HRULER(obj:pointer):boolean;
- function GTK_IS_HRULER_CLASS(klass:pointer):boolean;
- function gtk_hruler_get_type:TGtkType;cdecl;external gtkdll name 'gtk_hruler_get_type';
- function gtk_hruler_new:PGtkWidget;cdecl;external gtkdll name 'gtk_hruler_new';
- {$endif read_interface}
- {****************************************************************************
- Implementation
- ****************************************************************************}
- {$ifdef read_implementation}
- function GTK_IS_HRULER(obj:pointer):boolean;
- begin
- GTK_IS_HRULER:=(obj<>nil) and GTK_IS_HRULER_CLASS(PGtkTypeObject(obj)^.klass);
- end;
- function GTK_IS_HRULER_CLASS(klass:pointer):boolean;
- begin
- GTK_IS_HRULER_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_HRULER_TYPE);
- end;
- {$endif read_implementation}