Copyright (C) 1994, Digital Equipment Corp.
MODULE AnchorSwitchVBT;
IMPORT AnchorBtnVBT, FeedbackVBT, Multi, MultiClass, VBT;
REVEAL
T = Public BRANDED "AnchorSwitchVBT.T" OBJECT OVERRIDES init := Init END;
PROCEDURE Init (v : T;
f : FeedbackVBT.T;
menu : VBT.T;
n : CARDINAL := 0;
hfudge, vfudge := 0.0 ): T =
anchorParent : VBT.T := NIL;
BEGIN
EVAL AnchorBtnVBT.T.init (v, f, menu, n, anchorParent, hfudge, vfudge);
MultiClass.Be (v, NEW (MC));
MultiClass.BeChild (v, Multi.Child (f));
RETURN v
END Init;
BEGIN
END AnchorSwitchVBT.