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