special ops provided to support the "stop, listen, [erase,] resume" model of a dictation machine

all of the dictation operations stand apart from the normal rules for playback/recording, which are that one must be stopped manually before the other can be requested. A playback or record request in this module implicitly cancels any already in progress.

the dictation machine works differently for color and monochrome viewers: the end point for playback/resume and delete to-/record from is the end of the viewer for monochrome and the end of the youngest sound for the color

Menus USING [MenuProc, MenuEntry, InsertMenuEntry, GetLine, SetLine, ChangeNumberOfLines],

MessageWindow USING [Append, Blink],

MBQueue USING [CreateMenuEntry],

TiogaOps USING [GetSelection, FirstChild, ViewerDoc],

TiogaOpsDefs USING [Location, Ref],

ViewerClasses USING [Viewer],

ViewerOps USING [FetchProp],

VoiceAging USING [oldest],

VoiceInText USING [ChangeMenu, thrushHandle, voiceButtonQueue],

VoicePlayBack USING [CancelPlayBack, PlaySlabSection],

VoiceRecord USING [StopRecording, RecordInPlaceOfSelection],

VoiceRope USING [Stop, VoiceRopeInterval],

VoiceViewers USING [voiceViewerMenu, VoiceViewerInfo, soundRopeCharLength, GetVoiceLock, SelectionRec, IntPair],

DictationOps;

the button to toggle the dictation menu on and off the screen

VoiceInText.ChangeMenu[NARROW[parent], dictationMenu] };

manual version of same thing

VoiceInText.ChangeMenu[viewer, dictationMenu] };

procedure to interpret 'end' for monochrome/color viewers

IF viewerInfo.ropeInterval.start # 0 THEN ERROR;

there should be a 'real rope' in this viewer!!

IF ~viewerInfo.color THEN RETURN [viewerInfo.ropeInterval.length]

ELSE

{ minAge: INT ← VoiceAging.oldest+2;

}

viewer: ViewerClasses.Viewer;

start: TiogaOpsDefs.Location;

viewerInfo: VoiceViewers.VoiceViewerInfo;

node: TiogaOpsDefs.Ref;

from, to: INT;

[viewer: viewer, start: start] ← TiogaOps.GetSelection[];

viewerInfo ← NARROW[ViewerOps.FetchProp[viewer, $voiceViewerInfo], VoiceViewers.VoiceViewerInfo];

IF viewerInfo = NIL

THEN

{ MessageWindow.Append["Make a selection in a voice viewer first", TRUE];

};

VoiceRope.Stop[VoiceInText.thrushHandle];

VoicePlayBack.CancelPlayBack[];

VoiceRecord.StopRecording[];

**** need to take the voice lock before performing the following!

node ← TiogaOps.FirstChild[TiogaOps.ViewerDoc[viewer]];

from ← start.where;

to ← FindEnd[viewerInfo]/VoiceViewers.soundRopeCharLength;

IF to >= from

THEN VoicePlayBack.PlaySlabSection[viewer, node, from, to]

ELSE

{ MessageWindow.Append["Make a selection before the end of the most recent edit", TRUE];

};

viewer: ViewerClasses.Viewer;

start: TiogaOpsDefs.Location;

viewerInfo: VoiceViewers.VoiceViewerInfo;

node: TiogaOpsDefs.Ref;

replaceRopeInterval: VoiceRope.VoiceRopeInterval;

startDelete, endDelete: INT;

[viewer: viewer, start: start] ← TiogaOps.GetSelection[];

viewerInfo ← NARROW[ViewerOps.FetchProp[viewer, $voiceViewerInfo], VoiceViewers.VoiceViewerInfo];

IF viewerInfo = NIL

THEN

{ MessageWindow.Append["Make a selection in a voice viewer first", TRUE];

};

VoiceRope.Stop[VoiceInText.thrushHandle];

VoicePlayBack.CancelPlayBack[];

VoiceRecord.StopRecording[];

IF ~VoiceViewers.GetVoiceLock[viewerInfo] THEN RETURN;

node ← TiogaOps.FirstChild[TiogaOps.ViewerDoc[viewer]];

startDelete ← start.where*VoiceViewers.soundRopeCharLength;

endDelete ← FindEnd[viewerInfo];

IF startDelete>endDelete THEN

{ MessageWindow.Append["Make a selection before the end of the most recent edit", TRUE];

};

replaceRopeInterval ← [ropeID: viewerInfo.ropeInterval.ropeID, start: startDelete, length: endDelete - startDelete];

VoiceRecord.RecordInPlaceOfSelection[NEW[VoiceViewers.SelectionRec ← [viewer: viewer, voiceViewerInfo: viewerInfo, ropeInterval: replaceRopeInterval, displayNode: node]]]

viewer: ViewerClasses.Viewer ← NARROW[parent, ViewerClasses.Viewer];

viewerInfo: VoiceViewers.VoiceViewerInfo ← NARROW[ViewerOps.FetchProp[viewer, $voiceViewerInfo], VoiceViewers.VoiceViewerInfo];

node: TiogaOpsDefs.Ref;

replaceRopeInterval: VoiceRope.VoiceRopeInterval;

VoiceRope.Stop[VoiceInText.thrushHandle];

VoicePlayBack.CancelPlayBack[];

VoiceRecord.StopRecording[];

IF ~VoiceViewers.GetVoiceLock[viewerInfo] THEN RETURN;

node ← TiogaOps.FirstChild[TiogaOps.ViewerDoc[viewer]];

replaceRopeInterval ← [ropeID: viewerInfo.ropeInterval.ropeID, start: FindEnd[viewerInfo], length: 0];

VoiceRecord.RecordInPlaceOfSelection[NEW[VoiceViewers.SelectionRec ← [viewer: viewer, voiceViewerInfo: viewerInfo, ropeInterval: replaceRopeInterval, displayNode: node]]]