<> <> <> DIRECTORY KeyboardFace USING [DownUp, M1, M2, M3]; MouseFace: CEDAR DEFINITIONS = BEGIN <<>> <> <> <<>> ButtonName: TYPE = MACHINE DEPENDENT { Mouse1(KeyboardFace.M1), Mouse3(KeyboardFace.M3), Mouse2(KeyboardFace.M2)}; DownUp: TYPE = KeyboardFace.DownUp; Buttons: TYPE = PACKED ARRAY ButtonName OF DownUp; Point: TYPE = RECORD [x, y: INTEGER]; <<>> <> position: READONLY LONG POINTER TO READONLY Point; SetPosition: PROCEDURE [Point]; buttons: READONLY LONG POINTER TO READONLY Buttons; END.