-- MouseFace.mesa (last edited by: McJones on: July 29, 1980 10:57 AM)

DIRECTORY

KeyStations USING [DownUp, M1, M2, M3];

MouseFace: DEFINITIONS =

BEGIN

-- Processor-independent interface to the mouse (position and buttons).

-- (For historical reasons, the mouse buttons are also available through KeyboardFace.keyboard.)

position: READONLY LONG POINTER TO READONLY Point;

SetPosition: PROCEDURE [Point];

buttons: READONLY LONG POINTER TO READONLY Buttons;

Buttons: TYPE = PACKED ARRAY ButtonName OF DownUp;

Point: TYPE = RECORD [x, y: INTEGER];

ButtonName: TYPE = MACHINE DEPENDENT {

Mouse1(KeyStations.M1), Mouse3(KeyStations.M3), Mouse2(KeyStations.M2)};

DownUp: TYPE = KeyStations.DownUp;

END.

LOG

Time: July 29, 1980 10:57 AMBy: McJonesAction: Created file from DisplayFace