REM Description: Adds American Heritage Dictionary to tools menu
REM Filename: instalah.wmc
REM Created by: Steven Wylie - 11/22/93
REM Updated by: Rich Zuris - 1/28/94
REM Updated by: Melissa Rathmell - 15Sep94
REM Windows APIs
DECLARE FUNCTION GetPrivateProfileString LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, lpDefault AS STRING, lpReturnedString AS STRING, nSize As WORD, lpFileName AS STRING) AS WORD
DECLARE FUNCTION GetProfileInt LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, wDefault AS WORD) AS WORD
DECLARE FUNCTION WritePrivateProfileString LIB "kernel" (lpApplicationName AS STRING, lpKeyName AS STRING, lpValue AS STRING, lpFileName AS STRING) As WORD
DECLARE FUNCTION MessageBox LIB "user" (hwnd AS WORD, lpMsg AS STRING, lpTitle AS STRING, wFlags AS WORD) AS WORD
DECLARE FUNCTION GetModuleHandle LIB "kernel" (lpApp AS STRING) AS WORD
REM Local routines
DECLARE SUB AddToMenu (MenuName AS STRING, MenuText AS STRING, MacroName AS STRING)
DECLARE FUNCTION GetMenuPos% (MenuName$, MacroName$)
DECLARE FUNCTION GetAHDMacro$ (unused%)
IF GetModuleHandle("WSWINDLL") <> 0 THEN
Msg$ = "Choose OK to add The American Heritage Dictionary to the Tools menu, or choose Cancel to quit."
IF MessageBox(I2W(0), Msg$, "WSWin Macro", I2W(33)) = 2 THEN STOP
StatusMsg "Adding American Heritage Dictionary to Tools menu . . ."
GETPRIVATEPROFILESTRING"kernel"LPAPPLICATIONNAMELPKEYNAMELPDEFAULTLPRETURNEDSTRINGNSIZELPFILENAMEGETPROFILEINTWDEFAULTWRITEPRIVATEPROFILESTRINGLPVALUEMESSAGEBOX"user"HWNDLPMSGLPTITLEWFLAGSGETMODULEHANDLELPAPPADDTOMENUMENUNAMEMENUTEXTMACRONAMEGETMENUPOS%MENUNAME$MACRONAME$GETAHDMACRO$UNUSED%[L1]"WSWINDLL"[T2][T3][L2]MSG$"Choose OK to add The American Heritage Dictionary to the Tools menu, or choose Cancel to quit."[L3]I2W"WSWin Macro"332[T4][T5][T6][T7][T8][T9][T10][T11][L4]STATUSMSG"Adding American Heritage Dictionary to Tools menu . . ."[T12][T13]INI$MENUEXTSEC$MACDIR$"wsw.ini""MenuExtensions"""RET%"Preferences""MacroDirectory"255[T14][T15][T16][T17][T18][T19][T20]RIGHT$[L5]"\"[T21][T22][T23][L6][T24]"Tools""American Heritage Dictionar&y"[T25][T26][T27][T28]MENU$TEXT$MACRO$