TGtkStatusbarClass

type TGtkStatusbarClass = record

  parent_class: TGtkHBoxClass;

  messages_mem_chunk: PGMemChunk;

  text_pushed: procedure(

  statusbar: PGtkStatusbar;

  context_id: guint;

  text: Pgchar

);

  text_popped: procedure(

  statusbar: PGtkStatusbar;

  context_id: guint;

  text: Pgchar

);

  _gtk_reserved1: procedure;

  _gtk_reserved2: procedure;

  _gtk_reserved3: procedure;

  _gtk_reserved4: procedure;

end;