home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_editconfig.edge < prev    next >
Text File  |  1995-07-10  |  635b  |  37 lines
  1. /*
  2. ** $VER: Menu_EditConfig.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Eine der Konfigurationsdateien editieren
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Argument nehmen */
  13. parse arg name
  14.  
  15. /* Ist das aktuelle Fenster leer? */
  16. getenvvar _fe_size
  17. if result>0 then do
  18.  
  19.     /* Ein neues Fenster öffnen */
  20.     new
  21.  
  22.     /* Alles ok? dann Fenster ansprechen */
  23.     if rc==0 then do
  24.         address value result
  25.         
  26.         /* Gewünschten Dateinamen suchen */
  27.         getenvvar '_ge_'name
  28.         open result
  29.     end
  30. end
  31. else do
  32.     /* Gewünschten Dateinamen suchen */
  33.     getenvvar '_ge_'name
  34.     open result
  35. end
  36.  
  37.