home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / extras / ttx / rexx / ttx_sasc / SetOptions.ttx < prev    next >
Encoding:
Text File  |  1996-12-24  |  655 b   |  31 lines
  1. /*
  2. **  $VER: SetOptions.ttx 2.1 (17.8.93)
  3. **      By Kenneth Yarnall.  This code may be freely distributed.
  4. **
  5. **  Finds the current directory and runs scopts there, on the public screen
  6. ** that is indicated by TTX's GetScreenInfo call.
  7. */
  8.  
  9.  
  10. Options RESULTS
  11.  
  12. /* Get pubscreen name from TTX */
  13.  
  14. GetScreenInfo
  15. Parse VAR RESULT . '"' pubscrname '"'
  16.  
  17. GetFilePath
  18. path = RESULT
  19.  
  20. path = 'Rexx:TTX_SASC/GetPathPart'(path)
  21.  
  22. Address 'COMMAND'
  23. 'run cd '|| path || ' +',
  24.      || '0A'X || 'sc:c/scopts PUBSCREEN ' || pubscrname || ' +',
  25.      || '0A'X || 'sc:c/scopts'
  26.  
  27. /*
  28. **  The '0A'X is a LF, and strings the CD and scopts together.
  29. ** Does that work under 1.3?
  30. */
  31.