lego/src/AnchorSwitchVBT.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE AnchorSwitchVBT;
A AnchorSwitchVBT.T is a switch version of AnchorBtnVBT.T.

IMPORT AnchorBtnVBT, FeedbackVBT, SwitchVBT, VBT;

TYPE
  T <: Public;
  Public = AnchorBtnVBT.T OBJECT
           METHODS
             init (f             : FeedbackVBT.T;
                   menu          : VBT.T;
                   n             : CARDINAL        := 0;
                   anchorParent  : VBT.T           := NIL;
                   hfudge, vfudge                  := 0.0  ): T
           OVERRIDES
             pre    := SwitchVBT.Pre;
             post   := SwitchVBT.Post;
             cancel := SwitchVBT.Cancel;
           END;

  MC = SwitchVBT.MC;

END AnchorSwitchVBT.