2
$Id: gtkitem.pp,v 1.2 2002/09/07 15:42:59 peter Exp $
5
{****************************************************************************
7
****************************************************************************}
9
{$ifdef read_interface}
17
PGtkItemClass = ^TGtkItemClass;
18
TGtkItemClass = record
19
parent_class : TGtkBinClass;
20
select : procedure (item:PGtkItem); cdecl;
21
deselect : procedure (item:PGtkItem); cdecl;
22
toggle : procedure (item:PGtkItem); cdecl;
27
GTK_ITEM_CLASS=PGtkItemClass;
29
function GTK_ITEM_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_item_get_type';
30
function GTK_IS_ITEM(obj:pointer):boolean;
31
function GTK_IS_ITEM_CLASS(klass:pointer):boolean;
33
function gtk_item_get_type:TGtkType;cdecl;external gtkdll name 'gtk_item_get_type';
34
procedure gtk_item_select(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_select';
35
procedure gtk_item_deselect(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_deselect';
36
procedure gtk_item_toggle(item:PGtkItem);cdecl;external gtkdll name 'gtk_item_toggle';
38
{$endif read_interface}
41
{****************************************************************************
43
****************************************************************************}
45
{$ifdef read_implementation}
47
function GTK_IS_ITEM(obj:pointer):boolean;
49
GTK_IS_ITEM:=(obj<>nil) and GTK_IS_ITEM_CLASS(PGtkTypeObject(obj)^.klass);
52
function GTK_IS_ITEM_CLASS(klass:pointer):boolean;
54
GTK_IS_ITEM_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_ITEM_TYPE);
57
{$endif read_implementation}
62
Revision 1.2 2002/09/07 15:42:59 peter
63
* old logs removed and tabs fixed
65
Revision 1.1 2002/01/29 17:55:11 peter
66
* splitted to base and extra