ğ#Syntax10.Scn.FntÛÛMODULE Configuration; (* Executing the body of this module sets up the startup viewer configuration. This module might be changed and recompiled to fit your personal needs but keep a copy of the original Configuration.Obj file. *) IMPORT Viewers, Oberon, TextFrames, MenuViewers; CONST StandardMenu = "System.Close System.Copy System.Grow Edit.Search Edit.Store "; LogMenu = "System.Close System.Grow Edit.Locate Edit.Store "; PROCEDURE OpenViewers; VAR logV, toolV: Viewers.Viewer; X, Y: INTEGER; BEGIN Oberon.AllocateSystemViewer(0, X, Y); logV := MenuViewers.New( TextFrames.NewMenu("Oberon.Log", "^Log.Menu.Text"), TextFrames.NewText(Oberon.Log, 0), TextFrames.menuH, X, Y); Oberon.AllocateSystemViewer(0, X, Y); toolV := MenuViewers.New( TextFrames.NewMenu("System.Tool", "^System.Menu.Text"), TextFrames.NewText(TextFrames.Text("System.Tool"), 0), TextFrames.menuH, X, Y + 50) END OpenViewers; BEGIN OpenViewers END Configuration.