home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w364 / 8.img / CGW.SMM < prev    next >
Encoding:
INI File  |  1991-09-17  |  6.1 KB  |  527 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~default.sty
  5. [files]
  6. [prn]
  7.     HP DeskJet Family
  8. [lang]
  9.     1
  10. [desc]
  11.     
  12.     
  13.     
  14.     
  15.     
  16.     674198521
  17.     15
  18.     672763988
  19. [fopts]
  20.     0
  21.     1
  22.     0
  23.     0
  24. [lnopts]
  25.     2
  26.     Body Text
  27. [docopts]
  28.     5
  29.     2
  30. [l1]
  31.     0
  32. [pg]
  33.     4
  34.     51 0 13 0 16384 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
  35.     102 54 8 0 16384 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
  36.     148 32 17 0 16384 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
  37.     156 0 0 1281 49152 0 0 65535 65535 Standard    0 0 0    0 0 0 0 0 0 0 65535 0 0 0 0 0 0
  38. [edoc]
  39. The first macro, CGW1, installs CG macros in the Tools Menu.
  40.  
  41.  
  42. The second macro, CGThsDoc, gets installed  in the Tools Correct Grammar 
  43. this Document menu item.
  44.  
  45.  
  46. The third macro, CGSelctn, gets installed in the Tools Correct Grammar 
  47. Selection menu item.
  48.  
  49.  
  50. The fourth macro, CGRestrt, is used by Correct Grammar to bring Ami 
  51. Pro back up after checking a document.
  52.  
  53.  
  54. FUNCTION CGW1()
  55.  
  56.  
  57. CGMac = GetProfileString$("Correct Grammar", "Directory")
  58.  
  59. CGMac = strcat$ (CGMac, "\CGW.SMM") 
  60.  
  61.  
  62. M1 = CGMac
  63.  
  64. M2 = CGMac
  65.  
  66.  
  67. M1 = strcat$ (M1, "!CGThsDoc")
  68.  
  69. M2 = strcat$ (M2, "!CGSelctn")
  70.  
  71.  
  72. AddMenuItem (1, "Too&ls", "Correct Grammar this Document", M1 )
  73.  
  74.  
  75. AddMenuItem (1, "Too&ls", "Correct Grammar Selection", M2 )
  76.  
  77. ShowBar (1)
  78.  
  79.  
  80.  
  81. END FUNCTION
  82.  
  83.  
  84. FUNCTION CGThsDoc()
  85.  
  86. ONERROR Errors
  87.  
  88.  
  89. chid = 0
  90.  
  91.  
  92. sv = Save ()
  93.  
  94. IF (0 = sv )
  95.  
  96.     IF ( 1 = SaveAs )
  97.  
  98.         GOTO Doit
  99.  
  100.     ELSE
  101.  
  102.         GOTO Endit
  103.  
  104.     ENDIF
  105.  
  106. ELSE
  107.  
  108.  IF ( 1 = sv )
  109.  
  110.      GOTO Doit
  111.  
  112.  ELSE
  113.  
  114.      GOTO Endit
  115.  
  116.  ENDIF
  117.  
  118. ENDIF
  119.  
  120.  
  121. Doit:
  122.  
  123.  
  124. CGDir = GetProfileString$("Correct Grammar", "Directory")
  125.  
  126. CGExe = CGDir
  127.  
  128. CGExe = strcat$ (CGExe, "\CGW.EXE")
  129.  
  130.  
  131. M1 = CGDir
  132.  
  133. M1 = strcat$ (M1, "\CGW.SMM!CGRestrt")
  134.  
  135.  
  136. curfile = GetOpenFileName$()
  137.  
  138. chid = DDEInitiate ("CGWAMI" {curfile}) ' try to contact CGW
  139.  
  140. IF (0 = chid) ' can't; try to start CGW
  141.  
  142.     exec (CGexe, "")
  143.  
  144.     chid = DDEInitiate ("CGWAMI" {curfile})
  145.  
  146.     IF (0 = chid)
  147.  
  148.         message ("Can't find Correct Grammar.  Try re-installing it.")
  149.  
  150.         EXIT FUNCTION
  151.  
  152.     ENDIF
  153.  
  154. ENDIF
  155.  
  156. IF ( 0 = DDEAdvise (chid, "WhenDone", M1 ))
  157.  
  158.     Message ("DDE failure; at end of Correct Grammar, Open the document 
  159. yourself.")
  160.  
  161.     DDEterminate (chid) ' done
  162.  
  163.     chid = 0
  164.  
  165. ELSE
  166.  
  167. '        Message ("Advise succeeded")
  168.  
  169. ENDIF
  170.  
  171.  
  172. GOTO Endit
  173.  
  174.  
  175. Errors:
  176.  
  177. IF (chid != 0)
  178.  
  179.     DDEterminate (chid)
  180.  
  181. ENDIF
  182.  
  183.  
  184. Endit:
  185.  
  186. END FUNCTION
  187.  
  188.  
  189.  
  190.  
  191. FUNCTION CGSelctn()
  192.  
  193. ONERROR Errors
  194.  
  195.  
  196. chid = 0
  197.  
  198.  
  199. Doit:
  200.  
  201.  
  202. CGDir = GetProfileString$("Correct Grammar", "Directory")
  203.  
  204. CGExe = CGDir
  205.  
  206. CGExe = strcat$ (CGExe, "\CGW.EXE")
  207.  
  208.  
  209. M1 = CGDir
  210.  
  211. M1 = strcat$ (M1, "\CGW.SMM!CGRestrt")
  212.  
  213.  
  214. IF ( 1 != Copy ())
  215.  
  216.     Message ("First, select the text to check.  Then try again.")
  217.  
  218.  GOTO Endit
  219.  
  220. ENDIF
  221.  
  222.  
  223. chid = DDEInitiate ("CGWAMI" "//") ' try to contact CGW; // means 
  224. "Clipboard"
  225.  
  226. IF (0 = chid) ' can't; try to start CGW
  227.  
  228.     exec (CGexe, "")
  229.  
  230.     chid = DDEInitiate ("CGWAMI" "//")
  231.  
  232.     IF (0 = chid)
  233.  
  234.         message ("Can't find Correct Grammar")
  235.  
  236.         EXIT FUNCTION
  237.  
  238.     ENDIF
  239.  
  240. ENDIF
  241.  
  242. IF ( 0 = DDEAdvise (chid, "WhenDone", M1 ))
  243.  
  244.     Message ("DDE failure.  Use Edit / Copy and pick Correct Grammar 
  245. from the System menu.")
  246.  
  247.     DDEterminate (chid) ' done
  248.  
  249.     chid = 0
  250.  
  251. ELSE
  252.  
  253. ENDIF
  254.  
  255.  
  256. GOTO Endit
  257.  
  258.  
  259. Errors:
  260.  
  261. IF (chid != 0)
  262.  
  263.     DDEterminate (chid)
  264.  
  265. ENDIF
  266.  
  267.  
  268. Endit:
  269.  
  270. END FUNCTION
  271.  
  272.  
  273.  
  274. FUNCTION CGRestrt(whichfile)
  275.  
  276.  
  277. IF ( whichfile = "//") ' Clipboard
  278.  
  279.     IF (1 != Paste ())
  280.  
  281.         message ("Unable to paste corrected text from clipboard.  Do Paste 
  282. manually.")
  283.  
  284.     ENDIF
  285.  
  286. ELSE
  287.  
  288.  IF ( whichfile = "??") ' Clear selection
  289.  
  290.     DarkMode (1)    
  291.  
  292.     TYPE ("<[>ESC]")
  293.  
  294.     DarkMode (0)
  295.  
  296.  ELSE
  297.  
  298.   IF ( whichfile = "") 'Nothing
  299.  
  300.   ELSE                                                                    'File name
  301.  
  302.             IF ( 1 != FileOpen ( {whichfile}, AmiFile, 0)) 
  303.  
  304.                 message ("Unable to re-open corrected file.")
  305.  
  306.             ENDIF
  307.  
  308.   ENDIF
  309.  
  310.  ENDIF
  311.  
  312. ENDIF
  313.  
  314.  
  315.  
  316. END FUNCTION
  317.  
  318.  
  319. >
  320. [macsum] 4
  321. CGW1 0 0 4 8
  322. CGThsDoc 302 0 7 27
  323. CGSelctn 1128 0 5 86
  324. CGRestrt 1825 1 1 132
  325. [macse]
  326. 14 CGW1
  327. 0 286 "Correct Grammar" "Directory"
  328. 13
  329. 8 1
  330. 0 16 "{1}" "\CGW.SMM"
  331. 13
  332. 8 1
  333. 6 1
  334. 8 2
  335. 6 1
  336. 8 3
  337. 0 16 "{2}" "!CGThsDoc"
  338. 13
  339. 8 2
  340. 0 16 "{3}" "!CGSelctn"
  341. 13
  342. 8 3
  343. 0 516 1 "Too&ls" "Correct Grammar this Document" "{2}"
  344. 0 516 1 "Too&ls" "Correct Grammar Selection" "{3}"
  345. 0 514 1
  346. 6 0
  347. 15
  348. 9
  349. 14 CGThsDoc
  350. 20 00000774
  351. 5 0
  352. 8 1
  353. 2 103 1
  354. 13
  355. 8 2
  356. 5 0
  357. 6 2
  358. 18 0
  359. 11 00000171
  360. 5 1
  361. 24 104
  362. 13
  363. 18 0
  364. 11 00000145
  365. 10 00000239
  366. 10 00000158
  367. 10 00000814
  368. 10 00000239
  369. 5 1
  370. 6 2
  371. 18 0
  372. 11 00000226
  373. 10 00000239
  374. 10 00000239
  375. 10 00000814
  376. 0 286 "Correct Grammar" "Directory"
  377. 13
  378. 8 3
  379. 6 3
  380. 8 4
  381. 0 16 "{4}" "\CGW.EXE"
  382. 13
  383. 8 4
  384. 6 3
  385. 8 5
  386. 0 16 "{5}" "\CGW.SMM!CGRestrt"
  387. 13
  388. 8 5
  389. 0 267
  390. 13
  391. 8 6
  392. 0 8 "CGWAMI" "{6}"
  393. 13
  394. 8 1
  395. 5 0
  396. 6 1
  397. 18 0
  398. 11 00000595
  399. 0 22 "{4}" ""
  400. 0 8 "CGWAMI" "{6}"
  401. 13
  402. 8 1
  403. 5 0
  404. 6 1
  405. 18 0
  406. 11 00000595
  407. 0 3 "Can't find Correct Grammar.  Try re-installing it."
  408. 6 0
  409. 15
  410. 9
  411. 5 0
  412. 0 12 "{1}" "WhenDone" "{5}"
  413. 13
  414. 18 0
  415. 11 00000761
  416. 0 3 "DDE failure; at end of Correct Grammar, Open the document yourself."
  417. 0 9 "{1}"
  418. 5 0
  419. 8 1
  420. 10 00000761
  421. 10 00000814
  422. 6 1
  423. 5 0
  424. 18 1
  425. 11 00000814
  426. 0 9 "{1}"
  427. 6 0
  428. 15
  429. 9
  430. 14 CGSelctn
  431. 20 00000645
  432. 5 0
  433. 8 1
  434. 0 286 "Correct Grammar" "Directory"
  435. 13
  436. 8 2
  437. 6 2
  438. 8 3
  439. 0 16 "{3}" "\CGW.EXE"
  440. 13
  441. 8 3
  442. 6 2
  443. 8 4
  444. 0 16 "{4}" "\CGW.SMM!CGRestrt"
  445. 13
  446. 8 4
  447. 5 1
  448. 2 154 1
  449. 13
  450. 18 1
  451. 11 00000282
  452. 0 3 "First, select the text to check.  Then try again."
  453. 10 00000685
  454. 0 8 "CGWAMI" "//"
  455. 13
  456. 8 1
  457. 5 0
  458. 6 1
  459. 18 0
  460. 11 00000457
  461. 0 22 "{3}" ""
  462. 0 8 "CGWAMI" "//"
  463. 13
  464. 8 1
  465. 5 0
  466. 6 1
  467. 18 0
  468. 11 00000457
  469. 0 3 "Can't find Correct Grammar"
  470. 6 0
  471. 15
  472. 9
  473. 5 0
  474. 0 12 "{1}" "WhenDone" "{4}"
  475. 13
  476. 18 0
  477. 11 00000632
  478. 0 3 "DDE failure.  Use Edit / Copy and pick Correct Grammar from the System menu."
  479. 0 9 "{1}"
  480. 5 0
  481. 8 1
  482. 10 00000632
  483. 10 00000685
  484. 6 1
  485. 5 0
  486. 18 1
  487. 11 00000685
  488. 0 9 "{1}"
  489. 6 0
  490. 15
  491. 9
  492. 14 CGRestrt
  493. 6 0
  494. 7 "//"
  495. 18 0
  496. 11 00000169
  497. 5 1
  498. 2 155 1
  499. 13
  500. 18 1
  501. 11 00000156
  502. 0 3 "Unable to paste corrected text from clipboard.  Do Paste manually."
  503. 10 00000375
  504. 6 0
  505. 7 "??"
  506. 18 0
  507. 11 00000244
  508. 0 292 1
  509. 0 6 "[27]"
  510. 0 292 0
  511. 10 00000375
  512. 6 0
  513. 7 ""
  514. 18 0
  515. 11 00000287
  516. 10 00000375
  517. 5 1
  518. 2 102 1 "{0}" 1 0
  519. 13
  520. 18 1
  521. 11 00000375
  522. 0 3 "Unable to re-open corrected file."
  523. 6 1
  524. 15
  525. 9
  526. 00003960
  527.