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. 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 Ê¥˜šœ ™ JšœF™FJšœ™Jšœ#™#Jšœ3™3Jšœ8™8—J˜šÏk ˜ Jšœœ ˜Jšœ œ ˜J˜—Jšœœ ˜Jšœ˜J˜Jšœ œ˜$J˜J˜J˜šœœœ˜JšœœÏc˜8Jšœœž˜:Jšœœ˜Jšœ œ˜"Jšœ œž˜;Jšœ œž˜