home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / edge_d / rexx / menu_wordtorep.edge < prev   
Text File  |  1995-07-10  |  478b  |  22 lines
  1. /*
  2. ** $VER: Menu_WordToRep.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Kopiert das aktuelle Wort in den Ersatz-Puffer
  5. **
  6. ** Geschrieben von Thomas liljetoft & Inovatronics,
  7. ** deutsche Menüs von Thomas Heinze
  8. */
  9.  
  10. options results
  11.  
  12. /* Zum Ende des aktuellen Worts springen und dieses kopieren */
  13. position eow
  14. cursor right 1
  15. copy word back resultbuff
  16.  
  17. /* Das gefundene Wort in die ReplaceString-Variable kopieren */
  18. if rc==0 then do
  19.     putenvvar _fe_replacestring """"result""""
  20. end
  21.  
  22.