lego/src/MenuSwitchVBT.i3


Copyright (C) 1994, Digital Equipment Corp.
<* PRAGMA LL *>
<* PRAGMA SUBTYPE *>
A MenuSwitchVBT is a switch version of Trestle's MenuBtnVBT.

INTERFACE MenuSwitchVBT;

IMPORT FeedbackVBT, MenuBtnVBT, VBT;

TYPE
  <* SUBTYPE T <: MultiFilter.T *>
  T <: Public;
  Public = MenuBtnVBT.T OBJECT
           METHODS
             <* LL.sup <= VBT.mu *>
             init (f: FeedbackVBT.T): T;
             <* LL.sup = VBT.mu *>
             callback (READONLY cd: VBT.MouseRec);
           END;

END MenuSwitchVBT.