VoiceRecordPlayImpl AddVoiceProc: PUBLIC ENTRY Menus.MenuProc IF recordingInProgress THEN MessageWindow.Append["Already recording", TRUE]; IF PlayBackInProgress[] THEN MessageWindow.Append["Cancel playback before trying to record", TRUE]; PrepareSelection IF NOT suitableViewer THEN MessageWindow.Append["Make a selection in a tioga or text viewer first", TRUE]; IF alreadyBeingEdited THEN MessageWindow.Append["Previous voice editing operation has yet to complete", TRUE]; IF alreadyVoiceThere THEN MessageWindow.Append["Cannot add sound on top of another sound", TRUE]; StopRecording: PUBLIC ENTRY PROC IF recordedRope.length = 0 THEN MessageWindow.Append["Zero length voice annotation - discarding", TRUE]; IF recordedRope.length = 0 THEN MessageWindow.Append["Zero length voice dictation - destroying window", TRUE]; IF recordedRope.length = 0 THEN MessageWindow.Append["Zero length voice addition - viewer contents unchanged", TRUE]; DictationMachine: PUBLIC ENTRY Menus.MenuProc IF PlayBackInProgress[] THEN MessageWindow.Append["Cancel playback before trying to record", TRUE]; ChangeVoiceInputFocus: INTERNAL PROC IF targetSoundSelection.voiceViewerInfo.ropeInterval.ropeID = NIL THEN MessageWindow.Append["you're already using the dictation machine!", TRUE]; MessageWindow.Append["marker set where you were inserting voice", TRUE]; PlayBackMenuProc: PUBLIC Menus.MenuProc IF RecordingInProgress[] THEN MessageWindow.Append["Stop recording before trying to play back", TRUE]; PlayWholeSlab: PUBLIC PROC [viewer: ViewerClasses.Viewer] IF viewerInfo = NIL THEN MessageWindow.Append["Not a voice window or no selection", TRUE] PlayRopeWithoutCue: PUBLIC PROC [voiceID: Rope.ROPE] IF fullRope.length = -1 THEN MessageWindow.Append["non-existant voice utterance(s) found in selection", TRUE]; VoiceViewersImpl GetVoiceLock: PUBLIC ENTRY PROC [info: VoiceViewers.VoiceViewerInfo] RETURNS [gotIt: BOOLEAN] IF info.editInProgress THEN MessageWindow.Append["Try again when the viewer's contents are stable", TRUE] T TiogaVoiceMessages.tioga Polle Zellweger (PTZ) May 22, 1987 2:39:24 pm PDT Κ=•NewlineDelimiter –(cedardoc) style™™Icode™1—K™šΟb˜K˜šΟn œΟkœŸœ˜)KšŸœŸœ+Ÿœ˜LKšŸœŸœAŸœ˜cK˜—šž˜Kš ŸœŸœŸžœIŸœ˜jKšŸœŸœNŸœ˜nKšŸœŸœBŸœ˜aK˜—šž œŸœŸœŸ˜ KšŸœŸœCŸœ˜hKšŸœŸœIŸœ˜nKšŸœŸœPŸœ˜uK˜—šžœŸœŸœ˜-JšŸœŸœAŸœ˜cJ˜—šžœŸœŸ˜$KšŸœ<ŸœŸœEŸœ˜‘JšœBŸœ˜HJ˜—šžœŸœ˜'KšŸœŸœCŸœ˜fK˜—šž œŸœŸœ˜9KšŸœŸœŸœ<Ÿœ˜YK˜—šžœŸœŸœŸœ˜4KšŸœŸœLŸœ˜n—K˜—Kš˜˜š ž œŸœŸœŸœ&Ÿœ Ÿœ˜]KšŸœŸœIŸœ˜i˜K˜J˜—˜K˜————…—μ }