TGnomeIconListClass

type TGnomeIconListClass = record

  parent_class: TGnomeCanvasClass;

  select_icon: procedure(

  gil: PGnomeIconList;

  num: gint;

  event: PGdkEvent

);

  unselect_icon: procedure(

  gil: PGnomeIconList;

  num: gint;

  event: PGdkEvent

);

  text_changed: function(

  gil: PGnomeIconList;

  num: gint;

  new_text: Pchar

):gboolean;

end;