home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / gedscripts-1.1.lha / GEDScripts / ISpell / WordCheckCallBack.ged < prev   
Encoding:
Text File  |  1994-02-15  |  1.4 KB  |  57 lines
  1. /*  WordCheckCallBack.ged --- calls GoldED after the user has made a (?) smart
  2.  *  selection in the GUISpell window.
  3.  *
  4.  *  Also done by R. Laederach
  5.  *
  6.  *
  7.  *
  8.  *  "Snoop makes da call" <grin>
  9.  *
  10.  *  Startup and Exit code by Dietmar Eilert, rest © 1994 by R. Laederach
  11.  *
  12.  *
  13.  *
  14.  */
  15. OPTIONS RESULTS                             /* enable return codes     */
  16.  
  17. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  18.     address 'GOLDED.1'
  19.  
  20. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  21. OPTIONS FAILAT 6                            /* ignore warnings         */
  22. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  23.  
  24.  
  25.  
  26. if ~show(ports, 'GUISpell') then do
  27.         UNLOCK
  28.         EXIT
  29. end
  30.  
  31. parse arg testword item /* I  the checking procedure to economize time */
  32.                         /* As the user is locked away, I can do this */
  33. OPTIONS RESULTS
  34.  
  35. ADDRESS "GUISpell"
  36. currenttext
  37. replacementword = RESULT /* That's what the user selected */
  38.  
  39. ADDRESS "GOLDED.1"
  40. 'PREVEND'
  41. 'REPLACE NEXT STRING="'|| testword||'" BY='||replacementword /* I had to hassle
  42. 'RIGHT'                                                              with the quotes */
  43. 'RIGHT' /* The cursor gets back to the right position */
  44.  
  45. 'UNLOCK' /* VERY important: unlock GUI */
  46.  
  47. ADDRESS "GUISpell" EXIT
  48.  
  49. EXIT
  50.  
  51. SYNTAX:
  52.  
  53. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  54. 'UNLOCK'
  55. EXIT
  56.  
  57.