home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_changename.edge < prev    next >
Text File  |  1995-07-10  |  507b  |  20 lines
  1. /*
  2. ** $VER: Menu_ChangeName.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Namen der Datei im aktuellen Fenster ändern
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics, 
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Aktuellen Dateinamen auslesen */
  13. getenvvar _fe_name
  14.  
  15. /* Benutzer fragen, ob der Name der Datei geändert werden soll */
  16. requeststring TITLE """Neuer Name der Datei?""" DEFAULT """"result""""
  17.  
  18. /* Wenn ja, dann ändern... */
  19. if RC == 0 then putenvvar _fe_name """"result""""
  20.