home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / system / askenv / plotter < prev    next >
Text File  |  1995-02-27  |  2KB  |  73 lines
  1. /* Einstellung für das PLT-Device, druckt HPGL-Dateien über die Preferences-   */
  2. /* Treiber in Sahnequalität; zB. bei MultiPlot Fish 572                        */
  3.  
  4. address command
  5.  
  6. IF ~Open(reqFile, 'T:dm_req', Write) THEN DO
  7.  'AskEnv SREQ "Gravierender Fehler:" BODY "T:dm_req nicht geöffnet" NEG Abbruch'
  8.  Exit 10
  9.  END
  10. ELSE DO
  11.  CALL WriteLn reqFile, "WINDOW"
  12.  CALL WriteLn reqFile, "CENTER 300 70"
  13.  CALL WriteLn reqFile, 'NAME "Einstellung PLT:"'
  14.  CALL WriteLn reqFile, 'BUTTON POSITION 20 45 80 12 GLOBAL dummy LABEL Sichern END #'
  15.  CALL WriteLn reqFile, 'BUTTON POSITION 110 45 80 12 GLOBAL dummy LABEL Benutzen END #'
  16.  CALL WriteLn reqFile, 'BUTTON POSITION 200 45 80 12 LABEL Abbruch CANCEL #'
  17.  CALL WriteLn reqFile, 'CYCLE POSITION 180 20 100 12 PLACETEXT LEFT LABEL "PLT-Ausgabemedium"'
  18.  IF GetEnv(pltinfo) = 'S' THEN DO
  19.   Call WriteLn reqFile, 'GLOBAL pltout ENTRY Monitor Drucker #'
  20.   previewCode = 0
  21.  END; ELSE DO
  22.   Call WriteLn reqFile, 'GLOBAL pltout ENTRY Drucker Monitor #'
  23.   previewCode = 1
  24.  END
  25.  Call Close(reqFile)
  26. END
  27.  
  28. 'AskEnv gadfile T:dm_req'
  29.  
  30. IF rc = 0 THEN DO
  31.  IF GetEnv(AskEnv_Button) = '1' THEN DO    /* "ENV:AskEnv_Button" enthält Nummer des Buttons: Save */
  32.   viewMode = EnvSave(previewCode)
  33.   IF ~Open(pltFile, 'ENVARC:pltinfo', Write) THEN DO
  34.    'AskEnv SREQ "Gravierender Fehler:" BODY "ENVARC:pltinfo nicht geöffnet" NEG Abbruch'
  35.   END
  36.   IF viewMode =~ previewCode THEN CALL WriteCh(pltFile, 'P')
  37.   ELSE CALL WriteCh(pltFile, 'S')
  38.   CALL CLOSE(pltFile)
  39.  END
  40.  ELSE DO            /* Use */
  41.   CALL EnvSave(previewCode)
  42.  END
  43.  'unsetenv pltout'
  44.  EXIT
  45. END
  46. ELSE DO
  47.  EXIT
  48. END
  49.  
  50.  
  51. EnvSave: PROCEDURE
  52. arg prevMode
  53.  
  54. mode = GetEnv('pltout')
  55. IF mode ~= prevMode THEN 'setenv pltinfo P'
  56. ELSE 'setenv pltinfo S'
  57.  
  58. RETURN mode
  59.  
  60.  
  61. /* GetEnv      : liest Umgebungsvariable des ENV: Verzeichnisses     */
  62. /*     Eingabe : Name der Variable                    */
  63. /*     Ausgabe : in Variable gespeicherter Wert, bzw Leerstring     */
  64.  
  65. GetEnv: PROCEDURE
  66. arg name
  67.  IF Open(infile, 'env:'name, r) THEN DO
  68.   text = ReadLn(infile)
  69.   CALL Close infile
  70.   RETURN text
  71.  END
  72.  RETURN ''
  73.