2
$Id: gtkeventbox.pp,v 1.2 2002/09/07 15:42:59 peter Exp $
5
{****************************************************************************
7
****************************************************************************}
9
{$ifdef read_interface}
12
PGtkEventBox = ^TGtkEventBox;
17
PGtkEventBoxClass = ^TGtkEventBoxClass;
18
TGtkEventBoxClass = record
19
parent_class : TGtkBinClass;
23
GTK_EVENT_BOX=PGtkEventBox;
24
GTK_EVENT_BOX_CLASS=PGtkEventBoxClass;
26
function GTK_EVENT_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
27
function GTK_IS_EVENT_BOX(obj:pointer):boolean;
28
function GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
30
function gtk_event_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_event_box_get_type';
31
function gtk_event_box_new : PGtkWidget;cdecl;external gtkdll name 'gtk_event_box_new';
33
{$endif read_interface}
36
{****************************************************************************
38
****************************************************************************}
40
{$ifdef read_implementation}
42
function GTK_IS_EVENT_BOX(obj:pointer):boolean;
44
GTK_IS_EVENT_BOX:=(obj<>nil) and GTK_IS_EVENT_BOX_CLASS(PGtkTypeObject(obj)^.klass);
47
function GTK_IS_EVENT_BOX_CLASS(klass:pointer):boolean;
49
GTK_IS_EVENT_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_EVENT_BOX_TYPE);
52
{$endif read_implementation}
56
$Log: gtkeventbox.pp,v $
57
Revision 1.2 2002/09/07 15:42:59 peter
58
* old logs removed and tabs fixed
60
Revision 1.1 2002/01/29 17:55:10 peter
61
* splitted to base and extra