home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / AddWordToDictionary.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  547 b   |  32 lines
  1.  
  2. /*
  3. ** $VER: AddWordToDictionary.edge 1.2 (Sunday 08-Aug-93 02:26:51)
  4. **
  5. ** Script to add the word under the cursor to the dictionary.
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10. options results
  11.  
  12. /* get the users error-report level */
  13.  
  14. getenvvar _ge_errlevel
  15. errlevel = result
  16.  
  17. 'position' eow
  18. 'cursor' right 1                    /* put cursor beyond end of word */
  19. 'copy' word back rb
  20.  
  21. 'dictionary' result add            /* add it */
  22.  
  23. if RC >= errlevel then do
  24.  
  25.     /* something went wrong enought to be reported so report */
  26.  
  27.     'fault'
  28.     'requestnotify' '"'result'"'
  29.     end
  30.  
  31. exit(0)
  32.