home *** CD-ROM | disk | FTP | other *** search
/ The American Heritage Talking Dictionary / AHD361VOICE.bin / windows / wswahd3.wmc < prev    next >
Text File  |  1994-09-12  |  14KB  |  178 lines
  1. REM Description:  Look up the current word in the American Heritage Electronic Dictionary
  2. REM Filename: wswahd3.wmc
  3. REM Created by:  Robin Fried & Steve Wylie - 9/29/93
  4.  
  5. REM Windows API Declarations
  6. DECLARE FUNCTION SendMessage         LIB "user" (hwnd AS WORD, msg AS WORD, wParam AS WORD, lParam AS INTEGER) AS INTEGER
  7. DECLARE FUNCTION FindWindow         LIB "user" (classname AS INTEGER, title AS STRING) AS WORD
  8. DECLARE FUNCTION ShowWindow        LIB "user" (hwnd AS WORD, show AS WORD) AS WORD
  9. DECLARE FUNCTION GetActiveWindow    LIB "user" () AS WORD
  10. DECLARE FUNCTION GetPrivateProfileString LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, lpDefault AS STRING, lpReturnedString AS STRING, nSize As WORD, lpFileName AS STRING) As Integer 
  11. DECLARE FUNCTION WinExec            LIB "kernel" (path AS STRING, show AS WORD) AS WORD
  12.  
  13. REM Store off WSWin active window
  14. wswin% = W2I(GetActiveWindow())
  15. REM Get the current WSWin selection if 0-Length then select the current word
  16. sel$ = GetSelection$()
  17. IF LEN(sel$) = 0 THEN
  18.     REM Select Current Word
  19.     CharLeft 1, 0,
  20.     CharRight 1, 0,
  21.     WordLeft 1, 0
  22.     WordRight 1, 1
  23. endif
  24.  
  25. REM Load Ahed if not loaded already
  26. Msg$ = ""
  27. ahd% = W2I(FindWindow(0, "The American Heritage Dictionary"))
  28. IF ahd% = 0 THEN
  29.     ahd% = W2I(FindWindow(0, "The Dictionary of Cultural Literacy"))
  30.     IF ahd% = 0 THEN
  31.         INIFile$ = "ahd3.ini"        'if no path, default is the Windows directory
  32.         SectionName$ = "Program"    'this will be the INI file [section name]
  33.         Keyword1$ = "Path"        'this will be the INI file keyword = value
  34.         a% = GetPrivateProfileString(SectionName$, Keyword1$, "", Pgm$, I2W(252), INIFile$)
  35.         IF Pgm$ = "" THEN
  36.             Msg$ = "Path not found in AHD3.INI."
  37.             GOTO CANTLOAD
  38.         END IF
  39.         If Right$(Pgm$, 1) <> "\" Then
  40.             Pgm$ = Pgm$ + "\"
  41.         End If
  42.         Dir$ = Pgm$
  43.         Pgm$ = Dir$ + "AHD3.EXE"
  44.         err% = WinExec(Pgm$, I2W(1))
  45.         IF err% < 0 THEN err% = err% * -1
  46.         If err% > 32 THEN
  47.             ahd% = W2I(FindWindow(0, "The American Heritage Dictionary"))
  48.         ELSE
  49.             Msg$ = "Path in AHD3.INI may be incorrect: " + Pgm$
  50.             GOTO CANTLOAD
  51.         END IF
  52.     END IF
  53. END IF
  54.  
  55. if ahd% = 0 THEN
  56.     ahd% = W2I(FindWindow(0, "The Dictionary of Cultural Literacy"))
  57. END IF
  58.  
  59. IF ahd% <> 0 THEN GOTO AHDFOUND
  60. Msg$ = "Can't find AHD3 window."
  61.  
  62. CANTLOAD:
  63. MsgTitle$ = "Macro Error"
  64. Msg$ = "Can't load The American Heritage Dictionary. " + Msg$
  65. ret% = MESSAGEBOX (Msg$, MsgTitle$, 48)
  66. GOTO Bye
  67.  
  68. AHDFOUND:
  69. REM Copy the current selection to the clipboard
  70. EditCopy
  71.  
  72. REM Make sure there's something on the clipboard now
  73. ret% = GetClipboardText(clipstr$)
  74. if ret% = 0 then 
  75.     Goto Bye
  76. endif
  77.  
  78. REM Send Ahed a message to take action on the clipboard
  79.     ret% = SendMessage( I2W(ahd%), I2W(273), I2W(2026), wswin%)        
  80.      ret% = ShowWindow(I2W(ahd%), I2W(1))
  81.  
  82. BYE:
  83. 
  84. *****  WARNING *****
  85. This is a WSWin macro file.
  86. Subsequent data is binary information and should not be modified.
  87. # MF # 1.0None779498933Γ%**
  88. 8É¥
  89. £¥¢₧
  90. 8
  91. áíó    ƒí
  92. 8
  93. úƒÑª
  94. âѺâ
  95. 8⌐Ǭ ¿⌐¬¼
  96. 8«Ç» ¡«»░
  97. 8▓Ç│
  98. ▒▓│┤
  99. 8╢Ç╖Ç
  100. ╡╢╖╕
  101. 8    ╣║
  102. 8╜╛╝
  103. ï╜╛┐
  104. £┐╗└
  105. 8
  106. â╗┬â
  107. 8─┼├
  108. ï─┼╞
  109. £╞╗╟
  110. 8
  111. â╗╔â
  112. 8     ╩╦
  113. 8 !    ╠═
  114. 8!"    ╬╧
  115. 8"#╘║╒╙
  116. ╥╒╓╫æ╠╬╘╤╓╩╨
  117. 8##
  118. â╤║┘â
  119. 8#%    ╣┌
  120. 8%&█
  121. 8&'$▀Ç ▄╤▀αß âα▐Γâ
  122. 8'$)"π╤▐    ╤π
  123. 8)+    Σ╤
  124. 8+,"µΣσ    ╤µ
  125. 8,-ΦÇ
  126. ╥ΦΘΩ
  127. Ö╤Θδτδ
  128. 8--âτφâ
  129. 8-.!εÇττε
  130. 8..âτ≡±â
  131. 8.0≥≤╝
  132. ï≥≤⌠
  133. £⌠╗⌡∩
  134. 802"≈÷╤    ╣≈
  135. 823█
  136. 837
  137. â╗∙â
  138. 879·√├
  139. ï·√ⁿ
  140. £ⁿ╗²
  141. 89; â╗ â
  142. 8;<
  143. 8<=    ╣
  144. 8=@    
  145. 8@A"╣    ╣
  146. 8AB    ╣    
  147. 
  148. 8BC 
  149. 8CG 
  150. 8GJ
  151. 
  152. 8JJ
  153. ââ
  154. 8JL 
  155. 8LP
  156. ╥╗
  157. ╥
  158. ╥à¢
  159. 8PQ
  160. ╥╗Ç
  161. ╥ !
  162. Ä ""%~ ö$$$$$$$$$$$$$$$$$$$$.J.J.J .J-.J5.J;.JA.JN.J^.J    l.J
  163. z.J ê.J û.Jñ.J▓.J╢.J╣.J╜.J└.J┬.J─.J╞.J╔.J╠.J╧.J╥.J╘.J╓.J┌.J▄.J▐.Jα.J Γ.J!Σ.J"Θ.J#∞.J$≡.J%⌡.J&ⁿ.J'/J(
  164. /J)/J*/J+/J,"/J-(/J.-/J/3/J06/J1;/J2@/J3B/J4E/J5J/J6N/J7T/J8Y/J9`/J:g/J;l/J<o/J=w/J>y/J?{/J@/JAê/JBî/JCÅ/JDù/JE₧/JFú/JG¡/JH┤/JI╣/JJ╜/JK┬/JL╟/JM═/JN╤/JO╒/JP▄/JQπ/JRΩ/JS≡/JT≈/JU0JV0JW0JX$0JY10JZ:0J[G0J\P0J]X0J^`0J_h0J`q0Jav0Jb{0JcÇ0Jdç0JeÄ0Jfö0Jg¢0Jh¥0Jió0Jj¿0Jk«0Jl╡0Jm╛0Jn╟0Jo╦0Jp╙0Jq╫0Jr▄0JsΓ0JtΦ0Juε0Jv⌠0Jw∙0Jx■0Jy1Jz1J{1J|1J}┐I  ┐I+┐I+    ┐I┐I┐I  ┐I ┐IçBå,┐I3┐I8┐I<┐IC┐IJ┐IàBåU┐I_┐Ie┐IàBåp┐Iu┐IàB åà┐IçB Æ¥┐Iª┐I╕┐I┬┐I╠┐I▌┐Iπ┐Iε┐IàBÆ÷┐I√┐I          ┐Iç7┐I   ┐I     ┐I
  165.           ┐I
  166. ë#┐I      (┐I     -┐Iç1┐I  ▄6┐I  ;┐I     @┐I  ▄E┐IAN┐I  S┐I  X┐I  ^┐I     d┐IA n┐I  t┐I  z┐I     Ç┐IA$ë┐I  Å┐I  ò┐I     ¢┐IA'Ñ┐I  ½┐I  ▒┐I     ╖┐I
  167.           ╝┐I+      ┐┐I          ─┐I+      τ┐I  φ┐I      ≤┐I  ∙┐I      ┐I  8┐I  8    ┐I+      /┐I  5┐I      ;┐I  A┐I     G┐I  8L┐I  8Q┐I
  168.           Z┐I+      e┐I
  169.           r┐I+      |┐I
  170.           å┐I+      ì┐I          É┐I
  171.           ò┐IàHÖ┐I+  ⁿ¥┐I      ú┐I  ⌐┐I  »┐I     ╡┐I  ║┐I  ┐┐I+      ▌┐I░>µ┐I
  172. ë0φ┐I  J≥┐I+      ÷┐I  ⁿ┐I      ┐I     ┐I  J┐I      ┐I
  173.           ┐I+      $┐I      *┐I          /┐I  5┐I  ;┐I     A┐I  G┐I  ╠M┐I  ╠S┐I  Y┐I  8_┐I+   b┐I  h┐I  n┐I      t┐I  z┐I     Ç┐I+      ª┐I      ¼┐I  z▓┐I  z╕┐I  ╛┐I      ─┐I  ╩┐I     ╨┐I  á╓┐I  á▄┐IDσ┐I+       ┐I
  174.               ┐I+      ┐I+      G┐I      M┐I          R┐Iç9]┐I+  0`┐I  f┐I     l┐I─Rp┐IA=y┐I     ┐Iç>É┐I
  175.           Ö┐I     ƒ┐I  NÑ┐I  N½┐I+  »┐I+  Ω┤┐I  ║┐I     └┐I  ╞┐I  ╠┐I     ╥┐I  ╪┐I  ▐┐I     Σ┐I  Ω┐I     ≡┐I  ÷┐I  ⁿ┐I     ┐I  ┐I
  176. ┐I????01CANCELERRORNUM[T1]
  177. SENDMESSAGE"user"HWNDMSGWPARAMLPARAMFINDWINDOWCLASSNAMETITLESHOWWINDOWSHOWGETACTIVEWINDOWGETPRIVATEPROFILESTRING"kernel"LPAPPLICATIONNAMELPKEYNAMELPDEFAULTLPRETURNEDSTRINGNSIZELPFILENAMEWINEXECPATHWSWIN%W2I[T2][T3]SEL$GETSELECTION$[T4][T5]LEN[L1][T6][T7][L2]CHARLEFT[T8][T9][T10][T11]CHARRIGHT[T12][T13][T14]WORDLEFT[T15][T16][T17]WORDRIGHT[T18][T19][T20]MSG$""AHD%"The American Heritage Dictionary"[T21][T22][T23][T24][L3][L4]"The Dictionary of Cultural Literacy"[T25][T26][T27][T28][L5][L6]INIFILE$"ahd3.ini"SECTIONNAME$"Program"KEYWORD1$"Path"A%PGM$I2W252[T29][T30][T31][T32][L7][L8]"Path not found in AHD3.INI."CANTLOADRIGHT$[L9]"\"[T33][T34][T35][L10][T36]DIR$"AHD3.EXE"[T37]ERR%[T38][T39][T40][T41][L11][L12][T42][L13]32[L14][T43][T44][T45][T46]"Path in AHD3.INI may be incorrect: "[T47][L15][L16][T48][T49][T50][T51][L17][L18]AHDFOUND"Can't find AHD3 window."MSGTITLE$"Macro Error""Can't load The American Heritage Dictionary. "[T52]RET%MESSAGEBOX48[T53][T54]BYEEDITCOPY[T55]GETCLIPBOARDTEXTCLIPSTR$[T56][L19][L20]2732026[T57][T58][T59][T60][T61][T62][T63][T64][T65][T66][T67][T68][T69][T70]
  178.