TZvtTermClass

type TZvtTermClass = record

  parent_class: TGtkWidgetClass;

  child_died: procedure(

  term: PZvtTerm

);

  title_changed: procedure(

  term: PZvtTerm;

  thetype: TVTTITLE_TYPE;

  newtitle: Pchar

);

  match_clicked: procedure(

  term: PZvtTerm;

  event: PGdkEventButton;

  match: Pchar;

  data: pointer

);

end;