MouseFace.mesa
last edited by Levin on June 6, 1983 3:03 pm
Last edited by Andrew Birrell on April 25, 1983 1:29 pm
DIRECTORY
KeyboardFace USING [DownUp, M1, M2, M3];
MouseFace: CEDAR DEFINITIONS =
BEGIN
For historical reasons, the mouse buttons are also available through KeyboardFace.keyboard, though this is the preferred interface.
Types
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];
Processor-independent interface to the mouse (position and buttons).
position: READONLY LONG POINTER TO READONLY Point;
SetPosition: PROCEDURE [Point];
buttons: READONLY LONG POINTER TO READONLY Buttons;
END.