(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Sat Aug  1  0:23:29 PDT 1992 by meehan     *)
(*      modified on Tue Jun 16 13:08:38 PDT 1992 by muller     *)
(*      modified on Mon Jun 15 20:19:23 1992 by mhb        *)

(* A "MenuSwitchVBT" is a switch version of Trestle's "MenuBtnVBT".  *)

INTERFACE MenuSwitchVBT;

IMPORT Feedback, MenuBtnVBT, SwitchVBT, VBT;

TYPE
  T <: Public;
  Public = MenuBtnVBT.T OBJECT
           METHODS
             init     (f: Feedback.T; multiclass: MC := NIL): T;
             callback (READONLY cd: VBT.MouseRec);
           END;

  MC = SwitchVBT.MC;

END MenuSwitchVBT.