home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / askenv / prefman.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  56 lines
  1. /* Einstellen der diversen Preferences-Parameter          */
  2. /* AskEnv ruft die diversen Prefs-Programme asynchron auf */
  3.  
  4. /* trace results */
  5.  
  6. OPTIONS RESULTS
  7. LF='0A'X
  8. HOST = ADDRESS()
  9.  
  10. DO FOREVER
  11. Call StartRequester
  12. ADDRESS command
  13. 'AskEnv gadfile PIPE:pm_req'
  14. IF rc >= 5 THEN DO
  15.  'delete >NIL: t:pm_req env:selPref'
  16.  Exit 5
  17. END
  18. END        /* do forever */
  19.  
  20.  
  21.  
  22. StartRequester: PROCEDURE
  23.  
  24. IF ~Open(reqFile, 'PIPE:pm_req', Write) THEN DO
  25.  SAY 'File für AskEnv nicht geöffnet'
  26.  Exit 10
  27.  END
  28. ELSE DO
  29.  CALL WriteLn reqFile, "WINDOW"
  30.  CALL WriteLn reqFile, "CENTER 100 125"
  31.  CALL WriteLn reqFile, "NAME PM"
  32.  CALL WriteLn reqFile, 'BUTTON POSITION 10 20 80 13 LABEL Fonts ASYNCRUN sys:prefs/Font #'
  33.  CALL WriteLn reqFile, 'BUTTON POSITION 10 40 80 13 LABEL Screen ASYNCRUN sys:prefs/ScreenMode #'
  34.  CALL WriteLn reqFile, 'BUTTON POSITION 10 60 80 13 LABEL OvrScan ASYNCRUN sys:prefs/Overscan #'
  35.  CALL WriteLn reqFile, "BUTTON POSITION 10 80 80 13 LABEL Input ASYNCRUN sys:prefs/Input #"
  36.  CALL WriteLn reqFile, "BUTTON POSITION 10 100 80 13 LABEL IControl ASYNCRUN sys:prefs/IControl #"
  37.  
  38.  Call Close(reqFile)
  39. END
  40. RETURN
  41.  
  42.  
  43.  
  44. /* GetEnv      : liest Umgebungsvariable des ENV: Verzeichnisses     */
  45. /*     Eingabe : Name der Variable                    */
  46. /*     Ausgabe : in Variable gespeicherter Wert, bzw Leerstring     */
  47.  
  48. GetEnv: PROCEDURE
  49. arg name
  50.  IF Open(infile, 'env:'name, r) THEN DO
  51.   text = ReadLn(infile)
  52.   CALL Close infile
  53.   RETURN text
  54.  END
  55.  RETURN ''
  56.