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.