home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1998 July & August
/
Pcwk78b98.iso
/
Smart30
/
ENGLISH
/
PRODUCTS
/
LOTUS009.DSK
/
DOCONLIN.SMM
< prev
next >
Wrap
INI File
|
1994-07-29
|
31KB
|
1,689 lines
[ver]
4
[sty]
_MACRO.STY
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
COMPAQ PAGEMARQ 20 v2012.015
[port]
LPT3.OS2
[lang]
1
[fldnames]
Field1
Field2
Field3
Field4
Field5
Field6
Field7
Field8
[desc]
Launches SmarText and does a search from within Ami Pro
775518164
53
725043322
2088
6
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Function
4
[fnt]
Times New Roman
240
0
16385
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Comments
5
[fnt]
Times New Roman
240
16711680
16387
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Outline2
6
[fnt]
Times New Roman
200
0
16384
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline2
0
0
[tag]
Outline3
7
[fnt]
Times New Roman
200
0
16384
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline3
0
0
[l1]
0
[pg]
6
54 0 88 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
108 0 5 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
162 0 22 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
215 0 10 0 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
269 0 17 0 0 1 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
319 0 10 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
@Function@<:#283,9360>'declares & defines
@Outline2@<:#236,9360>'localize
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define err_cantfind "Could not find DocOnline."
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define err_cantfindanydocs "Could not find any DocOnline directories within: "
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define err_cantstartdde "Could not start DDE conversation with DocOnline"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define err_installfirst "Please install DocOnline, then choose this function."
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define HelpMenuName "&Help"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define msg_searchingfor "Searchng for: "
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define MyAppHelpText "Search for information with Lotus DocOnline"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define MyAppMenuText "&Search DocOnline..."
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define MyAppName "Search DocOnline"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_123data "1-2-3 DataLens Documentation ~{maindir}\123dlens\123data.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_123gde "1-2-3 User's Guide ~{maindir}\123user\123gde.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_123qs "1-2-3 Quick Start Documentation ~{maindir}\123qs\123qs.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_123solv "1-2-3 Solver Documentation ~{maindir}\123solv\123solv.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_ap30ug "Ami Pro User's Guide ~{maindir}\amipro\ap30ug.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_ccmail "cc:Mail Documentation ~{maindir}\ccmail\ccmail.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_flwug "Freelance Graphics User's Guide ~{maindir}\freelnce\flwug.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_improvhb "Improv Handbook ~{maindir}\improvhb\improvhb.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_improvag "Improv Application Guide ~{maindir}\improvag\improvag.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,255,0,0>define cb_text_organize "Organizer Documentation ~{maindir}\organize\organize.stx"<:f>
@Outline3@<:#236,9360><:f200,2Times New Roman,194,0,0>define cb_text_123R4lns "1-2-3R4 DataLens Documentation ~{maindir}\123r4lns\datalens.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,194,0,0>define cb_text_123R4user "1-2-3R4 User's Guide ~{maindir}\123R4usr\123user.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,194,0,0>define cb_text_123R4new "1-2-3R4 Quick Start Documentation ~{maindir}\123R4new\123new.stx"
@Outline3@<:#236,9360><:f200,2Times New Roman,194,0,0>define cb_text_organize11 "Organizer Documentation ~{maindir}\organize\usergde.stx"<:f>
@Outline2@<:#236,9360>'don't localize
@Outline3@<:#236,9360>declare TryToFilledit(id, text)
@Outline3@<:#236,9360>declare FindAndReplace(String, Findwhat, Replacewith)
@Outline3@<:#236,9360>DEFINE WM_Activate 0x0006
@Outline3@<:#236,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
@Outline3@<:#236,9360>define helpfile "HELPPACK.HLP"
@Outline3@<:#236,9360>define helpnum 150
@Outline3@<:#236,9360>define HELP_CONTEXT 0x0001
@Outline3@<:#236,9360>define VK_F1 112
@Outline3@<:#236,9360>define salesmsgsmm lotuspal.smm!salesmsg
@Outline3@<:#236,9360>define WinHelp(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline3@<:#236,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
@Function@<:#283,9360>Function AddToMenu()
@Outline2@MacFile = GetRunningMacroFile$()
@Outline2@<:#236,9360>itwasonbefore=DeleteMenuItem(1, HelpMenuName, MyAppMenuText)
@Outline2@<:#236,9360>if itwasonbefore
@Outline2@<:#236,9360> InsertMenuItem(1, HelpMenuName, 4, MyAppMenuText, "{MacFile}!smarthelp()", MyAppHelpText)
@Outline2@<:#236,9360> call smarthelp()
@Outline2@<:#236,9360>else
@Outline2@<:#236,9360> InsertMenuItem(1, HelpMenuName, 4, MyAppMenuText, "{MacFile}!smarthelp()", MyAppHelpText)
@Outline2@<:#236,9360>endif
@Outline2@<:#236,9360>End Function
@Function@<:#283,9360>Function SmartHelp()
@Outline2@Term1 = ""
@Outline2@<:#236,9360>Term2 = ""
@Outline2@<:#236,9360>Term3 = ""
@Outline2@<:#236,9360>id = 0
@Outline2@<:#236,9360>MacFile = GetRunningMacroFile$()
@Outline2@<:#236,9360>maindir = GetProfileString$("Smartext","Docpath","Stxr30.ini") 'added for Smarttext 3.0
@Outline2@<:#236,9360>if maindir = ""
@Outline2@<:#236,9360>maindir=GetProfileString$(MyAppName, "ReaderPath", "AMIPRO2.INI")
@Outline3@<:#236,9360>if maindir = ""
@Outline3@<:#236,9360> maindir = GetProfileString$("Smartext", "docpath", "reader.ini")
@Outline3@<:#236,9360> if maindir=""
@Outline3@<:#236,9360> call salesmsgsmm(8)
@Outline3@<:#236,9360> exit function
@Outline3@<:#236,9360> elseif
@Outline3@<:#236,9360> WriteProfileString(MyAppName, "ReaderPath", maindir, "AMIPRO2.INI")
@Outline3@<:#236,9360> endif
@Outline3@<:#236,9360>endif
@Outline3@<:#236,9360>endif
@Outline2@<:#236,9360>'Get search terms to fill dialog box.
@Outline3@<:#236,9360>Term1b = GetProfileString$(MyAppName, "Term1", "AMIPRO2.INI")
@Outline3@<:#236,9360>Term2b = GetProfileString$(MyAppName, "Term2", "AMIPRO2.INI")
@Outline3@<:#236,9360>Term3b = GetProfileString$(MyAppName, "Term3", "AMIPRO2.INI")
@Outline3@<:#236,9360>Oper1 = GetProfileString$(MyAppName, "Oper1", "AMIPRO2.INI")
@Outline3@<:#236,9360>Oper2 = GetProfileString$(MyAppName, "Oper2", "AMIPRO2.INI")
@Outline3@<:#236,9360>if Term1b ='''
@Outline3@<:#236,9360> WriteProfileString(MyAppName, "Oper1", "25", "AMIPRO2.INI")
@Outline3@<:#236,9360> WriteProfileString(MyAppName, "Oper2", "28", "AMIPRO2.INI")
@Outline3@<:#236,9360> Oper1 = GetProfileString$(MyAppName, "Oper1", "AMIPRO2.INI")
@Outline3@<:#236,9360> Oper2 = GetProfileString$(MyAppName, "Oper2", "AMIPRO2.INI")
@Outline3@<:#236,9360>Endif
@Outline2@<:#236,9360>'Fill dialog box edit boxes
@Outline3@<:#236,9360>FillEdit(1003, "doconlin.bmt")
@Outline3@<:#236,9360>FillEdit(8001, Term2b)
@Outline3@<:#236,9360>FillEdit(8002, Term3b)
@Outline3@<:#236,9360>FillEdit(Oper1, True)
@Outline3@<:#236,9360>FillEdit(Oper2, True)
@Outline3@<:#236,9360>FillEdit(20, True)
@Outline3@<:#236,9360>FillEdit(8000, "{Term1b}")
@Outline3@<:#236,9360>val=0
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_ap30ug)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123gde)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_flwug)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_improvhb)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_improvag)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_ccmail)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_organize)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123data)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123qs)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123solv)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123R4lns)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123R4user)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_123R4new)
@Outline3@<:#236,9360>val = val + TryToFillEdit(9500, cb_text_organize11)
@Outline3@<:#236,9360><:f200,2Times New Roman,194,0,0>
@Outline3@<:#236,9360>if val = 0
@Outline3@<:#236,9360> fulmsg=strcat$(err_cantfindanydocs, maindir)
@Outline3@<:#236,9360> message(fulmsg, MyAppName)
@Outline3@<:#236,9360> statusbarmsg("")
@Outline3@<:#236,9360> exit function
@Outline3@<:#236,9360>endif
@Outline3@<:#236,9360>statusbarmsg("")
@Outline2@<:#236,9360>'Call Dialog box
@Outline3@<:#236,9360>SetDlgCallBack(50, "{MacFile}!Clearit")
@Outline3@<:#236,9360>DlgKeyInterrupt(VK_F1, "{macfile}!helper")
@Outline3@<:#236,9360>box = Dialogbox(".", "smarthelp")
@Outline3@<:#236,9360>If box = 0
@Outline3@<:#236,9360> Exit Function
@Outline3@<:#236,9360>Endif
@Outline2@<:#236,9360>If Term1b = 0
@Outline2@<:#236,9360> Term1b = ""
@Outline2@<:#236,9360> Term2b = ""
@Outline2@<:#236,9360> Term3b = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>'Get the search terms entered in the dialog box and compile the search string
@Outline2@<:#236,9360>SearchTerms = Call GetSearchTerms()
@Outline2@<:#236,9360>Choice=strfield$(GetDialogField$(9500), 2, "~")
@Outline2@<:#236,9360>id = Call StartSmart(id, Choice, SearchTerms)
@Outline2@<:#236,9360>Endit:
@Outline2@<:#236,9360>If id = 0
@Outline2@<:#236,9360> Exit Function
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>DDETerminate(id)
@Outline2@<:#236,9360>End Function
@Function@<:#283,9360>function TryToFilledit (id, text)
@Outline2@<:#236,9360>Choice=strfield$(text, 2, "~")
@Outline2@<:#236,9360>statustxt=strcat$(msg_searchingfor, lcase$(choice))
@Outline2@<:#236,9360>statusbarmsg(statustxt)
@Outline2@<:#236,9360>foundit=FindFirst$(Choice, 33)
@Outline2@<:#236,9360>if foundit != ""
@Outline2@<:#236,9360> filledit(id, text)
@Outline2@<:#236,9360> return 1
@Outline2@<:#236,9360>else
@Outline2@<:#236,9360> return 0
@Outline2@<:#236,9360>endif
@Outline2@<:#236,9360>end function
@Function@<:#283,9360>Function StartSmart(id, Choice, SearchTerms)
@Outline2@<:#236,9360>'This function calls the SmarText Reader, does the search and returns to the main function.
@Outline2@<:#236,9360>Choice = strcat$(choice, " /o")
@Outline2@<:#236,9360>if Instr(0, SearchTerms, " ")
@Outline2@<:#236,9360> FindAndReplace(&SearchTerms, " ", "&") 'replace spaces with & so one-line searches work.
@Outline2@<:#236,9360>endif
@Outline2@<:#236,9360>'command = "<[><[>RUN(""/FR{filename}~"")]"
@Outline2@<:#236,9360>openit = "<[><[>Open ({choice})]"
@Outline2@<:#236,9360>Search = Strcat$(SearchTerms, ", """)
@Outline2@<:#236,9360>Searchit = "<[><[>Search({Search})]"
@Outline2@<:#236,9360>Maxit = "<[><[>Maximize(Text)]"
@Outline2@<:#236,9360>ShowSearch = "<[><[>Show(SearchResults)]"
@Outline2@<:#236,9360>MaxSmart = "<[><[>Restore(Smartext)]"
@Outline2@<:#236,9360>id=DDEInitiate("Smartext", "System")
@Outline2@<:#236,9360>'If the Reader is not running, this section is executed.
@Outline3@<:#236,9360>If id=0
@Outline3@<:#236,9360> 'next 4 lines added for SmarText 3.0
@Outline3@<:#236,9360> ReaderPath = StrField$((GetProfileString$("Lotus Applications","SmarText","Lotus.ini")),1," ")
@Outline3@<:#236,9360> If ReaderPath != ""
@Outline3@<:#236,9360> Exec(ReaderPath,"")
@Outline3@<:#236,9360> Endif
@Outline3@<:#236,9360> If ReaderPath = ""
@Outline3@<:#236,9360> ReaderPath = GetProfileString$("Smartext", "rdrpath", "reader.ini")
@Outline3@<:#236,9360> If ReaderPath = ""
@Outline3@<:#236,9360> 'message(err_cantfind, MyAppName)
@Outline3@<:#236,9360> call salesmsgsmm(8)
@Outline3@<:#236,9360> Elseif
@Outline3@<:#236,9360> Exec("{ReaderPath}\reader.exe", "")
@Outline3@<:#236,9360> Endif
@Outline3@<:#236,9360> Endif
@Outline3@<:#236,9360> id=DDEInitiate("Smartext", "System")
@Outline3@<:#236,9360> if id=0
@Outline3@<:#236,9360> Message(err_cantstartdde, MyAppName)
@Outline3@<:#236,9360> Exit Function
@Outline3@<:#236,9360> endif
@Outline3@<:#236,9360> DDEExecute(id,Openit)
@Outline3@<:#236,9360> DDEExecute(id, MaxSmart)
@Outline3@<:#236,9360> DDEExecute(id, Maxit)
@Outline3@<:#236,9360> If SearchTerms <<<;> ""
@Outline3@<:#236,9360> HourGlass(1)
@Outline3@<:#236,9360> DDEExecute(id, Searchit)
@Outline3@<:#236,9360> HourGlass(0)
@Outline3@<:#236,9360> DDEExecute(id, ShowSearch)
@Outline3@<:#236,9360> Endif
@Outline3@<:#236,9360> if id=0
@Outline3@<:#236,9360> Message(err_cantstartdde, MyAppName)
@Outline3@<:#236,9360> Exit Function
@Outline3@<:#236,9360> endif
@Outline3@<:#236,9360> Return(id)
@Outline3@<:#236,9360>endif
@Outline2@<:#236,9360>'This is run if Reader is already open.
@Outline3@<:#236,9360>DDEExecute(id,Openit)
@Outline3@<:#236,9360>DDEExecute(id, MaxSmart)
@Outline3@<:#236,9360>DDEExecute(id, Maxit)
@Outline3@<:#236,9360>If SearchTerms <<<;> ""
@Outline3@<:#236,9360> HourGlass(1)
@Outline3@<:#236,9360> DDEExecute(id, Searchit)
@Outline3@<:#236,9360> HourGlass(0)
@Outline3@<:#236,9360> DDEExecute(id, ShowSearch)
@Outline3@<:#236,9360>Endif
@Outline3@<:#236,9360>Return(id)
@Outline2@<:#236,9360>End Function
@Function@<:I0,360,360,360><:S+-1><:#283,9360>function helper()
@Outline2@<:#236,9360>prohWnd = FindWindow("AmiProWndA", 0)
@Outline2@<:#236,9360>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)
@Outline2@<:#236,9360>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)
@Outline2@<:#236,9360>end function
@Function@<:#283,9360>Function GetSearchTerms()
@Outline2@<:#472,9360>'This function compiles the selected terms into a string that can be used with the DDE commands. It also writes the terms to a .ini file to fill the edit boxes when the macro is executed.
@Outline2@<:#236,9360>Oper1 = ""
@Outline2@<:#236,9360>Oper2 = ""
@Outline2@<:#236,9360>Oper3 = ""
@Outline2@<:#236,9360>FillEdit(8000, "Test")
@Outline2@<:#236,9360>Term1 = GetDialogField$(8000)
@Outline2@<:#236,9360>If Term1 = 0
@Outline2@<:#236,9360> Term1 = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>WriteProfileString(MyAppName, "Term1", "{Term1}", "AMIPRO2.INI")
@Outline2@<:#236,9360>For i = 25 to 27
@Outline2@<:#236,9360> Select1 = GetDialogField$(i)
@Outline2@<:#236,9360> If Select1 = 1
@Outline2@<:#236,9360> WriteProfileString(MyAppName, "Oper1", "{i}", "AMIPRO2.INI")
@Outline2@<:#236,9360> Switch i
@Outline2@<:#236,9360> Case (25)
@Outline2@<:#236,9360> Oper1 = "&"
@Outline2@<:#236,9360> Case (26)
@Outline2@<:#236,9360> Oper1 = "|"
@Outline2@<:#236,9360> Case (27)
@Outline2@<:#236,9360> Oper1 = "&~"
@Outline2@<:#236,9360> EndSwitch
@Outline2@<:#236,9360> Endif
@Outline2@<:#236,9360>Next
@Outline2@<:#236,9360>Term2 = GetDialogField$(8001)
@Outline2@<:#236,9360>If Term2 = ""
@Outline2@<:#236,9360> Oper1 = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>If Term2 = 0
@Outline2@<:#236,9360> Term2 = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>WriteProfileString(MyAppName, "Term2", "{Term2}", "AMIPRO2.INI")
@Outline2@<:#236,9360>For i = 28 to 30
@Outline2@<:#236,9360> Select1 = GetDialogField$(i)
@Outline2@<:#236,9360> Oper2b = i
@Outline2@<:#236,9360> If Select1 = 1
@Outline2@<:#236,9360> WriteProfileString(MyAppName, "Oper2", "{i}", "AMIPRO2.INI")
@Outline2@<:#236,9360> Switch i
@Outline2@<:#236,9360> Case (28)
@Outline2@<:#236,9360> Oper2 = "&"
@Outline2@<:#236,9360> Case (29)
@Outline2@<:#236,9360> Oper2 = "|"
@Outline2@<:#236,9360> Case (30)
@Outline2@<:#236,9360> Oper2 = "&~"
@Outline2@<:#236,9360> EndSwitch
@Outline2@<:#236,9360> Endif
@Outline2@<:#236,9360>Next
@Outline2@<:#236,9360>Term3 = GetDialogField$(8002)
@Outline2@<:#236,9360>If Term3 = ""
@Outline2@<:#236,9360> Oper2 = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>If Term3 = 0
@Outline2@<:#236,9360> Term3 = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>WriteProfileString(MyAppName, "Term3", "{Term3}", "AMIPRO2.INI")
@Outline2@<:#236,9360>SearchTerms = strcat$(Term1, Oper1, Term2, Oper2, Term3)
@Outline2@<:#236,9360>If Term1 = ""
@Outline2@<:#236,9360> SearchTerms = ""
@Outline2@<:#236,9360>Endif
@Outline2@<:#236,9360>Return(SearchTerms)
@Outline2@<:#236,9360>End Function
@Function@<:#283,9360>Function Clearit(hdlg, id, text)
@Outline2@<:#236,9360>singlestep(0)
@Outline2@<:#236,9360>Term1 = ""
@Outline2@<:#236,9360>Term2 = ""
@Outline2@<:#236,9360>Term3 = ""
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 8000, Term1)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 8001, Term2)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 8002, Term3)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 25, True)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 26, False)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 27, False)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 28, True)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 29, False)
@Outline2@<:#236,9360>SetDlgItemText(hdlg, 30, False)
@Outline2@<:#236,9360>handle=GetDlgItem(hDlg,8000)
@Outline2@<:#236,9360>SetFocus(handle)
@Outline2@<:#236,9360>'AppSendMessage(handle,WM_Activate,1,0)
@Outline2@<:#236,9360>End Function
@Function@<:#283,9360>function FindAndReplace(String, Findwhat, Replacewith)
@Outline2@<:#236,9360>DefStr Location;
@Outline2@<:#236,9360>OffSet = 0
@Outline2@<:#236,9360>While 0 != Assign(&Location, Instr(OffSet, String, FindWhat))
@Outline2@<:#236,9360> BeforeLocation = Left$(String, Location - 1)
@Outline2@<:#236,9360> AfterLocation = Right$(String, Len(String) - Location);
@Outline2@<:#236,9360> *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)
@Outline2@<:#236,9360>Wend
@Outline2@<:#236,9360>End Function
@Function@<:#283,9360>DIALOG SmartHelp
@Outline2@<:#236,9360>-2134376448 16 58 38 176 126 "" "AmiDialog" "Search DocOnline"
@Outline2@<:#236,9360>FONT 8 "Helv"
@Outline2@<:#236,9360>8 34 104 12 8000 1350631552 "edit" "" 0
@Outline2@<:#236,9360>8 48 22 12 25 1342373897 "button" "&and" 0
@Outline2@<:#236,9360>46 48 18 12 26 1342177289 "button" "&or" 0
@Outline2@<:#236,9360>78 48 34 12 27 1342177289 "button" "&but not" 0
@Outline2@<:#236,9360>8 62 104 12 8001 1350631552 "edit" "" 0
@Outline2@<:#236,9360>8 76 24 12 28 1342373897 "button" "a&nd" 0
@Outline2@<:#236,9360>46 76 20 12 29 1342177289 "button" "o&r" 0
@Outline2@<:#236,9360>78 76 34 12 30 1342177289 "button" "bu&t not" 0
@Outline2@<:#236,9360>8 90 104 12 8002 1350631552 "edit" "" 0
@Outline2@<:#236,9360>50 108 120 40 9500 1344339971 "combobox" "" 0
@Outline2@<:#236,9360>8 24 52 10 1000 1342177280 "static" "Search Terms :" 0
@Outline2@<:#236,9360>130 4 40 14 1 1342373889 "button" "OK" 0
@Outline2@<:#236,9360>130 22 40 14 2 1342373888 "button" "Cancel" 0
@Outline2@<:#472,9360>8 4 110 18 1001 1342177280 "static" "Type in topics you would like to look up in the documentation." 0
@Outline2@<:#236,9360>8 110 42 10 1002 1342177280 "static" "Look up in:" 0
@Outline2@<:#236,9360>133 46 40 32 1003 1342177290 "static" "doconlin.bmt" 0
@Outline2@<:#236,9360>END DIALOG
>
[Embedded]
00022540
>
[macsum] 9
AddToMenu 0 0 3 37
SmartHelp 348 0 17 47
TryToFilledit 3585 2 4 131
StartSmart 3817 3 8 143
helper 5059 0 3 205
GetSearchTerms 5226 0 11 210
Clearit 6557 3 5 272
FindAndReplace 6996 3 5 290
SmartHelp 7426 0 -1 299
[macse]
14 AddToMenu
0 802
13
8 1
0 520 1 "&Help" "&Search DocOnline..."
13
8 2
6 2
11 00000230
0 527 1 "&Help" 4 "&Search DocOnline..." "{1}!smarthelp()" "Search for information with Lotus DocOnline"
16 smarthelp
10 00000336
0 527 1 "&Help" 4 "&Search DocOnline..." "{1}!smarthelp()" "Search for information with Lotus DocOnline"
6 0
15
9
14 SmartHelp
7 ""
8 1
7 ""
8 2
7 ""
8 3
5 0
8 4
0 802
13
8 5
0 286 "Smartext" "Docpath" "Stxr30.ini"
13
8 6
6 6
7 ""
18 0
11 00000454
0 286 "Search DocOnline" "ReaderPath" "AMIPRO2.INI"
13
8 6
6 6
7 ""
18 0
11 00000454
0 286 "Smartext" "docpath" "reader.ini"
13
8 6
6 6
7 ""
18 0
11 00000378
16 lotuspal.smm!salesmsg 8
6 0
15
9
10 00000454
0 287 "Search DocOnline" "ReaderPath" "{6}" "AMIPRO2.INI"
13
11 00000454
0 286 "Search DocOnline" "Term1" "AMIPRO2.INI"
13
8 7
0 286 "Search DocOnline" "Term2" "AMIPRO2.INI"
13
8 8
0 286 "Search DocOnline" "Term3" "AMIPRO2.INI"
13
8 9
0 286 "Search DocOnline" "Oper1" "AMIPRO2.INI"
13
8 10
0 286 "Search DocOnline" "Oper2" "AMIPRO2.INI"
13
8 11
6 7
0 287 "Search DocOnline" "Oper1" "25" "AMIPRO2.INI"
13
18 0
11 00000991
0 287 "Search DocOnline" "Oper2" "28" "AMIPRO2.INI"
0 286 "Search DocOnline" "Oper1" "AMIPRO2.INI"
13
8 10
0 286 "Search DocOnline" "Oper2" "AMIPRO2.INI"
13
8 11
0 31 1003 "doconlin.bmt"
0 31 8001 "{8}"
0 31 8002 "{9}"
0 31 "{10}" 1
0 31 "{11}" 1
0 31 20 1
0 31 8000 "{7}"
5 0
8 12
6 12
16 TryToFillEdit 9500 "Ami Pro User's Guide ~{6}\amipro\ap30ug.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3 User's Guide ~{6}\123user\123gde.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "Freelance Graphics User's Guide ~{6}\freelnce\flwug.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "Improv Handbook ~{6}\improvhb\improvhb.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "Improv Application Guide ~{6}\improvag\improvag.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "cc:Mail Documentation ~{6}\ccmail\ccmail.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "Organizer Documentation ~{6}\organize\organize.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3 DataLens Documentation ~{6}\123dlens\123data.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3 Quick Start Documentation ~{6}\123qs\123qs.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3 Solver Documentation ~{6}\123solv\123solv.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3R4 DataLens Documentation ~{6}\123r4lns\datalens.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3R4 User's Guide ~{6}\123R4usr\123user.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "1-2-3R4 Quick Start Documentation ~{6}\123R4new\123new.stx"
13
3 0
8 12
6 12
16 TryToFillEdit 9500 "Organizer Documentation ~{6}\organize\usergde.stx"
13
3 0
8 12
6 12
5 0
18 0
11 00002867
0 16 "Could not find any DocOnline directories within: " "{6}"
13
8 13
0 3 "{13}" "Search DocOnline"
0 789 ""
6 0
15
9
0 789 ""
0 41 50 "{5}!Clearit"
0 47 112 "{5}!helper"
0 26 "." "smarthelp"
13
8 14
6 14
5 0
18 0
11 00002997
6 0
15
9
6 7
5 0
18 0
11 00003059
7 ""
8 7
7 ""
8 8
7 ""
8 9
16 GetSearchTerms
13
8 15
0 27 9500
13
0 20 [X] 2 "~"
13
8 16
16 StartSmart "{4}" "{16}" "{15}"
13
8 4
6 4
5 0
18 0
11 00003214
6 0
15
9
0 9 "{4}"
6 0
15
9
14 TryToFilledit
0 20 "{1}" 2 "~"
13
8 3
0 17 "{3}"
13
0 16 "Searchng for: " [X]
13
8 4
0 789 "{4}"
0 280 "{3}" 33
13
8 5
6 5
7 ""
18 1
11 00000208
0 31 "{0}" "{1}"
5 1
15
9
10 00000220
5 0
15
9
6 2
15
9
14 StartSmart
0 16 "{1}" " /o"
13
8 1
0 808 0 "{2}" " "
13
11 00000108
16 FindAndReplace &2 " " "&"
7 "[[Open ({1})]"
8 4
0 16 "{2}" ", """
13
8 5
7 "[[Search({5})]"
8 6
7 "[[Maximize(Text)]"
8 7
7 "[[Show(SearchResults)]"
8 8
7 "[[Restore(Smartext)]"
8 9
0 8 "Smartext" "System"
13
8 0
6 0
5 0
18 0
11 00001080
0 286 "Lotus Applications" "SmarText" "Lotus.ini"
13
0 20 [X] 1 " "
13
8 10
6 10
7 ""
18 1
11 00000468
0 22 "{10}" ""
6 10
7 ""
18 0
11 00000666
0 286 "Smartext" "rdrpath" "reader.ini"
13
8 10
6 10
7 ""
18 0
11 00000622
16 lotuspal.smm!salesmsg 8
10 00000666
0 22 "{10}\reader.exe" ""
13
11 00000666
0 8 "Smartext" "System"
13
8 0
6 0
5 0
18 0
11 00000815
0 3 "Could not start DDE conversation with DocOnline" "Search DocOnline"
6 3
15
9
0 11 "{0}" "{4}"
0 11 "{0}" "{9}"
0 11 "{0}" "{7}"
6 2
7 ""
18 1
11 00000953
0 296 1
0 11 "{0}" "{6}"
0 296 0
0 11 "{0}" "{8}"
6 0
5 0
18 0
11 00001068
0 3 "Could not start DDE conversation with DocOnline" "Search DocOnline"
6 3
15
9
6 0
15
9
0 11 "{0}" "{4}"
0 11 "{0}" "{9}"
0 11 "{0}" "{7}"
6 2
7 ""
18 1
11 00001218
0 296 1
0 11 "{0}" "{6}"
0 296 0
0 11 "{0}" "{8}"
6 0
15
9
6 3
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HELPPACK.HLP"
13
8 2
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 150
6 0
15
9
14 GetSearchTerms
7 ""
8 1
7 ""
8 2
7 ""
8 3
0 31 8000 "Test"
0 27 8000
13
8 4
6 4
5 0
18 0
11 00000130
7 ""
8 4
0 287 "Search DocOnline" "Term1" "{4}" "AMIPRO2.INI"
5 25
8 5
5 27
6 5
18 2
12 00000271
10 00000541
5 1
6 5
3 0
8 5
10 00000195
0 27 "{5}"
13
8 6
6 6
5 1
18 0
11 00000528
0 287 "Search DocOnline" "Oper1" "{5}" "AMIPRO2.INI"
5 25
6 5
18 0
11 00000430
7 "&"
8 1
10 00000528
5 26
6 5
18 0
11 00000485
7 "|"
8 1
10 00000528
5 27
6 5
18 0
11 00000528
7 "&~"
8 1
10 00000238
0 27 8001
13
8 7
6 7
7 ""
18 0
11 00000602
7 ""
8 1
6 7
5 0
18 0
11 00000642
7 ""
8 7
0 287 "Search DocOnline" "Term2" "{7}" "AMIPRO2.INI"
5 28
8 5
5 30
6 5
18 2
12 00000783
10 00001063
5 1
6 5
3 0
8 5
10 00000707
0 27 "{5}"
13
8 6
6 5
8 8
6 6
5 1
18 0
11 00001050
0 287 "Search DocOnline" "Oper2" "{5}" "AMIPRO2.INI"
5 28
6 5
18 0
11 00000952
7 "&"
8 2
10 00001050
5 29
6 5
18 0
11 00001007
7 "|"
8 2
10 00001050
5 30
6 5
18 0
11 00001050
7 "&~"
8 2
10 00000750
0 27 8002
13
8 9
6 9
7 ""
18 0
11 00001124
7 ""
8 2
6 9
5 0
18 0
11 00001164
7 ""
8 9
0 287 "Search DocOnline" "Term3" "{9}" "AMIPRO2.INI"
0 16 "{4}" "{1}" "{7}" "{2}" "{9}"
13
8 10
6 4
7 ""
18 0
11 00001306
7 ""
8 10
6 10
15
9
6 0
15
9
14 Clearit
0 4 0
17 2
29 4 Term1
7 ""
8 4
17 3
29 5 Term2
7 ""
8 5
17 4
29 6 Term3
7 ""
8 6
17 5
0 43 "{0}" 8000 "{4}"
17 6
0 43 "{0}" 8001 "{5}"
17 7
0 43 "{0}" 8002 "{6}"
17 8
0 43 "{0}" 25 1
17 9
0 43 "{0}" 26 0
17 10
0 43 "{0}" 27 0
17 11
0 43 "{0}" 28 1
17 12
0 43 "{0}" 29 0
17 13
0 43 "{0}" 30 0
17 14
29 7 handle
0 44 "{0}" 8000
13
8 7
17 15
0 284 "user,SetFocus,HH" "{7}"
6 3
15
17 17
9
14 FindAndReplace
29 0 String
29 1 Findwhat
29 2 Replacewith
29 3 FindAndReplace
17 1
29 4 Location
17 2
29 5 OffSet
5 0
8 5
17 3
5 0
0 808 "{5}" "{0}" "{1}"
13
0 805 &4 [X]
13
18 1
11 00000412
17 4
29 6 BeforeLocation
6 4
5 1
3 1
0 806 "{0}" [X]
13
8 6
17 5
29 7 AfterLocation
0 14 "{0}"
13
6 4
3 1
0 807 "{0}" [X]
13
8 7
17 6
0 16 "{6}" "{2}" "{7}"
13
28 0
10 00000136
6 3
15
17 8
9
DIALOG SmartHelp
-2134376448 16 58 38 176 126 "" "AmiDialog" "Search DocOnline"
FONT 8 "Helv"
8 34 104 12 8000 1350631552 "edit" "" 0
8 48 22 12 25 1342373897 "button" "&and" 0
46 48 18 12 26 1342177289 "button" "&or" 0
78 48 34 12 27 1342177289 "button" "&but not" 0
8 62 104 12 8001 1350631552 "edit" "" 0
8 76 24 12 28 1342373897 "button" "a&nd" 0
46 76 20 12 29 1342177289 "button" "o&r" 0
78 76 34 12 30 1342177289 "button" "bu&t not" 0
8 90 104 12 8002 1350631552 "edit" "" 0
50 108 120 40 9500 1344339971 "combobox" "" 0
8 24 52 10 1000 1342177280 "static" "Search Terms :" 0
130 4 40 14 1 1342373889 "button" "OK" 0
130 22 40 14 2 1342373888 "button" "Cancel" 0
8 4 110 18 1001 1342177280 "static" "Type in topics you would like to look up in the documentation." 0
8 110 42 10 1002 1342177280 "static" "Look up in:" 0
133 46 40 32 1003 1342177290 "static" "doconlin.bmt" 0
00022565