TGtkStatusbarClass

type TGtkStatusbarClass = record

  parent_class: TGtkHBoxClass;

  messages_mem_chunk: PGMemChunk;

  text_pushed: procedure(

  statusbar: PGtkStatusbar;

  context_id: guint;

  thetext: Pgchar

);

  text_popped: procedure(

  statusbar: PGtkStatusbar;

  context_id: guint;

  thetext: Pgchar

);

end;