home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / ExtraStuff / Edge_SasC.lha / rexx / hn_files.edge < prev    next >
Encoding:
Text File  |  1993-08-09  |  816 b   |  41 lines
  1. /*
  2. ** $VER: hn_files.edge 1.1.1 (23-Jan-93 12:55:53)
  3. **
  4. ** Show available files in Edge, and activate the first window of the
  5. ** file selected.
  6. **
  7. ** Written by Thomas liljetoft
  8. ** Minor changes by Henrik Nordström
  9. **   return address of selected window
  10. **   cleaner calling sequences
  11. */
  12.  
  13.  
  14. options results
  15. parse source . results .
  16.  
  17. 'getenvvar _ge_errlevel'    /* get the users error report level */
  18. errlevel = result
  19.  
  20. 'requestfile title "Select file to activate.." path "edge:" file "" getdir'
  21. if RC == 0 then
  22.     do
  23.     parse var result . ':' name
  24.     'select filename "'name'"'
  25.     port=result
  26.     end
  27.  
  28. if RC >= errlevel then
  29.     do
  30.  
  31.     /* something went wrong enought to be reported so report */
  32.         error=RC
  33.     'fault'
  34.     'requestnotify "'result'"'
  35.     if results then exit ''
  36.     else exit error
  37.     end
  38.  
  39. if results then exit port
  40. else exit 0
  41.