Syntax10.Scn.Fnt
InfoElems
Alloc
Syntax10.Scn.Fnt
StampElems
Alloc
2 Mar 95
"Title": MyUI
"Author": Christoph Steindl (CS)
"Abstract": MyUI provides a user interface for the compile commands such as Compiler.Compile
	and Folds.Compile, for Edit.Get and Edit.Set, for Edit.Print and for Edit.Search, Edit.Replace,
	Edit.ReplaceAll and Edit.ClearReplaceBuffer
"Keywords": user interface, Compiler.Compile, Folds.Compile, Edit.Get, Edit.Set, Edit.Print,
	Edit.Search, Edit.Replace, Edit.ReplaceAll, Edit.ClearReplaceBuffer
"Version": 1
"From":  20.12.94 14:01:53
"Until": 
"Changes": no changes
"Hints": 
	Dialog.Open Insert.Dlg
	Dialog.Edit Compiler.Dlg
	Dialog.Open Compiler.Dlg
	Dialog.Edit GetSet.Dlg
	Dialog.Open GetSet.Dlg
	Dialog.Edit Print.Dlg
	Dialog.Open Print.Dlg
	Dialog.Edit Search.Dlg
	Dialog.Open Search.Dlg
Syntax10i.Scn.Fnt
StampElems
Alloc
2 Mar 95
Syntax10b.Scn.Fnt
ParcElems
Alloc
FoldElems
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
CONST
		OptionChar* = "/";
		PrintOptionsFile* = "PrintOptions";
		eps = 1.0D-9; eps0 = 0.5D-9;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			styleElem: StyleElems.Parc;
			next: StyleElem
		END;
Syntax10.Scn.Fnt
			name: ARRAY 32 OF CHAR;
			value: LONGREAL;
			next: Var
		END;
		StyleElem = POINTER TO StyleElemDesc;
		StyleElemDesc = RECORD
		Operation = ARRAY 10 OF CHAR;
		Var = POINTER TO VarDesc;
		VarDesc = RECORD
Syntax10.Scn.Fnt
		vwr: Viewers.Viewer; selbeg, selend: TextFrames.Location;	(* for StoreSelection and RestoreSelection *)
		styleElems: StyleElem;
		p: Dialogs.Panel; o: Dialogs.Object;
		command: ARRAY 32 OF CHAR; par: Oberon.ParList;
		oldLog, newLog: Texts.Text;
		w: Texts.Writer;
		res-: INTEGER;
		doSearch: BOOLEAN;
		oldValue, value: LONGREAL; (* global variables for Calc.Dlg *)
		commaPos: LONGREAL; (* <= 1 if a comma has been entered (i.e. right of comma) *)
		oldOp, op: Operation;
		newNumber: BOOLEAN;
		vars: Var;
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
		VAR elem: StyleElem;
	BEGIN 
		elem := styleElems;
		WHILE elem # NIL DO
			Out.Ln; Out.String(elem.styleElem.name);
			elem := elem.next
		END;
		HALT(90) 
	END DoHALT;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; NEW (par); par.text := TextFrames.Text("")
	END InitPar;
Syntax10.Scn.Fnt
	BEGIN Texts.Append (par.text, w.buf); par.frame := Oberon.Par.frame; par.vwr := Oberon.Par.vwr; Oberon.Call (s, par, FALSE, res)
	END Call;
Syntax10.Scn.Fnt
	BEGIN newLog := TextFrames.Text(""); oldLog := Oberon.Log; Oberon.Log := newLog
	END StoreLog;
Syntax10.Scn.Fnt
		VAR o: Dialogs.Object;
	BEGIN
		o := p.NamedObject (s);
		WITH o: DialogRadioButtons.Item DO RETURN o.on
		| o: DialogCheckBoxes.Item DO RETURN o.on
		ELSE RETURN FALSE
		END
	END On;
Syntax10.Scn.Fnt
		VAR o: Dialogs.Object;
	BEGIN
		o := p.NamedObject (s); 
		IF o # NIL THEN 
			WITH o: DialogRadioButtons.Item DO o.ChangeValue (on)
			| o: DialogCheckBoxes.Item DO o.ChangeValue (on)
			ELSE HALT (99)
			END
		END
	END ChangeValue;
Syntax10.Scn.Fnt
	BEGIN IF On (s) THEN Texts.WriteString (w, s) END
	END Write;
Syntax10.Scn.Fnt
	BEGIN IF On (s) THEN Texts.WriteString (w, "default") END
	END WriteDefault;
Syntax10.Scn.Fnt
	BEGIN
		Texts.OpenScanner (s, newLog, 0); Texts.Scan (s);
		IF st = "int" THEN
			WHILE (s.class # Texts.Int) & (~s.eot) DO Texts.Scan (s) END
		ELSE
			WHILE (~ s.eot) & (s.class # Texts.Name) & (s.s # st) DO Texts.Scan (s) END
		END
	END Scan;
Syntax10.Scn.Fnt
		VAR o: Dialogs.Object;
	BEGIN o := p.NamedObject (s); txt := o(DialogTexts.Item).GetText(); Texts.Delete (txt, 0, txt.len)
	END Delete;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; o: Dialogs.Object;
	BEGIN o := p.NamedObject (s); txt := o(DialogTexts.Item).GetText(); Texts.Save (txt, 0, txt.len, w.buf)
	END Save;
PROCEDURE DoHALT*;
	PROCEDURE InitPar;
	PROCEDURE Call (s: ARRAY OF CHAR);
	PROCEDURE StoreLog;
	PROCEDURE On (s: ARRAY OF CHAR): BOOLEAN;
	PROCEDURE ChangeValue (s: ARRAY OF CHAR; on: BOOLEAN);
	PROCEDURE Write (s: ARRAY OF CHAR);
	PROCEDURE WriteDefault (s: ARRAY OF CHAR);
	PROCEDURE Scan (VAR s: Texts.Scanner; st: ARRAY OF CHAR);
	PROCEDURE Delete (s: ARRAY OF CHAR; VAR txt: Texts.Text);
	PROCEDURE Save (s: ARRAY OF CHAR);
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			VAR ch: CHAR; error: BOOLEAN; fbeg, fend, ftime, breakpc: LONGINT;
			scanner, fs: Texts.Scanner; sourceR: Texts.Reader; line: INTEGER;  ft: Texts.Text;  fw: Texts.Writer;
		BEGIN
			error := FALSE;
			Texts.OpenScanner(scanner, t, beg); Texts.Scan(scanner);
			WHILE (scanner.class IN {Texts.Name, Texts.String}) & (Texts.Pos(scanner) - scanner.len <= end) & ~error DO
				Texts.OpenWriter(w);
				Texts.WriteString(w, scanner.s);
				line := scanner.line; opt[j] := 0X; i := j;
				Texts.Scan(scanner);
				IF (scanner.line = line) & (scanner.class = Texts.Char) & (scanner.c = OptionChar) THEN
					ch := scanner.nextCh;
					WHILE ((ch >= "0") & (ch <= "9") OR (ch >= "a") & (ch <= "z")) & (i < LEN(opt) - 1) DO
						opt[i] := ch; INC(i);
						IF ch = "f" THEN findPC := ~findPC END;
						Texts.Read(scanner, ch)
					END ;
					scanner.nextCh := ch;
					Texts.Scan(scanner)
				END;
				opt[i] := 0X;
				par.frame := Oberon.Par.frame; par.vwr := Oberon.Par.vwr;
				IF findPC THEN
					LOOP
						Oberon.GetSelection(ft, fbeg, fend, ftime);
						IF ftime >= 0 THEN
							Texts.OpenScanner(fs, ft, fbeg); Texts.Scan(fs);
							IF fs.class = Texts.Int THEN breakpc := fs.i; EXIT END
						END;
						Texts.WriteString(fw, "  pc not selected"); Texts.WriteLn(fw);
						Texts.Append(Oberon.Log, fw.buf); error := TRUE; RETURN
					END;
					Texts.OpenReader(sourceR, t, beg);
					Compiler.Module(sourceR, opt, breakpc, Oberon.Log, error);
				ELSE
					Texts.Write(w, OptionChar); Texts.WriteString(w, opt);
					Texts.Append(par.text, w.buf); Oberon.Call(command, par, FALSE, res)
				END
			END
		END Do;
		VAR
		t: Texts.Text;
		opt: ARRAY 20 OF CHAR; res: INTEGER; beg, end, time: LONGINT;
		findPC: BOOLEAN; i, j: INTEGER;
		PROCEDURE Do;
	BEGIN
		InitPar; i := 0;
		IF On ("idx") THEN opt[i] := "x"; INC(i) END; IF On ("type") THEN opt[i] := "t"; INC(i) END;
		IF On ("nil") THEN opt[i] := "n"; INC(i) END; IF On ("init") THEN opt[i] := "p"; INC(i) END;
		IF On ("assert") THEN opt[i] := "s"; INC(i) END;
		IF On ("pc") THEN findPC := TRUE; opt[i] := "f"; INC(i) ELSE findPC := FALSE END;
		opt[i] := 0X; j := i;
		IF On ("mrs") THEN 
			Oberon.GetSelection(t, beg, end, time); 
			IF findPC THEN 
				o := p.NamedObject("tpc"); t := o(DialogTexts.Item).GetText(); o(DialogTexts.Item).SetSelection(0, t.len)
			END;
			IF time >= 0 THEN Do END 
		END;
		IF findPC THEN 
			o := p.NamedObject("tpc"); t := o(DialogTexts.Item).GetText(); o(DialogTexts.Item).SetSelection(0, t.len)
		END;
		IF On ("marked") THEN 
			Texts.Write(w, "*"); Texts.Write(w, OptionChar); Texts.WriteString(w, opt); 
			Texts.Append(par.text, w.buf); par.vwr := Oberon.MarkedViewer(); 
			IF (par.vwr # NIL) & (par.vwr.dsc # NIL) & (par.vwr.dsc.next IS TextFrames.Frame) THEN 
				par.frame := par.vwr.dsc.next(TextFrames.Frame)
			ELSE
				par.frame := NIL
			END;
			Oberon.Call(command, par, FALSE, res)
		END;
		IF On ("list") THEN
			o := p.NamedObject("files"); t := o(DialogTexts.Item).GetText();
			IF t.len > 0 THEN beg := 0; end := t.len; Do END
		END;
		IF findPC THEN o := p.NamedObject("tpc"); o(DialogTexts.Item).RemoveSelection END
	END Comp;
Syntax10b.Scn.Fnt
Syntax10.Scn.Fnt
	BEGIN command := "Compiler.Compile"; Comp
	END Compile;
Syntax10.Scn.Fnt
	BEGIN command := "Folds.Compile"; Comp
	END FoldsCompile;
	PROCEDURE Comp;
	PROCEDURE Compile*;
	PROCEDURE FoldsCompile*;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
		VAR t: Texts.Text; beg, end, time: LONGINT;
	BEGIN
		XIn.GetSelectionViewer(vwr, t, beg, end, time);
		IF (vwr.dsc # NIL) & (vwr.dsc.next # NIL) & (vwr.dsc.next IS TextFrames.Frame) THEN
Out.String("$Storing selbeg and selend");
			selbeg := vwr.dsc.next(TextFrames.Frame).selbeg;
			selend := vwr.dsc.next(TextFrames.Frame).selend
		END
	END StoreSelection;
Syntax10.Scn.Fnt
	BEGIN
		IF (vwr.dsc # NIL) & (vwr.dsc.next # NIL) & (vwr.dsc.next IS TextFrames.Frame) THEN
Out.String("$Restoring selbeg and selend");
			vwr.dsc.next(TextFrames.Frame).selbeg := selbeg;
			vwr.dsc.next(TextFrames.Frame).selend := selend;
			vwr.dsc.next(TextFrames.Frame).hasSel := TRUE
		END
	END RestoreSelection;
Syntax10b.Scn.Fnt
Syntax10.Scn.Fnt
	BEGIN
		InitPar; Texts.WriteString(w, "adjust "); Write ("block"); Write ("center"); Write ("left"); Write ("right"); 
		Call ("Edit.Set");
	END Adjust;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "adjust"); Call ("Edit.Get");
		IF res = 0 THEN
			Scan (s, "adjust"); Texts.Scan(s); Texts.Scan(s); ChangeValue (s.s, TRUE)
		END; 
		Oberon.Log := oldLog
	END GetAdjust;
Syntax10.Scn.Fnt
	BEGIN InitPar; Texts.WriteString(w, "break "); Write ("before"); Write ("normal"); Call ("Edit.Set")
	END Break;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "break"); Call ("Edit.Get");
		IF res = 0 THEN
			Scan (s, "break"); Texts.Scan(s); Texts.Scan(s); ChangeValue (s.s, TRUE)
		END;
		Oberon.Log := oldLog
	END GetBreak;
Syntax10.Scn.Fnt
	BEGIN
		InitPar; Texts.WriteString(w, "columns ");
		IF On ("one") THEN Texts.WriteString(w, "1") ELSIF On ("two") THEN Texts.WriteString(w, "2") END;
		Call ("Edit.Set")
	END Columns;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "columns"); Call("Edit.Get");	
		IF res = 0 THEN
			Texts.OpenScanner(s, newLog, 0); Texts.Scan(s);
			WHILE ~s.eot & (s.class # Texts.Int) DO Texts.Scan(s) END;
			IF s.i = 1 THEN ChangeValue ("one", TRUE)
			ELSIF s.i = 2 THEN ChangeValue ("two", TRUE)
			END
		END;
		Oberon.Log := oldLog
	END GetColumns;
Syntax10.Scn.Fnt
		VAR number: INTEGER; 
	BEGIN
		InitPar; Texts.WriteString(w, "first "); WriteDefault ("firstdefault");
		IF On ("firstnumber") THEN In.Open; In.Int(number); Texts.WriteInt(w, number, 0) END;
		Call ("Edit.Set")	
	END First;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; txt: Texts.Text;
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "first"); Call("Edit.Get");	
		IF res = 0 THEN
			Scan (s, "int"); Delete ("tfirstnumber", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("firstnumber", TRUE)
			ELSE
				ChangeValue ("firstnumber", FALSE); ChangeValue ("firstdefault", FALSE);
			END
		END;
		Oberon.Log := oldLog
	END GetFirst;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue ("firstnumber", FALSE)
	END FirstReset;
Syntax10.Scn.Fnt
	BEGIN
		InitPar; Texts.WriteString(w, "grid "); 
		IF On ("grid") THEN Texts.WriteString(w, "on") ELSE Texts.WriteString(w, "off") END;
		Call ("Edit.Set")	
	END Grid;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "grid"); 
		Call ("Edit.Get");	
		IF res = 0 THEN
			Texts.OpenScanner(s, newLog, 0); Texts.Scan(s);
			WHILE ~s.eot & (s.s # "on") & (s.s # "off") DO Texts.Scan(s) END;
			IF s.s = "on" THEN ChangeValue("grid", TRUE)
			ELSE ChangeValue("grid", FALSE) END
		END;
		Oberon.Log := oldLog
	END GetGrid;
Syntax10.Scn.Fnt
	BEGIN
		InitPar; Texts.WriteString(w, "lead "); WriteDefault ("leaddef");
		IF On ("leadnumber") THEN Save ("tleadnumber") END;
		Call ("Edit.Set")
	END Lead;
Syntax10.Scn.Fnt
		VAR s: Texts.Scanner; txt: Texts.Text;
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "lead"); Call ("Edit.Get");
		IF res = 0 THEN
			Scan (s, "int"); Delete ("tleadnumber", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("leadnumber", TRUE)
			ELSE
				ChangeValue ("leadnumber", FALSE); ChangeValue ("leaddef", FALSE)
			END
		END;
		Oberon.Log := oldLog
	END GetLead;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue ("leadnumber", FALSE);
	END LeadReset;
Syntax10.Scn.Fnt
		VAR number: INTEGER; 
	BEGIN
		InitPar; Texts.WriteString(w, "left "); WriteDefault ("leftmargindef");
		IF On ("leftmargin") THEN In.Open; In.Int(number); Texts.WriteInt(w, number, 0) END;
		Call ("Edit.Set")	
	END Left;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "left");
		Call("Edit.Get");	
		IF res = 0 THEN
			Scan (s, "int"); Delete ("tleftmargin", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("leftmargin", TRUE)
			ELSE
				ChangeValue ("leftmargin", FALSE); ChangeValue ("leftmargindef", FALSE)
			END
		END;
		Oberon.Log := oldLog
	END GetLeft;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue ("leftmargin", FALSE)
	END LeftReset;
Syntax10.Scn.Fnt
	VAR number: INTEGER;
	BEGIN
		InitPar; Texts.WriteString(w, "right "); WriteDefault ("rightmargindef");
		IF On ("rightmargin") THEN In.Open; In.Int(number); Texts.WriteInt(w, number, 0) END;
		Call ("Edit.Set")	
	END Right;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "right");
		Call ("Edit.Get");
		IF res = 0 THEN
			Scan (s, "int"); Delete ("trightmargin", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("rightmargin", TRUE)
			ELSE
				ChangeValue ("rightmargin", FALSE); ChangeValue ("rightmargindef", FALSE);
			END
		END;
		Oberon.Log := oldLog
	END GetRight;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue ("rightmargin", FALSE)
	END RightReset;
Syntax10.Scn.Fnt
	BEGIN
		InitPar; Texts.WriteString (w, "line"); WriteDefault ("linedef");
		IF On ("linenumber") THEN Save ("tenum") END;			
		Call("Edit.Set")	
	END Line;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "line");
		Call("Edit.Get");	
		IF res = 0 THEN
			Scan (s, "int"); Delete ("tlinenumber", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("linenumber", TRUE)
			ELSE
				ChangeValue ("linenumber", FALSE); ChangeValue ("linedef", FALSE)
			END
		END;
		Oberon.Log := oldLog
	END GetLine;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue ("linenumber", FALSE)
	END LineReset;
Syntax10.Scn.Fnt
		VAR number: INTEGER;
	BEGIN
		InitPar; Texts.WriteString(w, "tabs "); 
		IF On ("every") THEN 
			In.Open; In.Int(number); Texts.WriteString(w, "* "); Texts.WriteInt(w, number, 0);
		ELSE
			IF On ("enum") THEN
				In.Open; In.Int(number);
				REPEAT Texts.WriteInt(w, number, 0); Texts.Write(w, " "); In.Int(number) UNTIL ~In.Done;
				Texts.WriteString(w, " ~")
			END
		END;
		Call ("Edit.Set")
	END Tabs;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; s: Texts.Scanner; ch: CHAR; Star: BOOLEAN;
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "tabs");
		Call ("Edit.Get");
		IF res = 0 THEN
			Texts.OpenReader(s, newLog, 0); Texts.Read(s, ch);
			WHILE ~s.eot & (ch # "*") DO Texts.Read(s, ch) END;
			Star := ch = "*"; Scan (s, "int");
			IF Star THEN Delete("tevery", txt) ELSE Delete("tenum", txt) END;
			REPEAT 
				IF s.class = Texts.Int THEN Texts.WriteInt(w, s.i, 0); Texts.Write(w, " ") END; Texts.Scan(s)
			UNTIL s.eot OR (s.class # Texts.Int);
			Texts.Append(txt, w.buf);
			IF Star THEN ChangeValue ("every", TRUE) ELSE ChangeValue ("enum", TRUE) END
		END;
		Oberon.Log := oldLog
	END GetTabs;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue("every", FALSE)
	END TabsReset1;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue("enum", FALSE)
	END TabsReset2;
Syntax10.Scn.Fnt
		VAR number: INTEGER;
	BEGIN
		InitPar; Texts.WriteString(w, "width  ");
		IF On ("widthdef") THEN Texts.WriteString(w, "default") END;
		IF On ("width") THEN In.Open; In.Int(number); Texts.WriteInt(w, number, 0) END;
		Call("Edit.Set")	
	END Width;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; s: Texts.Scanner; 
	BEGIN
		InitPar; StoreLog; Texts.WriteString(w, "width");
		Call ("Edit.Get");
		IF res = 0 THEN
			Scan (s, "int"); Delete ("twidth", txt);
			IF s.class = Texts.Int THEN
				Texts.WriteInt(w, s.i, 0); Texts.Append(txt, w.buf); ChangeValue ("width", TRUE)
			ELSE
				ChangeValue ("width", FALSE); ChangeValue ("widthdef", FALSE)
			END
		END;
		Oberon.Log := oldLog
	END GetWidth;
Syntax10.Scn.Fnt
	BEGIN p := Dialogs.cmdPanel; ChangeValue("width", FALSE)
	END WidthReset;
Syntax10.Scn.Fnt
		VAR prev, next: StyleElem; new: StyleElems.Parc;
	BEGIN
		next := styleElems; prev := styleElems;
		WHILE (next # NIL) & (next.styleElem.name # n) DO
			prev := next; next := next.next
		END;
		IF next # NIL THEN
			NEW(new); StyleElems.Copy(next.styleElem, new);
(*			IF prev = next THEN styleElems := next.next ELSE prev.next := next.next END*)
		END;
		RETURN new
	END ThisStyleElem;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			BEGIN
				Texts.Delete(t, Texts.Pos(r) - 1, Texts.Pos(r));
				Texts.WriteElem(w, styleElem);
				Texts.Insert(t, Texts.Pos(r) - 1, w.buf);
			END Replace;
		VAR t, title: Texts.Text; beg, end, time: LONGINT; r: Texts.Reader; elem: Texts.Elem;
			s: Texts.Scanner; styleElem, newElem: StyleElems.Parc; f: TextFrames.Frame;
			PROCEDURE Replace (VAR t: Texts.Text; VAR r: Texts.Reader; styleElem: StyleElems.Parc);
	BEGIN
		Oberon.GetSelection(t, beg, end, time);
		f := XIn.FocusFrame(TRUE);
		InitPar;
		o := p.NamedObject("styles"); title := o(DialogComboBoxes.Item).GetTitle();
		Texts.OpenScanner(s, title, 0); Texts.Scan(s);
		IF time >= 0 THEN
			Texts.OpenReader(r, t, beg); Texts.ReadElem(r);
			IF (s.class IN {Texts.Name, Texts.String}) & ~r.eot THEN
				elem := r.elem;
				WITH elem: StyleElems.Parc DO
					styleElem := ThisStyleElem(s.s);
					IF styleElem = NIL THEN
						Texts.WriteString(w, s.s); Call("StyleElems.Rename") 
					ELSE 
						Replace(t, r, styleElem) 
					END;
				| elem: TextFrames.Parc DO
					styleElem := ThisStyleElem(s.s);
					IF styleElem = NIL THEN
						NEW(styleElem); ParcElems.CopyParc(elem, styleElem); 
						styleElem.handle := StyleElems.Handle; COPY(s.s, styleElem.name);
					END;
					Replace(t, r, styleElem)
				ELSE
				END
			END;
		ELSE (* insert a style elem of the selected type at the caret position *)
			IF (s.class IN {Texts.Name, Texts.String}) & (f # NIL) THEN
				styleElem := ThisStyleElem(s.s); NEW(newElem);
				StyleElems.Copy(styleElem, newElem);
				Texts.WriteElem(w, newElem);
				Texts.Insert(f.text, f.carloc.pos, w.buf)				
			END
		END
	END Style;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
				VAR elem, next: StyleElem;
			BEGIN
				Texts.OpenReader(r, t, 0); Texts.ReadElem(r);
				WHILE ~r.eot DO
					IF r.elem IS StyleElems.Parc THEN
						next := styleElems;
						WHILE (next # NIL) & (next.styleElem.name # r.elem(StyleElems.Parc).name) DO
							next := next.next
						END;
						IF next = NIL THEN	(* not yet contained => insert *)
							Texts.WriteString(w, r.elem(StyleElems.Parc).name); Texts.Write(w, 0DX);
							NEW(elem); elem.styleElem := r.elem(StyleElems.Parc);
							elem.next := styleElems; styleElems := elem
						END	
					END;
					Texts.ReadElem(r)
				END
			END AddStyles;
Syntax10i.Scn.Fnt
		VAR t, t2, t3, menu: Texts.Text; beg, end, time: LONGINT;r: Texts.Reader; 
			PROCEDURE AddStyles (t: Texts.Text);
	BEGIN
		Oberon.GetSelection(t, beg, end, time);
		IF time >= 0 THEN
			p := Dialogs.cmdPanel; o := p.NamedObject ("styles"); 
			menu := o(DialogComboBoxes.Item).menu; Texts.Delete(menu, 0, menu.len);
			Texts.OpenReader(r, t, beg); Texts.ReadElem(r);
			IF ~r.eot & (Texts.Pos(r) <= end) THEN
				IF r.elem IS StyleElems.Parc THEN 
					t2 := o(DialogComboBoxes.Item).GetTitle(); Texts.Delete(t2, 0, t2.len);
					Texts.WriteString(w, r.elem(StyleElems.Parc).name); Texts.Append(t2, w.buf);
Out.Ln; Out.String("Setting title to: "); Out.String(r.elem(StyleElems.Parc).name);
				END
			END;
			styleElems := NIL; (* remember the styleElems in the text with the selection and in Styles.Text *)
			AddStyles(t);
			t := TextFrames.Text(""); Texts.Open(t, "Styles.Text"); AddStyles(t);
			Texts.Append(menu, w.buf)
		END
	END GetStyles;
Syntax10.Scn.Fnt
	BEGIN 
		GetAdjust; GetBreak; GetColumns; GetFirst; GetGrid; GetLeft; GetRight; 
		GetWidth; GetTabs; GetLead; GetLine; GetStyles
	END GetAll;
(*TD	PROCEDURE StoreSelection;
	PROCEDURE RestoreSelection;
	PROCEDURE Adjust*;
	PROCEDURE GetAdjust*;
	PROCEDURE Break*;
	PROCEDURE GetBreak*;
	PROCEDURE Columns*;
	PROCEDURE GetColumns*;
	PROCEDURE First*;
	PROCEDURE GetFirst*;
	PROCEDURE FirstReset*;
	PROCEDURE Grid*;
	PROCEDURE GetGrid*;
	PROCEDURE Lead*;
	PROCEDURE GetLead*;
	PROCEDURE LeadReset*;
	PROCEDURE Left*;
	PROCEDURE GetLeft*;
	PROCEDURE LeftReset*;
	PROCEDURE Right*;
	PROCEDURE GetRight*;
	PROCEDURE RightReset*;
	PROCEDURE Line*; 
	PROCEDURE GetLine*;
	PROCEDURE LineReset*;
	PROCEDURE Tabs*;
	PROCEDURE GetTabs*;
	PROCEDURE TabsReset1*;
	PROCEDURE TabsReset2*;
	PROCEDURE Width*;
	PROCEDURE GetWidth*;
	PROCEDURE WidthReset*;
	PROCEDURE ThisStyleElem (VAR n: ARRAY OF CHAR): StyleElems.Parc;
	PROCEDURE Style*;
	PROCEDURE GetStyles*;
	PROCEDURE GetAll*;
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			VAR t: Texts.Text;
		BEGIN
			t := o(DialogTexts.Item).GetText(); Texts.Delete(t, 0, t.len);
			Texts.WriteInt(w, l, 0); Texts.Append(t, w.buf)
		END WriteNumber;
Syntax10.Scn.Fnt
			VAR w: Texts.Writer; t: Texts.Text; i: INTEGER;
		BEGIN
			t := o(DialogTexts.Item).GetText(); Texts.Delete(t, 0, t.len);
			i := 0; 
			WHILE s[i] # 0X DO Texts.Write(w, s[i]); INC(i) END;
		END WriteName;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
				VAR t: Texts.Text; l: LONGINT;
			BEGIN
				Files.ReadLInt(r, l);
				t := o(DialogTexts.Item).GetText(); Texts.Delete(t, 0, t.len);
				Texts.WriteInt(w, l, 0); Texts.Append(t, w.buf)
			END WriteNumber;
Syntax10.Scn.Fnt
				VAR w: Texts.Writer; t: Texts.Text; ch: CHAR;
			BEGIN
				t := o(DialogTexts.Item).GetText(); Texts.Delete(t, 0, t.len);
				Files.Read(r, ch); Texts.OpenWriter(w);
				WHILE ch # 0X DO Texts.Write(w, ch); Files.Read(r, ch) END;
			END WriteName;
		VAR r: Files.Rider; f: Files.File; b: BOOLEAN; o: Dialogs.Object;
			PROCEDURE WriteNumber(o: Dialogs.Object);
			PROCEDURE WriteName(o: Dialogs.Object);
	BEGIN
		f := Files.Old(PrintOptionsFile);
		IF f # NIL THEN
			p := Dialogs.cmdPanel; Files.Set(r, f, 0);
			Files.ReadBool (r, b); ChangeValue ("alternate", b); Files.ReadBool (r, b); ChangeValue ("nopagenr", b);
			Files.ReadBool (r, b); ChangeValue ("nopagenr1", b); Files.ReadBool (r, b); ChangeValue ("Romanum", b);
			Files.ReadBool (r, b); ChangeValue ("draft", b);
			o := p.NamedObject("tfirstpage"); WriteNumber(o); o := p.NamedObject("copies"); WriteNumber(o);
			o := p.NamedObject("font"); WriteName(o);
			Files.ReadBool (r, b); ChangeValue ("nohdr", b); Files.ReadBool (r, b); ChangeValue ("defhdr", b);
			Files.ReadBool (r, b); ChangeValue ("header", b);
			o := p.NamedObject("thdr"); WriteName(o);
			Files.ReadBool (r, b); ChangeValue ("custom1", b); Files.ReadBool (r, b); ChangeValue ("default1", b);
			o := p.NamedObject("postxtleft"); WriteNumber(o); o := p.NamedObject("postxtbottom"); WriteNumber(o);
			o := p.NamedObject("txtwidth"); WriteNumber(o); o := p.NamedObject("txtheight"); WriteNumber(o);
			Files.ReadBool (r, b); ChangeValue ("custom2", b); Files.ReadBool (r, b); ChangeValue ("default2", b);
			o := p.NamedObject("poshdrleft"); WriteNumber(o); o := p.NamedObject("poshdrbottom"); WriteNumber(o);
			o := p.NamedObject("hdrwidth"); WriteNumber(o);
			Files.ReadBool (r, b); ChangeValue ("fromto", b); Files.ReadBool (r, b); ChangeValue ("all", b);
			o := p.NamedObject("from"); WriteNumber(o); o := p.NamedObject("to"); WriteNumber(o)
		ELSE SetDefaultOptions END;
	END InitPrintDlg;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			VAR s: Texts.Scanner; t: Texts.Text; l: LONGINT;
		BEGIN
			t := o(DialogTexts.Item).GetText(); l := 0;
			IF t.len > 0 THEN
				Texts.OpenScanner(s, t, 0); Texts.Scan(s); IF s.class = Texts.Int THEN l := s.i END
			END;
			Files.WriteLInt(r, l)		
		END WriteNumber;
Syntax10.Scn.Fnt
			VAR rt: Texts.Reader; t: Texts.Text; ch: CHAR;
		BEGIN
			t := o(DialogTexts.Item).GetText();
			Texts.OpenReader(rt, t, 0); Texts.Read(rt, ch);
			WHILE ~rt.eot DO Files.Write(r, ch); Texts.Read(rt, ch) END;
			Files.Write(r, 0X)		
		END WriteName;
	VAR r: Files.Rider; f: Files.File;
		PROCEDURE WriteNumber(o: Dialogs.Object);
		PROCEDURE WriteName(o: Dialogs.Object);
	BEGIN
		f := Files.New(PrintOptionsFile); Files.Set(r, f, 0);
		p := Dialogs.cmdPanel;
		o := p.NamedObject("alternate"); Files.WriteBool(r, o(DialogCheckBoxes.Item).on);
		o := p.NamedObject("nopagenr"); Files.WriteBool(r, o(DialogCheckBoxes.Item).on);
		o := p.NamedObject("nopagenr1"); Files.WriteBool(r, o(DialogCheckBoxes.Item).on);
		o := p.NamedObject("Romannum"); Files.WriteBool(r, o(DialogCheckBoxes.Item).on);
		o := p.NamedObject("draft"); Files.WriteBool(r, o(DialogCheckBoxes.Item).on);
		o := p.NamedObject("tfirstpage"); WriteNumber(o);
		o := p.NamedObject("copies"); WriteNumber(o);
		o := p.NamedObject("font"); WriteName(o);
		o := p.NamedObject("nohdr"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("defhdr"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("header"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("thdr"); WriteName(o);
		o := p.NamedObject("custom1"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("default1"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("postxtleft"); WriteNumber(o);
		o := p.NamedObject("postxtbottom"); WriteNumber(o);
		o := p.NamedObject("txtwidth"); WriteNumber(o);
		o := p.NamedObject("txtheight"); WriteNumber(o);
		o := p.NamedObject("custom2"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("default2"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("poshdrleft"); WriteNumber(o);
		o := p.NamedObject("poshdrbottom"); WriteNumber(o);
		o := p.NamedObject("hdrwidth"); WriteNumber(o);
		o := p.NamedObject("fromto"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("all"); Files.WriteBool(r, o(DialogRadioButtons.Item).on);
		o := p.NamedObject("from"); WriteNumber(o);
		o := p.NamedObject("to"); WriteNumber(o);
		Files.Register(f)
	END SaveOptions;
Syntax10.Scn.Fnt
		VAR t: Texts.Text; o: Dialogs.Object; 
	BEGIN
		InitPar; Texts.WriteString(w, "QuickDraw * ");
		IF On ("draft") THEN Texts.WriteString(w, "% ") END;
		IF On ("alternate") THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "a ") END;
		IF On ("nopagenr") THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "p n ") END;
		IF On ("nopagenr1") THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "p f ") END;
		IF On ("Romannum") THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "p r ") END;
		o := p.NamedObject("tfirstpage"); t := o(DialogTexts.Item).GetText();
		IF t.len > 0 THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "p ");Texts.Save(t, 0, t.len, w.buf); Texts.Write(w, " ") END;
		o := p.NamedObject("font"); t := o(DialogTexts.Item).GetText();
		IF t.len > 0 THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "f "); Texts.Save(t, 0, t.len, w.buf); Texts.Write(w, " ") END;
		o := p.NamedObject("copies"); t := o(DialogTexts.Item).GetText();
		IF t.len > 0 THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "c "); Texts.Save(t, 0, t.len, w.buf); Texts.Write(w, " ") END;
		IF On ("defhdr") THEN Texts.Write(w, OptionChar); Texts.WriteString(w, "h ") END;
		IF On ("header") THEN 		
			Texts.Write(w, OptionChar); Texts.WriteString(w, "h "); Save ("thdr"); Texts.Write(w, " ")
		END;
		IF On ("custom1") THEN 
			Texts.Write(w, OptionChar); Texts.WriteString(w, "m b "); 
			Save ("postxtleft"); Texts.Write(w, " "); Save ("postxtbottom"); Texts.Write(w, " ");
			Save ("txtwidth"); Texts.Write(w, " "); Save ("txtheight"); Texts.Write(w, " ")
		END;
		IF On ("custom2") THEN 
			Texts.Write(w, OptionChar); Texts.WriteString(w, "m h "); Save ("poshdrleft"); Texts.Write(w, " ");
			Save ("poshdrbottom"); Texts.Write(w, " "); Save ("hdrwidth"); Texts.Write(w, " ")
		END;
		IF On ("fromto") THEN 
			Texts.Write(w, OptionChar); Texts.WriteString(w, "s ");
			o := p.NamedObject("from"); t := o(DialogTexts.Item).GetText(); IF t.len > 0 THEN Texts.Save(t, 0, t.len, w.buf) END;
			Texts.Write(w, " ");
			o := p.NamedObject("to"); t := o(DialogTexts.Item).GetText(); IF t.len > 0 THEN Texts.Save(t, 0, t.len, w.buf) END
		END;
		Call ("Edit.Print")
	END Print;
	PROCEDURE SetDefaultOptions*;
		VAR o: Dialogs.Object;
		PROCEDURE WriteNumber(o: Dialogs.Object; l: LONGINT);
		PROCEDURE WriteName(o: Dialogs.Object; s: ARRAY OF CHAR);
	BEGIN
		p := Dialogs.cmdPanel;
		ChangeValue ("alternate", FALSE); ChangeValue ("nopagenr", FALSE);
		ChangeValue ("nopagenr1", FALSE); ChangeValue ("Romannum", FALSE);
		ChangeValue ("draft", FALSE); 
		o := p.NamedObject("tfirstpage"); WriteNumber(o, 0);
		o := p.NamedObject("copies"); WriteNumber(o, 1);
		o := p.NamedObject("font"); WriteName(o, "");
		ChangeValue ("nohdr", FALSE); ChangeValue ("defhdr", TRUE);
		ChangeValue ("header", FALSE); ChangeValue ("custom1", FALSE);
		o := p.NamedObject("thdr"); WriteName(o, "");
		ChangeValue ("default1", TRUE); ChangeValue ("custom2", FALSE);
		o := p.NamedObject("postxtleft"); WriteNumber(o, 150);
		o := p.NamedObject("postxtbottom"); WriteNumber(o, 150);
		o := p.NamedObject("txtwidth"); WriteNumber(o, 1650);
		o := p.NamedObject("txtheight"); WriteNumber(o, 2600);
		o := p.NamedObject("poshdrleft"); WriteNumber(o, 150);
		o := p.NamedObject("poshdrbottom"); WriteNumber(o, 2800);
		o := p.NamedObject("hdrwidth"); WriteNumber(o, 1650);
		ChangeValue ("default2", TRUE); ChangeValue ("fromto", FALSE); ChangeValue ("all", TRUE);
		o := p.NamedObject("from"); WriteNumber(o, 0);
		o := p.NamedObject("to"); WriteName(o, "");
	END SetDefaultOptions;
	PROCEDURE InitPrintDlg*;
	PROCEDURE SaveOptions*;
	PROCEDURE Print*;
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
		VAR res: INTEGER; t: Texts.Text; o: Dialogs.Object;
	BEGIN
		p := Dialogs.cmdPanel; o := p.NamedObject("search"); t := o(DialogTexts.Item).GetText();
		o(DialogTexts.Item).SetSelection(0, t.len);
		IF On ("folds") THEN Oberon.Call("FoldElems.Search", Oberon.Par, FALSE, res)
		ELSE Oberon.Call("Edit.Search", Oberon.Par, FALSE, res)
		END;
		o(DialogTexts.Item).RemoveSelection;
		doSearch := FALSE
	END Search;
Syntax10.Scn.Fnt
		VAR res: INTEGER; t: Texts.Text; o: Dialogs.Object; f: TextFrames.Frame;
	BEGIN
		f := XIn.FocusFrame(TRUE);
		IF f # NIL THEN 
			p := Dialogs.cmdPanel; 
			IF doSearch THEN
				doSearch := FALSE;
				o := p.NamedObject("search"); t := o(DialogTexts.Item).GetText();
				o(DialogTexts.Item).SetSelection(0, t.len);
				IF On ("folds") THEN Oberon.Call("FoldElems.Search", Oberon.Par, FALSE, res)
				ELSE Oberon.Call("Edit.Search", Oberon.Par, FALSE, res)
				END;
				o(DialogTexts.Item).RemoveSelection;
			END;
			o := p.NamedObject("repl"); t := o(DialogTexts.Item).GetText();
			IF t.len = 0 THEN 
				Oberon.Call("Edit.ClearReplaceBuffer", Oberon.Par, FALSE, res)
			ELSE
				o(DialogTexts.Item).SetSelection(0, t.len)
			END;
			IF On ("all") THEN Oberon.Call("Edit.ReplaceAll", Oberon.Par, FALSE, res)
			ELSE Oberon.Call("Edit.Replace", Oberon.Par, FALSE, res)
			END;
			o(DialogTexts.Item).RemoveSelection
		END
	END Replace;
Syntax10.Scn.Fnt
	BEGIN doSearch := TRUE
	END SearchReset;
	PROCEDURE Search*;
	PROCEDURE Replace*;
	PROCEDURE SearchReset*;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
		VAR t: Texts.Text; beg, end, time: LONGINT; r: Texts.Reader; type: Types.Type;
			s: ARRAY 64 OF CHAR; i, j: INTEGER;
	BEGIN
		Oberon.GetSelection(t, beg, end, time);
		IF time >= 0 THEN
			Texts.OpenReader(r, t, beg); Texts.ReadElem(r);
			IF ~r.eot THEN
				type := Types.TypeOf(r.elem);
				p := Dialogs.cmdPanel; o := p.NamedObject("type");
				i := 0; WHILE type.module.name[i] # 0X DO s[i] := type.module.name[i]; INC(i) END; s[i] := "."; INC(i);
				j := i; WHILE type.name[j - i] # 0X DO s[j] := type.name[j - i]; INC(j) END; s[j] := 0X;
				o(DialogStaticTexts.Item).SetString(s)
			END
		END
	END GetType;
PROCEDURE GetType*;
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
		VAR var: Var; txt: Texts.Text;
	BEGIN
		NEW(var); var.next := vars; vars := var; COPY(n, var.name); var.value := value;
		p := Dialogs.cmdPanel; o := p.NamedObject("gset"); txt := o(DialogComboBoxes.Item).menu;
		Texts.WriteString(w, n); Texts.Write(w, 0DX);
		Texts.Append(txt, w.buf);
	END AddVar;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			VAR x, y: LONGINT; i: INTEGER;
				a: ARRAY 10 OF CHAR;
		BEGIN x := ENTIER(n + eps0);
			i := 0; Texts.Write(w, " ");
			REPEAT y := x MOD 10H;
				IF y < 10 THEN a[i] := CHR(y + 30H) ELSE a[i] := CHR(y + 37H) END;
				x := x DIV 10H; INC(i)
			UNTIL i = 8;
			REPEAT DEC(i) UNTIL (i = 0) OR (a[i] # "0");
			IF a[i] >= "A" THEN Texts.Write(w, "0") END;
			WHILE i >= 0 DO Texts.Write(w, a[i]); DEC(i) END;
			Texts.Write(w, "H")
		END WrHex; 
Syntax10.Scn.Fnt
			VAR x: LONGINT; i: INTEGER;
				a: ARRAY 30 OF CHAR;
		BEGIN x := ENTIER(n + eps0);
			i := 0; Texts.Write(w, " ");
			REPEAT
				a[i] := CHR(ORD("0") + (x MOD 2));
				x := x DIV 2; INC(i)
			UNTIL i = 28;
			REPEAT DEC(i) UNTIL (i = 0) OR (a[i] # "0");
			WHILE i >= 0 DO Texts.Write(w, a[i]); DEC(i) END;
			Texts.Write(w, "B")
		END WrBin;
Syntax10.Scn.Fnt
			VAR x, y: LONGINT; i: INTEGER;
				a: ARRAY 16 OF CHAR;
		BEGIN x := ENTIER(n + eps0);
			i := 0; Texts.Write(w, " ");
			REPEAT y := x MOD 8;
				a[i] := CHR(y + 30H);
				x := x DIV 8; INC(i)
			UNTIL i = 14;
			REPEAT DEC(i) UNTIL (i = 0) OR (a[i] # "0");
			WHILE i >= 0 DO Texts.Write(w, a[i]); DEC(i) END;
			Texts.Write(w, "C")
		END WrOct; 
Syntax10.Scn.Fnt
			BEGIN Texts.Write(w, " "); Texts.WriteInt(w, ENTIER(n + eps0), 0) END WrInt; 
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
				BEGIN Texts.Write(w, ch) END Ch;
			VAR ch: CHAR;
			PROCEDURE Ch (ch: CHAR);
		BEGIN ch := CHR(ENTIER(n + eps0));
			IF (" " <= ch) & (ch < 7FX) OR (80X <= ch) & (ch < 0A0X) THEN Ch(" "); Ch(22X); Ch(ch); Ch(22X)
			ELSE WrHex(ORD(ch))
			END
		END WrChar; 
Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
			VAR x: LONGREAL;
		BEGIN
			IF (MIN(LONGINT) <= n) & (n <= MAX(LONGINT)) THEN 
				x := ABS(n - ENTIER(SHORT(n)));
				IF x < eps THEN WrInt(n); RETURN END
			END;
			IF (MIN(REAL) <= n) & (n <= MAX(REAL)) THEN x := ABS(n - SHORT(n));
				IF x < eps THEN
					IF (-10000 < n) & (n < 10000) THEN Texts.WriteRealFix(w, SHORT(n + eps0), 0, 6)
					ELSE Texts.WriteReal(w, SHORT(n + eps0), 14)
					END;
					RETURN
				END
			END;
			Texts.WriteLongReal(w, n, 23)
		END WrReal; 
		VAR r: Texts.Reader; txt: Texts.Text; i: INTEGER; str: ARRAY 32 OF CHAR;
			s: Texts.Scanner;
		PROCEDURE WrHex (n: LONGREAL);
		PROCEDURE WrBin (n: LONGREAL);
		PROCEDURE WrOct (n: LONGREAL);
		PROCEDURE WrInt (n: LONGREAL);
		PROCEDURE WrChar (n: LONGREAL);
		PROCEDURE WrReal (n: LONGREAL);
	BEGIN
		p := Dialogs.cmdPanel; IF p = NIL THEN RETURN END;
		o := p.NamedObject("mode"); IF o = NIL THEN RETURN END;
		txt := o(DialogComboBoxes.Item).GetTitle();
		Texts.OpenScanner(s, txt, 0); Texts.Scan(s);
		IF s.s = "hex" THEN WrHex(value)
		ELSIF s.s = "bin" THEN WrBin(value)
		ELSIF s.s = "oct" THEN WrOct(value)
		ELSIF s.s = "dec" THEN WrInt(value)
		ELSIF s.s = "char" THEN WrChar(value)
		ELSE WrReal(value) END;
		txt := TextFrames.Text(""); Texts.Append(txt, w.buf); Texts.OpenReader(r, txt, 0); i := 0;
		REPEAT
			Texts.Read(r, str[i]);
			INC(i)
		UNTIL r.eot;
		str[i - 1] := 0X;
		o := p.NamedObject("t1"); o(DialogStaticTexts.Item).SetString(str)
	END ShowNumber;
Syntax10.Scn.Fnt
	BEGIN 
		oldValue := 0; value := 0; commaPos := 10; 
		oldOp := "add";
		newNumber := TRUE;
		ShowNumber;
	END Clear;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text;
	BEGIN 
		Clear; 
		p := Dialogs.cmdPanel; IF p = NIL THEN RETURN END;
		o := p.NamedObject("gset");  IF o = NIL THEN RETURN END;
		txt := o(DialogComboBoxes.Item).menu; Texts.Delete(txt, 0, txt.len);
		vars := NIL;
		AddVar("pi", MathL.pi);
		AddVar("e", MathL.e);
		o := p.NamedObject("gset");
		txt := TextFrames.Text(""); o(DialogComboBoxes.Item).SetTitle(txt)
	END Reset;
Syntax10.Scn.Fnt
		VAR i, base: INTEGER; txt: Texts.Text; s: Texts.Scanner;
	BEGIN
		In.Open; In.Int(i);
		p := Dialogs.cmdPanel; o := p.NamedObject("mode"); txt := o(DialogComboBoxes.Item).GetTitle();
		Texts.OpenScanner(s, txt, 0); Texts.Scan(s);
		IF s.s = "hex" THEN base := 16
		ELSIF s.s = "bin" THEN base := 2
		ELSIF s.s = "oct" THEN base := 8
		ELSE base := 10 END;
		IF newNumber THEN
			newNumber := FALSE;
			value := i
		ELSIF commaPos > 1 THEN
			value := base * value + i
		ELSE
			commaPos := commaPos / base;
			value := value + commaPos * i
		END;
		ShowNumber
	END Num;
Syntax10.Scn.Fnt
		BEGIN commaPos := 1 END Comma;
Syntax10.Scn.Fnt
FoldElems
Syntax10.Scn.Fnt
			VAR o: Dialogs.Object;
		BEGIN
			o := p.NamedObject("inv");
			RETURN o(DialogCheckBoxes.Item).on
		END Invers;
Syntax10.Scn.Fnt
		BEGIN
			IF op = "add" THEN value := oldValue + value; oldValue := value
			ELSIF op = "sub" THEN value := oldValue - value; oldValue := value
			ELSIF op = "mult" THEN value := oldValue * value; oldValue := value
			ELSIF op = "div" THEN value := oldValue / value; oldValue := value
			ELSIF op = "sign" THEN value := - value
			ELSIF op = "oneDivX" THEN value := 1 / value
			ELSIF op = "sqr" THEN IF ~Invers() THEN value := value * value ELSE value := MathL.sqrt(value) END
			ELSIF op = "sin" THEN IF ~Invers() THEN value := MathL.sin(value) ELSE value := MoreMathL.arcsin(value) END
			ELSIF op = "cos" THEN IF ~Invers() THEN value := MathL.cos(value) ELSE value := MoreMathL.arccos(value) END
			ELSIF op = "tan" THEN IF ~Invers() THEN value := MoreMathL.tan(value) ELSE value := MathL.arctan(value) END
			ELSIF op = "exp" THEN IF ~Invers() THEN value := MathL.exp(value) ELSE value := MathL.ln(value) END
			ELSE Out.Ln; Out.String("unexpected operator: "); Out.String(op) END;
		END OpLocal;
		PROCEDURE Invers(): BOOLEAN;
		PROCEDURE OpLocal(op: Operation);
	BEGIN
		In.Open; 
		In.Name(op);
		IF (op = "add") OR (op = "sub") OR (op = "mult") OR (op = "div") OR (op = "res") THEN 
			OpLocal(oldOp);
			IF op # "=" THEN oldOp := op END
		ELSE OpLocal(op) END;
		commaPos := 10; newNumber := TRUE;
		ShowNumber
	END Op;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; r: Texts.Reader; i: INTEGER; var: Var;
	BEGIN
		p := Dialogs.cmdPanel; o := p.NamedObject("set"); txt := o(DialogTexts.Item).GetText();
		NEW(var); var.next := NIL; var.value := value;
		Texts.OpenReader(r, txt, 0); i := 0; Texts.Read(r, var.name[i]);
		WHILE ~r.eot DO
			INC(i);
			Texts.Read(r, var.name[i])
		END;
		o := p.NamedObject("gset"); txt := o(DialogComboBoxes.Item).menu;
		Texts.WriteString(w, var.name); Texts.Write(w, 0DX);
		Texts.Append(txt, w.buf);
		var.next := vars; vars := var
	END SetVar;
Syntax10.Scn.Fnt
		VAR txt: Texts.Text; cur: Var; s: ARRAY 32 OF CHAR; r: Texts.Reader; i: INTEGER;
	BEGIN
		p := Dialogs.cmdPanel; o := p.NamedObject("gset"); txt := o(DialogComboBoxes.Item).GetTitle();
		Texts.OpenReader(r, txt, 0); i := 0; Texts.Read(r, s[i]);
		WHILE ~r.eot & (s[i] # 0DX) DO
			INC(i);
			Texts.Read(r, s[i])
		END;
		s[i] := 0X;
		cur := vars;
		WHILE (cur # NIL) & (cur.name # s) DO cur := cur.next END;
		IF (cur # NIL) & (cur.name = s) THEN value := cur.value; ShowNumber END
	END Variable;
Syntax10.Scn.Fnt
		VAR menu, title: Texts.Text;
	BEGIN
		Reset;
		p := Dialogs.cmdPanel; o := p.NamedObject("mode"); menu := o(DialogComboBoxes.Item).menu;
		Texts.WriteString(w, "dec"); Texts.Write(w, 0DX);
		Texts.WriteString(w, "bin"); Texts.Write(w, 0DX);
		Texts.WriteString(w, "oct"); Texts.Write(w, 0DX);
		Texts.WriteString(w, "hex"); Texts.Write(w, 0DX);
		Texts.WriteString(w, "real"); Texts.Write(w, 0DX);
		Texts.WriteString(w, "char"); Texts.Write(w, 0DX);
		Texts.Append(menu, w.buf);
		title := TextFrames.Text(""); Texts.WriteString(w, "dec"); Texts.Append(title, w.buf);
		o(DialogComboBoxes.Item).SetTitle(title)
	END InitCalc;
	PROCEDURE AddVar* (n: ARRAY OF CHAR; value: LONGREAL);
	PROCEDURE ShowNumber*;
	PROCEDURE Clear*;
	PROCEDURE Reset*;
	PROCEDURE Num*;
	PROCEDURE Comma*; 
	PROCEDURE Op*;
	PROCEDURE SetVar*;
	PROCEDURE Variable*;
	PROCEDURE InitCalc*;
MODULE MyUI;	
	(* Christoph Steindl 20 Dec 94 - 
	(* Folds.Compile XIn.Mod/s MoreMathL.Mod/s MyUI.Mod/s ~ *)
IMPORT Dialogs, Oberon, Texts, TextFrames, DialogCheckBoxes, DialogRadioButtons, DialogComboBoxes,
		DialogTexts, In, Out, Compiler, Files, MenuViewers, Viewers, Display, StyleElems, ParcElems, Types,
		DialogStaticTexts, MathL, MoreMathL, XIn;
Constants
Types
Global variables
common procedures
Commands for the dialogue Compiler.Dlg
Commands for the dialogue GetSet.Dlg
Commands for the dialogue Print.Dlg
Commands for the dialogue Search.Dlg
Commands for the dialogue Inspector.Dlg
Commands for the dialogue Calc.Dlg
BEGIN 
	doSearch := TRUE; Texts.OpenWriter (w);
	Reset
END MyUI.Unload	MyUI.DoHALT
Dialog.Open Insert.Dlg
Dialog.Open Compiler.Dlg
Dialog.Open GetSet.Dlg
Dialog.Open Print.Dlg
Dialog.Open Search.Dlg
Dialog.Open Inspector.Dlg
Dialog.Open Calc.Dlg
AsciiCoder.CodeFiles % MyUI.Mod MoreMathL.Mod XIn.Mod Insert.Dlg Compiler.Dlg 
	GetSet.Dlg Print.Dlg Search.Dlg Inspector.Dlg Calc.Dlg ~