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

{$IfDef read_interface}

type
   PGnomeIconEntry = ^TGnomeIconEntry;
   TGnomeIconEntry = record
        vbox : TGtkVBox;
        fentry : PGtkWidget;
        pickbutton : PGtkWidget;
        pick_dialog : PGtkWidget;
        pick_dialog_dir : Pgchar;
     end;
   GNOME_ICON_ENTRY = PGnomeIconEntry;

   PGnomeIconEntryClass = ^TGnomeIconEntryClass;
   TGnomeIconEntryClass = record
        parent_class : TGtkVBoxClass;
     end;
   GNOME_ICON_ENTRY_CLASS = PGnomeIconEntryClass;

function GNOME_TYPE_ICON_ENTRY : TGTKType;
function GNOME_IS_ICON_ENTRY(obj : Pointer) : Boolean;
function GNOME_IS_ICON_ENTRY_CLASS(klass : Pointer) : Boolean;

function gnome_icon_entry_get_type:TGTKType;cdecl;external libgnomeuidll name 'gnome_icon_entry_get_type';
function gnome_icon_entry_new(history_id:Pgchar; browse_dialog_title:Pgchar):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_entry_new';
procedure gnome_icon_entry_set_pixmap_subdir(ientry:PGnomeIconEntry; subdir:Pgchar);cdecl;external libgnomeuidll name 'gnome_icon_entry_set_pixmap_subdir';
procedure gnome_icon_entry_set_icon(ientry:PGnomeIconEntry; filename:Pgchar);cdecl;external libgnomeuidll name 'gnome_icon_entry_set_icon';
function gnome_icon_entry_gnome_file_entry(ientry:PGnomeIconEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_entry_gnome_file_entry';
function gnome_icon_entry_gnome_entry(ientry:PGnomeIconEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_entry_gnome_entry';
function gnome_icon_entry_gtk_entry(ientry:PGnomeIconEntry):PGtkWidget;cdecl;external libgnomeuidll name 'gnome_icon_entry_gtk_entry';
function gnome_icon_entry_get_filename(ientry:PGnomeIconEntry):Pgchar;cdecl;external libgnomeuidll name 'gnome_icon_entry_get_filename';

{$EndIf read_interface}

{$Ifdef read_implementation}

function GNOME_TYPE_ICON_ENTRY : TGTKType;
begin
  GNOME_TYPE_ICON_ENTRY:=gnome_icon_entry_get_type;
end;

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

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

{$Endif read_implementation}