Screen.mesa
Copyright (C) 1982, 1983, 1984 Xerox Corporation. All rights reserved.
Author: John Maxwell
last modified: May 19, 1982 9:14 am
Last Edited by: Maxwell, November 21, 1983 11:17 am
Last Edited by: Doug Wyatt, June 16, 1984 3:15:03 pm PDT
DIRECTORY
Imager USING [Context],
MusicDefs USING [ScorePTR];
Screen: CEDAR DEFINITIONS
= BEGIN
ScorePTR: TYPE ~ MusicDefs.ScorePTR;
commands: CommandProcs;
CommandProcs: TYPE = RECORD[
play: PROC[score: ScorePTR], -- may raise Piece.Overflow
listen: PROC[score: ScorePTR], -- may raise Piece.Overflow
redbug: PROC[score: ScorePTR],
yellowbug: PROC[score: ScorePTR],
bluebug: PROC[score: ScorePTR], -- may raise Piece.Overflow
keyboard: PROC[score: ScorePTR], -- may raise Piece.Overflow
scroll: PROC[score: ScorePTR, by: INTEGER],
thumb: PROC[score: ScorePTR],
display: PROC[score: ScorePTR, erase: BOOL],
fileIn: PROC[fileName: STRING] RETURNS[score: ScorePTR],
fileOut: PROC[score: ScorePTR, fileName: STRING],
hardcopy: PROC[score: ScorePTR, s: STRING],
initialize: PROC[context: Imager.Context] RETURNS[score: ScorePTR],
count: CARDINAL
];
InvertListen: PROC;
InvertPlay: PROC;
DisplayMessage: PROC[s: STRING];
END.