home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Menu_ScriptBit.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  383 b   |  20 lines
  1. /*
  2. ** $VER: Menu_ScriptBit.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Set the script bit of the current window's file
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* get the current filename */
  12. getenvvar _fe_name
  13. name = result
  14.  
  15. /* get the edge device name */
  16. getenvvar _ge_devname
  17.  
  18. /* change the script bit then */
  19. address command protect result":"name "+s"
  20.