INTERFACE TextPortWithButtons;

IMPORT TextPortButton, TextPort;

TYPE
  T <: Public;
  Public = (*FVTypes.Port*) TextPort.T OBJECT
  METHODS
    init(readOnly: BOOLEAN): T;
    insertButton(b: TextPortButton.T);
    numberOfButtons(): CARDINAL;
    getButton(i: CARDINAL): TextPortButton.T;
    clearButtons();
  END;

END TextPortWithButtons.