ð#Syntax10.Scn.Fnt˜˜MODULE Configuration; IMPORT Oberon, MenuViewers, Texts, TextFrames, Display, Viewers, Directories, Registry(*, Defragmentizer*); PROCEDURE Call(cmd: ARRAY OF CHAR; txt: ARRAY OF CHAR; vwr: Viewers.Viewer; f: Display.Frame); VAR W: Texts.Writer; par: Oberon.ParList; res: INTEGER; BEGIN Texts.OpenWriter(W); NEW(par); par.text := TextFrames.Text(""); Texts.WriteString(W, txt); Texts.Append(par.text, W.buf); par.pos := 0; par.vwr := vwr; par.frame := f; Oberon.Call(cmd, par, FALSE, res); END Call; PROCEDURE SetColor; BEGIN (* Display.SetColor(12, 192, 192, 192); Display.SetColor(13, 160, 160, 160); Display.SetColor(14, 128, 128, 128) *) END SetColor; PROCEDURE Init; VAR V: Viewers.Viewer; x, y: INTEGER; workingDir: ARRAY 256 OF CHAR; BEGIN SetColor; Oberon.AllocateSystemViewer(Display.Left, x, y); V := Viewers.This(x+1, y-1); Call("System.OpenLog", "", V, V); V := Viewers.This(Display.Width-1, Display.Height-1); Oberon.FocusViewer := V; Call("System.Open", "System.Tool", V, V); Registry.Get("System", "WorkingDirectory", workingDir); Directories.Change(workingDir); (* Defragmentizer.Install*) END Init; BEGIN Init END Configuration.