home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_opennewfile.edge < prev    next >
Text File  |  1995-07-10  |  594b  |  36 lines
  1. /*
  2. ** $VER: Menu_OpenNewFile.edge 1.1 (Sunday 08-Aug-93 02:50:56)
  3. **
  4. ** Ein neues Dokument über das Datei-Auswahlfenster einladen
  5. **
  6. ** Geschrieben von Thomas Liljetoft, deutsche Kommentare von Thomas Heinze
  7. */
  8.  
  9.  
  10. options results
  11.  
  12. /*    Fehlerstufe des Benutzers auslesen */
  13.  
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16.  
  17. /* Eine neue Datei öffnen */
  18.  
  19. 'new'
  20. if RC == 0 then do
  21.     /* Erfolgreich? Dann neues Fenster adressieren */
  22.  
  23.     address value result
  24.     'open'
  25.     end
  26.  
  27. if RC >= errlevel then do
  28.  
  29.     /* Etwas ist schiefgegangen, Fehlermeldung ausgeben */
  30.  
  31.     'fault'
  32.     'requestnotify' '"'result'"'
  33.     end
  34.  
  35. exit(0)
  36.