Buttons, EditToolBuilder, EditToolPrivate, Labels, MessageWindow, NameSymbolTable, Rope, RunReader, TEditOps, Terminal, TextEdit, TextFind, TextLooksSupport, TextNode, TEditInput, TEditInputOps, TEditSelection, TiogaOps, ViewerOps, ViewerSpecs, ViewerTools

red => DoButton[searchForwardAtom];

yellow => DoButton[searchAnywhereAtom];

blue => DoButton[searchBackwardsAtom];

ENDCASE => ERROR;

(pSel.viewer.class.flavor=$Text OR

THEN RETURN [TRUE];

(~ignoreLooks OR ~ignoreText) THEN {

MessageWindow.Append["Not found.", TRUE];

Terminal.BlinkBWDisplay[Terminal.Current[]]; RETURN }};

ignoreStyle AND ignoreComment THEN { OPEN MessageWindow;

TEditSelection.UnlockSel[primary]; RETURN };

~ignoreText, ~ignoreLooks, ~ignoreType, ~ignoreStyle, ~ignoreComment,

~ignoreCase, literal, searchWhere=words, ~looksExact, searchWhere=nodes

! TextFind.MalformedPattern => { ReportPatternError[ec]; GOTO Quit }]};

size: TextNode.Offset ← TextEdit.Size[where];

IF atEnd=size OR size=0 THEN RETURN [at,atEnd];

lastLen ← IF where=last THEN MIN[size,lastLen] ELSE size;

RunReader.SetPosition[runrdr,runs,atEnd];

WHILE atEnd < lastLen DO

RunReader.FreeRunReader[runrdr];

RETURN [at,MIN[atEnd,lastLen]] };

IF runs=NIL THEN { runLen ← at; looks ← TextLooks.noLooks }

ELSE [runLen,looks] ← RunReader.Backwards[runrdr];

IF ~looksExact THEN looks ← TextLooksSupport.LooksAND[looks,searchLooks];

IF searchLooks # looks THEN EXIT;

at ← at-runLen;

ENDLOOP;

equalLooksAtom,subsetLooksAtom] };

BuildPair[layout,LooksMatchButton,looksExact,equalLooks,subsetLooks,info] };

IF ignore THEN $BlackOnWhite ELSE $WhiteOnBlack, paint] };

ignoreTextAtom,matchTextAtom] };

ignoreLooksAtom,matchLooksAtom] };

ignoreFormatAtom,matchFormatAtom] };

ignoreStyleAtom,matchStyleAtom] };

ignoreCommentAtom,matchCommentAtom] };

matchLitAtom,matchPatternAtom] };

BuildPair[layout,LiteralButton,literal,matchingLiterally,matchingAsPattern,info] };

border: FALSE, scrollable: TRUE,

wx: entryLeft, wy: heightSoFar,

ww: openRightWidth-entryLeft-5,

wh: entryHeight*lines], paint: FALSE];

rope ← Rope.Concat[rope, docRopes[i]];

ENDLOOP;

wx: entryLeft, wy: heightSoFar,

ww: openRightWidth-entryLeft-5,

wh: height, border: FALSE, scrollable: FALSE], paint: FALSE];

rope ← Rope.Concat[rope, miniDocRopes[i]];

ENDLOOP;

ignoreCaseAtom,matchCaseAtom] };

BuildPair[layout,CaseButton,ignoreCase,ignoringCase,matchingCase,info] };

matchAnywhereAtom,matchWordsAtom,matchNodesAtom] };

searchWhere,matchingAnywhere,matchingWords,matchingNodes,info] };