4
{****************************************************************************
6
****************************************************************************}
8
{$ifdef read_interface}
11
PGtkEventBox = ^TGtkEventBox;
16
PGtkEventBoxClass = ^TGtkEventBoxClass;
17
TGtkEventBoxClass = record
18
parent_class : TGtkBinClass;
22
GTK_EVENT_BOX=PGtkEventBox;
23
GTK_EVENT_BOX_CLASS=PGtkEventBoxClass;
25
function GTK_EVENT_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
26
function GTK_IS_EVENT_BOX(obj:pointer):boolean;
27
function GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
29
function gtk_event_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
30
function gtk_event_box_new : PGtkWidget;cdecl;external gtkdll name 'gtk_event_box_new';
32
{$endif read_interface}
35
{****************************************************************************
37
****************************************************************************}
39
{$ifdef read_implementation}
41
function GTK_IS_EVENT_BOX(obj:pointer):boolean;
43
GTK_IS_EVENT_BOX:=(obj<>nil) and GTK_IS_EVENT_BOX_CLASS(PGtkTypeObject(obj)^.klass);
46
function GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
48
GTK_IS_EVENT_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_EVENT_BOX_TYPE);
51
{$endif read_implementation}