home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_typename.edge < prev    next >
Text File  |  1995-07-10  |  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.