1
{$IfDef read_interface}
3
PGnomeEntry = ^TGnomeEntry;
11
GNOME_ENTRY = PGnomeEntry;
13
PGnomeEntryClass = ^TGnomeEntryClass;
14
TGnomeEntryClass = record
15
parent_class : TGtkComboClass;
17
GNOME_ENTRY_CLASS = PGnomeEntryClass;
19
function GNOME_TYPE_ENTRY : TGTKType;
20
function GNOME_IS_ENTRY(obj : Pointer) : Boolean;
21
function GNOME_IS_ENTRY_CLASS(klass : Pointer) : Boolean;
23
function gnome_entry_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_entry_get_type';
24
function gnome_entry_new(history_id:Pgchar):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_entry_new';
25
function gnome_entry_gtk_entry(gentry:PGnomeEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_entry_gtk_entry';
26
procedure gnome_entry_set_history_id(gentry:PGnomeEntry; history_id:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_set_history_id';
27
procedure gnome_entry_set_max_saved(gentry:PGnomeEntry; max_saved:guint);cdecl;external libgnomeuidll name 'gnome_entry_set_max_saved';
28
procedure gnome_entry_prepend_history(gentry:PGnomeEntry; save:gint; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_prepend_history';
29
procedure gnome_entry_append_history(gentry:PGnomeEntry; save:gint; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_append_history';
30
procedure gnome_entry_load_history(gentry:PGnomeEntry);cdecl;external libgnomeuidll name 'gnome_entry_load_history';
31
procedure gnome_entry_save_history(gentry:PGnomeEntry);cdecl;external libgnomeuidll name 'gnome_entry_save_history';
33
{$EndIf read_interface}
35
{$Ifdef read_implementation}
37
function GNOME_TYPE_ENTRY : TGTKType;
39
GNOME_TYPE_ENTRY:=gnome_entry_get_type;
42
function GNOME_IS_ENTRY(obj : Pointer) : Boolean;
44
GNOME_IS_ENTRY:=(obj<>nil) and GNOME_IS_ENTRY_CLASS(PGtkTypeObject(obj)^.klass);
47
function GNOME_IS_ENTRY_CLASS(klass : Pointer) : Boolean;
49
GNOME_IS_ENTRY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_ENTRY);
52
{$Endif read_implementation}