home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / rexx / menu_typename.edge < prev    next >
Text File  |  1994-10-23  |  600b  |  24 lines
  1. /*
  2. ** $VER: Menu_TypeName.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Fügt den Pfad und Namen einer gewählten Datei in den Text ein
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics,
  7. ** deutsche Kommentare von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Name und Pfad der aktuellen Datei */
  13. getenvvar _fe_name
  14. daname=result
  15. getenvvar _fe_path
  16. dapath=result
  17.  
  18. /* Nach dem einzufügenden Dateinamen fragen */
  19. requestfile title """Einzufügenden Dateinamen wählen...""" path """"dapath"""" file """"daname"""" getdir
  20.  
  21. /* Wurde eine Datei ausgewählt? Dann Namen einfügen */
  22. if RC = 0 then text """"result""""
  23.  
  24.