home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / obero / oberon / configuration / configuration.mod (.txt) next >
Encoding:
Oberon Text  |  1995-05-26  |  896 b   |  31 lines
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. StampElems
  4. Alloc
  5. 26 May 95
  6. Syntax10b.Scn.Fnt
  7. MODULE Configuration;    (** SHML/CN, 
  8.     IMPORT Display, Input, Viewers, Oberon, Cmd;
  9.     PROCEDURE Break(): BOOLEAN;
  10.         VAR keys: SET; x, y: INTEGER;
  11.     BEGIN
  12.         Input.Mouse(keys, x, y);
  13.         RETURN keys # {}
  14.     END Break;
  15.     PROCEDURE Init*;    (* Do initialization script *)
  16.         VAR res: INTEGER;
  17.     BEGIN
  18.         Display.SetColor(Display.black,255,255,255);
  19.         Display.SetColor(Display.white,0,0,0);
  20.         IF Break() THEN RETURN END;
  21.         Cmd.Call("StatusViewer.Open", "", res);
  22.         Cmd.Mark(Cmd.STrack,Cmd.Top-Viewers.minH);
  23.         Cmd.Call("Log.Open", "", res);
  24.         Cmd.Call("XE.SysOpen", "System", res);
  25.         Cmd.Call("XE.SysOpen", "My", res);
  26.         Cmd.Call("XEInstaller.Start", "", res);
  27.     END Init;
  28. BEGIN Init
  29. END Configuration.
  30. Cmd.Pick *
  31.