[Cyan]<CedarChest6.0>SpellingTool>SpellingToolShared.mesa!1

SpellingToolShared.mesa

Last Edited by: Nix, November 21, 1983 5:21 pm

DIRECTORY

IO USING [STREAM],

TiogaOps USING [SelectionGrain],

TiogaOpsDefs USING [Ref, Location, Viewer];

SpellingToolShared: CEDAR DEFINITIONS = {

STREAM: TYPE = IO.STREAM;

SelectionRec: TYPE = RECORD[

viewer: TiogaOpsDefs.Viewer,

start,

end: TiogaOpsDefs.Location,

level: TiogaOps.SelectionGrain,

caretBefore, pendingDelete: BOOL];

Selection: TYPE = REF SelectionRec;

CorrectTiogaOpsCallWithLocks: PROC [proc: PROC [TiogaOpsDefs.Ref], root: TiogaOpsDefs.Ref ← NIL];

MapWordsInSelection: PROC [start, end: TiogaOpsDefs.Location, f: PROC [REF TEXT] RETURNS [BOOL], forwards: BOOL] RETURNS [premature: BOOL ← FALSE, wordStart, wordEnd: TiogaOpsDefs.Location];

ProcessSelection: PROC [forceEOD: BOOL ← FALSE, defEOD: BOOL ← TRUE, forwards: BOOL] RETURNS [s: Selection, wasExtended: BOOL ← FALSE];

CheckMiddleOfWord: PROC[s: Selection];

FirstWithin: PROC [r: TiogaOpsDefs.Ref] RETURNS [first: TiogaOpsDefs.Ref];