Copyright (C) 1994, Digital Equipment Corp.
INTERFACEAAnchorSwitchVBT ;
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.