PageRenderTime 28ms CodeModel.GetById 21ms app.highlight 6ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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