lego/src/AnchorSwitchVBT.m3


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.