INTERFACETextPortWithButtons ; 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.