home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Menu_OpenNewFile.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  587 b   |  37 lines
  1. /*
  2. ** $VER: Menu_OpenNewFile.edge 1.1 (Sunday 08-Aug-93 02:50:56)
  3. **
  4. ** Open a new workfile and bring up the FileRequester so the 
  5. ** user may select a file to load
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. /*    get the users error-report level */
  14.  
  15. getenvvar _ge_errlevel
  16. errlevel = result
  17.  
  18. /* open a new file*/
  19.  
  20. 'new'
  21. if RC == 0 then do
  22.     /* if succesfull, address the new window and call open */
  23.  
  24.     address value result
  25.     'open'
  26.     end
  27.  
  28. if RC >= errlevel then do
  29.  
  30.     /* something went wrong enough to be reported so report */
  31.  
  32.     'fault'
  33.     'requestnotify' '"'result'"'
  34.     end
  35.  
  36. exit(0)
  37.