InscriptTest.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Writen by Maureen Stone September 18, 1982 10:57 am
Doug Wyatt, March 1, 1985 9:59:04 am PST
DIRECTORY
ClassIncreek,
InterminalBackdoor;
InscriptTest: PROGRAM
IMPORTS InterminalBackdoor
= BEGIN
InsertKey:
PROC = {
kd: keyDown ClassIncreek.ActionBody ← [0, keyDown[X]];
ku: keyUp ClassIncreek.ActionBody ← [0, keyUp[X]];
InterminalBackdoor.InsertAction[kd];
InterminalBackdoor.InsertAction[ku];
};
InsertDeltaMouse:
PROC[dx,dy: [-8..8)] = {
dm: deltaMouse ClassIncreek.ActionBody ← [0, deltaMouse[[dx,dy]]];
InterminalBackdoor.InsertAction[dm];
};
DX, DY: [-8..8) ← 0;
END.