freepascal.compiler/packages/extra/gnome1/gnome/libgnomeui/gnomeentry.inc

{$IfDef read_interface}
type
   PGnomeEntry = ^TGnomeEntry;
   TGnomeEntry = record
        combo : TGtkCombo;
        changed : gboolean;
        history_id : Pgchar;
        items : PGList;
        max_saved : guint;
     end;
   GNOME_ENTRY = PGnomeEntry;

   PGnomeEntryClass = ^TGnomeEntryClass;
   TGnomeEntryClass = record
        parent_class : TGtkComboClass;
     end;
   GNOME_ENTRY_CLASS = PGnomeEntryClass;

function GNOME_TYPE_ENTRY : TGTKType;
function GNOME_IS_ENTRY(obj : Pointer) : Boolean;
function GNOME_IS_ENTRY_CLASS(klass : Pointer) : Boolean;

function gnome_entry_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_entry_get_type';
function gnome_entry_new(history_id:Pgchar):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_entry_new';
function gnome_entry_gtk_entry(gentry:PGnomeEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_entry_gtk_entry';
procedure gnome_entry_set_history_id(gentry:PGnomeEntry; history_id:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_set_history_id';
procedure gnome_entry_set_max_saved(gentry:PGnomeEntry; max_saved:guint);cdecl;external libgnomeuidll name 'gnome_entry_set_max_saved';
procedure gnome_entry_prepend_history(gentry:PGnomeEntry; save:gint; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_prepend_history';
procedure gnome_entry_append_history(gentry:PGnomeEntry; save:gint; thetext:Pgchar);cdecl;external libgnomeuidll name 'gnome_entry_append_history';
procedure gnome_entry_load_history(gentry:PGnomeEntry);cdecl;external libgnomeuidll name 'gnome_entry_load_history';
procedure gnome_entry_save_history(gentry:PGnomeEntry);cdecl;external libgnomeuidll name 'gnome_entry_save_history';

{$EndIf read_interface}

{$Ifdef read_implementation}

function GNOME_TYPE_ENTRY : TGTKType;
begin
  GNOME_TYPE_ENTRY:=gnome_entry_get_type;
end;

function GNOME_IS_ENTRY(obj : Pointer) : Boolean;
begin
   GNOME_IS_ENTRY:=(obj<>nil) and GNOME_IS_ENTRY_CLASS(PGtkTypeObject(obj)^.klass);
end;

function GNOME_IS_ENTRY_CLASS(klass : Pointer) : Boolean;
begin
   GNOME_IS_ENTRY_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GNOME_TYPE_ENTRY);
end;

{$Endif read_implementation}