Program Metropolis - Software Boutique 95/SOFTWARECD.iso/camipro3/macros2.cmz/DOCONLIN.SMM

INI File | 1994-08-14 | 27.7 KB | 1,603 lines

[ver]
    4
[sty]
    _MACRO.STY
[files]
[charset]
    82
    CHINESEBIG5 (Windows)
[revisions]
    0
[prn]
    COMPAQ PAGEMARQ 20 v2012.015
[port]
    LPT3.OS2
[lang]
    1
[desc]
    ▒╥░╩ SmarText ¿├▒q Ami Pro ññ░⌡ªµ╖j┤M░╩º@íC




    773101184
    54
    725043322
    1920
    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 65 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
    112 0 77 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
    169 0 28 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
    225 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
    282 0 12 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
    302 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@<:#284,9025>'declares & defines

@Outline2@<:#240,9025>'localized section

@Outline3@<:#240,9025><:X3,-32768;Include "amixlate.sam!DOCONLIN">define err_cantfind        "Could not find DocOnline."

@Outline3@<:#240,9025>define err_cantfindanydocs    "Could not find any DocOnline directories within: "

@Outline3@<:#240,9025>define err_cantstartdde    "Could not start DDE conversation with DocOnline"

@Outline3@<:#240,9025>define err_installfirst    "Please install DocOnline, then choose this function."

@Outline3@<:#240,9025>define HelpMenuName    "&Help"

@Outline3@<:#240,9025>define msg_searchingfor    "Searching for: "

@Outline3@<:#240,9025>define MyAppHelpText    "Search for information with Lotus DocOnline"

@Outline3@<:#240,9025>define MyAppMenuText    "&Search DocOnline..."

@Outline3@<:#240,9025>define MyAppName    "Search DocOnline"

@Outline3@<:#240,9025>define cb_text_123data    "1-2-3 DataLens Documentation           ~{maindir}\123dlens\123data.stx"

@Outline3@<:#240,9025>define cb_text_123gde    "1-2-3 User's Guide                      ~{maindir}\123user\123gde.stx"

@Outline3@<:#240,9025>define cb_text_123qs    "1-2-3 Quick Start Documentation                     ~{maindir}\123qs\123qs.stx"

@Outline3@<:#240,9025>define cb_text_123solv    "1-2-3 Solver Documentation                     ~{maindir}\123solv\123solv.stx"

@Outline3@<:#240,9025>define cb_text_ap30ug    "Ami Pro User's Guide                     ~{maindir}\amipro\ap30ug.stx"

@Outline3@<:#240,9025>define cb_text_ccmail    "cc:Mail Documentation                     ~{maindir}\ccmail\ccmail.stx"

@Outline3@<:#240,9025>define cb_text_flwug    "Freelance Graphics User's Guide                     ~{maindir}\freelnce\flwug.stx"

@Outline3@<:#240,9025>define cb_text_improvhb    "Improv Handbook                     ~{maindir}\improvhb\improvhb.stx"

@Outline3@<:#480,9025>define cb_text_improvag    "Improv Application Guide                     ~{maindir}\improvag\improvag.stx"

@Outline3@<:#240,9025>define cb_text_organize    "Organizer Documentation                     ~{maindir}\organize\organize.stx"

@Outline3@<:#240,9025><:X~3,-32768;Include "amixlate.sam!DOCONLIN">

@Outline2@<:#240,9025>'don't localize

@Outline3@<:#240,9025>declare TryToFilledit(id, text)

@Outline3@<:#240,9025>declare FindAndReplace(String, Findwhat, Replacewith)

@Outline3@<:#240,9025>DEFINE WM_Activate    0x0006

@Outline3@<:#240,9025>Define SetFocus() DllCall("user,SetFocus,HH",%1)

@Outline3@<:#240,9025>define helpfile        "HELPPACK.HLP"

@Outline3@<:#240,9025>define helpnum    150

@Outline3@<:#240,9025>define HELP_CONTEXT    0x0001

@Outline3@<:#240,9025>define VK_F1            112

@Outline3@<:#240,9025>define salesmsgsmm    lotuspal.smm!salesmsg

@Outline3@<:#240,9025>define WinHelp(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)

@Outline3@<:#240,9025>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)

@Function@<:#284,9025>Function AddToMenu()

@Outline2@<:#240,9025>MacFile = GetRunningMacroFile$()

@Outline2@<:#240,9025>itwasonbefore=DeleteMenuItem(1, HelpMenuName, MyAppMenuText)

@Outline2@<:#240,9025>if itwasonbefore

@Outline2@<:#480,9025>    InsertMenuItem(1, HelpMenuName, 4, MyAppMenuText, "{MacFile}!smarthelp()", MyAppHelpText)

@Outline2@<:#240,9025>    call smarthelp()

@Outline2@<:#240,9025>else

@Outline2@<:#480,9025>    InsertMenuItem(1, HelpMenuName, 4, MyAppMenuText, "{MacFile}!smarthelp()", MyAppHelpText)

@Outline2@<:#240,9025>endif

@Outline2@<:#240,9025>End Function

@Function@<:#284,9025>Function SmartHelp()

@Outline2@<:#240,9025>'singlestep(0)

@Outline2@<:#240,9025>Term1 = ""

@Outline2@<:#240,9025>Term2 = ""

@Outline2@<:#240,9025>Term3 = ""

@Outline2@<:#240,9025>id = 0

@Outline2@<:#240,9025>MacFile = GetRunningMacroFile$()

@Outline2@<:#240,9025>maindir=GetProfileString$(MyAppName, "ReaderPath", "AMIPRO2.INI")

@Outline3@<:#240,9025>if maindir = ""

@Outline3@<:#240,9025>    maindir = GetProfileString$("Smartext", "docpath", "reader.ini")

@Outline3@<:#240,9025>    if maindir=""

@Outline3@<:#240,9025>        call salesmsgsmm(8)

@Outline3@<:#240,9025>        exit function

@Outline3@<:#240,9025>    elseif

@Outline3@<:#240,9025>        WriteProfileString(MyAppName, "ReaderPath", maindir, "AMIPRO2.INI")

@Outline3@<:#240,9025>    endif

@Outline3@<:#240,9025>endif

@Outline2@<:#240,9025>'Get search terms to fill dialog box.

@Outline3@<:#240,9025>Term1b = GetProfileString$(MyAppName, "Term1", "AMIPRO2.INI")

@Outline3@<:#240,9025>Term2b = GetProfileString$(MyAppName, "Term2", "AMIPRO2.INI")

@Outline3@<:#240,9025>Term3b = GetProfileString$(MyAppName, "Term3", "AMIPRO2.INI")

@Outline3@<:#240,9025>Oper1 = GetProfileString$(MyAppName, "Oper1", "AMIPRO2.INI")

@Outline3@<:#240,9025>Oper2 = GetProfileString$(MyAppName, "Oper2", "AMIPRO2.INI")

@Outline3@<:#240,9025>if Term1b ='''

@Outline3@<:#240,9025>    WriteProfileString(MyAppName, "Oper1", "25", "AMIPRO2.INI")

@Outline3@<:#240,9025>    WriteProfileString(MyAppName, "Oper2", "28", "AMIPRO2.INI")

@Outline3@<:#240,9025>    Oper1 = GetProfileString$(MyAppName, "Oper1", "AMIPRO2.INI")

@Outline3@<:#240,9025>    Oper2 = GetProfileString$(MyAppName, "Oper2", "AMIPRO2.INI")

@Outline3@<:#240,9025>Endif

@Outline2@<:#240,9025>'Fill dialog box edit boxes

@Outline3@<:#240,9025>FillEdit(1003, "doconlin.bmt")

@Outline3@<:#240,9025>FillEdit(8001, Term2b)

@Outline3@<:#240,9025>FillEdit(8002, Term3b)

@Outline3@<:#240,9025>FillEdit(Oper1, True)

@Outline3@<:#240,9025>FillEdit(Oper2, True)

@Outline3@<:#240,9025>FillEdit(20, True)

@Outline3@<:#240,9025>FillEdit(8000, "{Term1b}")

@Outline3@<:#240,9025>val=0

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_ap30ug)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_123gde)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_flwug)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_improvhb)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_improvag)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_ccmail)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_organize)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_123data)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_123qs)

@Outline3@<:#240,9025>val = val + TryToFillEdit(9500, cb_text_123solv)

@Outline3@<:#240,9025>if val = 0

@Outline3@<:#240,9025>    fulmsg=strcat$(err_cantfindanydocs, maindir)

@Outline3@<:#240,9025>    message(fulmsg, MyAppName)

@Outline3@<:#240,9025>    statusbarmsg("")

@Outline3@<:#240,9025>    exit function

@Outline3@<:#240,9025>endif

@Outline3@<:#240,9025>statusbarmsg("")

@Outline2@<:#240,9025>'Call Dialog box

@Outline3@<:#240,9025>SetDlgCallBack(50, "{MacFile}!Clearit")

@Outline3@<:#240,9025>DlgKeyInterrupt(VK_F1, "{macfile}!helper")

@Outline3@<:#240,9025>box = Dialogbox(".", "smarthelp")

@Outline3@<:#240,9025>If box = 0

@Outline3@<:#240,9025>    Exit Function

@Outline3@<:#240,9025>Endif

@Outline2@<:#240,9025>If Term1b = 0

@Outline2@<:#240,9025>    Term1b = ""

@Outline2@<:#240,9025>    Term2b = ""

@Outline2@<:#240,9025>    Term3b = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>'Get the search terms entered in the dialog box and compile the search string

@Outline2@<:#240,9025>SearchTerms = Call GetSearchTerms()

@Outline2@<:#240,9025>Choice=strfield$(GetDialogField$(9500), 2, "~")

@Outline2@<:#240,9025>id = Call StartSmart(id, Choice, SearchTerms)

@Outline2@<:#240,9025>Endit:

@Outline2@<:#240,9025>If id = 0

@Outline2@<:#240,9025>    Exit Function

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>DDETerminate(id)

@Outline2@<:#240,9025>End Function

@Function@<:#284,9025>function TryToFilledit (id, text)

@Outline2@<:#240,9025>Choice=strfield$(text, 2, "~")

@Outline2@<:#240,9025>statustxt=strcat$(msg_searchingfor, lcase$(choice))

@Outline2@<:#240,9025>statusbarmsg(statustxt)

@Outline2@<:#240,9025>foundit=FindFirst$(Choice, 33)

@Outline2@<:#240,9025>if foundit != ""

@Outline2@<:#240,9025>    filledit(id, text)

@Outline2@<:#240,9025>    return 1

@Outline2@<:#240,9025>else

@Outline2@<:#240,9025>    return 0

@Outline2@<:#240,9025>endif

@Outline2@<:#240,9025>end function

@Function@<:#284,9025>Function StartSmart(id, Choice, SearchTerms)

@Outline2@<:#240,9025>'This function calls the SmarText Reader, does the search and returns to the main function.

@Outline2@<:#240,9025>Choice = strcat$(choice, "/o")

@Outline2@<:#240,9025>if Instr(0, SearchTerms, " ")

@Outline2@<:#240,9025>    FindAndReplace(&SearchTerms, " ", "&")    'replace spaces with & so one-line searches work.

@Outline2@<:#240,9025>endif

@Outline2@<:#240,9025>'command = "<[><[>RUN(""/FR{filename}~"")]"

@Outline2@<:#240,9025>openit = "<[><[>Open ({choice})]"

@Outline2@<:#240,9025>Search = Strcat$(SearchTerms, ", """)

@Outline2@<:#240,9025>Searchit = "<[><[>Search({Search})]"

@Outline2@<:#240,9025>Maxit = "<[><[>Maximize(Text)]"

@Outline2@<:#240,9025>ShowSearch = "<[><[>Show(SearchResults)]"

@Outline2@<:#240,9025>MaxSmart = "<[><[>Restore(Smartext)]"

@Outline2@<:#240,9025>id=DDEInitiate("Smartext", "System")

@Outline2@<:#240,9025>'If the Reader is not running, this section is executed.

@Outline3@<:#240,9025>If id=0

@Outline3@<:#240,9025>    ReaderPath = GetProfileString$("Smartext", "rdrpath", "reader.ini")

@Outline3@<:#240,9025>        If ReaderPath = ""

@Outline3@<:#240,9025>            'message(err_cantfind, MyAppName)

@Outline3@<:#240,9025>            call salesmsgsmm(8)

@Outline3@<:#240,9025>        Elseif

@Outline3@<:#240,9025>            Exec("{ReaderPath}\reader.exe", "")

@Outline3@<:#240,9025>        Endif

@Outline3@<:#240,9025>    id=DDEInitiate("Smartext", "System")

@Outline3@<:#240,9025>    if id=0

@Outline3@<:#240,9025>        Message(err_cantstartdde, MyAppName)

@Outline3@<:#240,9025>        Exit Function

@Outline3@<:#240,9025>    endif

@Outline3@<:#240,9025>    DDEExecute(id,Openit)

@Outline3@<:#240,9025>    DDEExecute(id, MaxSmart)

@Outline3@<:#240,9025>    DDEExecute(id, Maxit)

@Outline3@<:#240,9025>    If SearchTerms <<<;> ""

@Outline3@<:#240,9025>        HourGlass(1)

@Outline3@<:#240,9025>        DDEExecute(id, Searchit)

@Outline3@<:#240,9025>        HourGlass(0)

@Outline3@<:#240,9025>        DDEExecute(id, ShowSearch)

@Outline3@<:#240,9025>    Endif

@Outline3@<:#240,9025>    if id=0

@Outline3@<:#240,9025>        Message(err_cantstartdde, MyAppName)

@Outline3@<:#240,9025>        Exit Function

@Outline3@<:#240,9025>    endif

@Outline3@<:#240,9025>    Return(id)

@Outline3@<:#240,9025>endif

@Outline2@<:#240,9025>'This is run if Reader is already open.

@Outline3@<:#240,9025>DDEExecute(id,Openit)

@Outline3@<:#240,9025>DDEExecute(id, MaxSmart)

@Outline3@<:#240,9025>DDEExecute(id, Maxit)

@Outline3@<:#240,9025>If SearchTerms <<<;> ""

@Outline3@<:#240,9025>    HourGlass(1)

@Outline3@<:#240,9025>    DDEExecute(id, Searchit)

@Outline3@<:#240,9025>    HourGlass(0)

@Outline3@<:#240,9025>    DDEExecute(id, ShowSearch)

@Outline3@<:#240,9025>Endif

@Outline3@<:#240,9025>Return(id)

@Outline2@<:#240,9025>End Function

@Function@<:I0,360,360,360><:S+-1><:#284,9025>function helper()

@Outline2@<:#240,9025>prohWnd = FindWindow("AmiProWndA", 0)

@Outline2@<:#240,9025>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)

@Outline2@<:#240,9025>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)

@Outline2@<:#240,9025>end function

@Function@<:#284,9025>Function GetSearchTerms()

@Outline2@<:#480,9025>'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@<:#240,9025>Oper1 = ""

@Outline2@<:#240,9025>Oper2 = ""

@Outline2@<:#240,9025>Oper3 = ""

@Outline2@<:#240,9025>FillEdit(8000, "Test")

@Outline2@<:#240,9025>Term1 = GetDialogField$(8000)

@Outline2@<:#240,9025>If Term1 = 0

@Outline2@<:#240,9025>    Term1 = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>WriteProfileString(MyAppName, "Term1", "{Term1}", "AMIPRO2.INI")

@Outline2@<:#240,9025>For i = 25 to 27

@Outline2@<:#240,9025>    Select1 = GetDialogField$(i)

@Outline2@<:#240,9025>        If Select1 = 1

@Outline2@<:#240,9025>            WriteProfileString(MyAppName, "Oper1", "{i}", "AMIPRO2.INI")

@Outline2@<:#240,9025>            Switch i

@Outline2@<:#240,9025>                Case (25)

@Outline2@<:#240,9025>                    Oper1 = "&"

@Outline2@<:#240,9025>                Case (26)

@Outline2@<:#240,9025>                    Oper1 = "|"

@Outline2@<:#240,9025>                Case (27)

@Outline2@<:#240,9025>                    Oper1 = "&~"

@Outline2@<:#240,9025>            EndSwitch

@Outline2@<:#240,9025>        Endif

@Outline2@<:#240,9025>Next

@Outline2@<:#240,9025>Term2 = GetDialogField$(8001)

@Outline2@<:#240,9025>If Term2 = ""

@Outline2@<:#240,9025>    Oper1 = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>If Term2 = 0

@Outline2@<:#240,9025>    Term2 = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>WriteProfileString(MyAppName, "Term2", "{Term2}", "AMIPRO2.INI")

@Outline2@<:#240,9025>For i = 28 to 30

@Outline2@<:#240,9025>    Select1 = GetDialogField$(i)

@Outline2@<:#240,9025>    Oper2b = i

@Outline2@<:#240,9025>        If Select1 = 1

@Outline2@<:#240,9025>            WriteProfileString(MyAppName, "Oper2", "{i}", "AMIPRO2.INI")

@Outline2@<:#240,9025>            Switch i

@Outline2@<:#240,9025>                Case (28)

@Outline2@<:#240,9025>                    Oper2 = "&"

@Outline2@<:#240,9025>                Case (29)

@Outline2@<:#240,9025>                    Oper2 = "|"

@Outline2@<:#240,9025>                Case (30)

@Outline2@<:#240,9025>                    Oper2 = "&~"

@Outline2@<:#240,9025>            EndSwitch

@Outline2@<:#240,9025>        Endif

@Outline2@<:#240,9025>Next

@Outline2@<:#240,9025>Term3 = GetDialogField$(8002)

@Outline2@<:#240,9025>If Term3 = ""

@Outline2@<:#240,9025>    Oper2 = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>If Term3 = 0

@Outline2@<:#240,9025>    Term3 = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>WriteProfileString(MyAppName, "Term3", "{Term3}", "AMIPRO2.INI")

@Outline2@<:#240,9025>SearchTerms = strcat$(Term1, Oper1, Term2, Oper2, Term3)

@Outline2@<:#240,9025>If Term1 = ""

@Outline2@<:#240,9025>    SearchTerms = ""

@Outline2@<:#240,9025>Endif

@Outline2@<:#240,9025>Return(SearchTerms)

@Outline2@<:#240,9025>End Function

@Function@<:#284,9025>Function Clearit(hdlg, id, text)

@Outline2@<:#240,9025>singlestep(0)

@Outline2@<:#240,9025>Term1 = ""

@Outline2@<:#240,9025>Term2 = ""

@Outline2@<:#240,9025>Term3 = ""

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 8000, Term1)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 8001, Term2)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 8002, Term3)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 25, True)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 26, False)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 27, False)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 28, True)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 29, False)

@Outline2@<:#240,9025>SetDlgItemText(hdlg, 30, False)

@Outline2@<:#240,9025>handle=GetDlgItem(hDlg,8000)

@Outline2@<:#240,9025>SetFocus(handle)

@Outline2@<:#240,9025>'AppSendMessage(handle,WM_Activate,1,0)

@Outline2@<:#240,9025>End Function

@Function@<:#284,9025>function FindAndReplace(String, Findwhat, Replacewith)

@Outline2@<:#240,9025>DefStr Location;

@Outline2@<:#240,9025>OffSet = 0

@Outline2@<:#240,9025>While 0 != Assign(&Location, Instr(OffSet, String, FindWhat))

@Outline2@<:#240,9025>    BeforeLocation = Left$(String, Location - 1)

@Outline2@<:#240,9025>    AfterLocation = Right$(String, Len(String) - Location);

@Outline2@<:#240,9025>    *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)

@Outline2@<:#240,9025>Wend

@Outline2@<:#240,9025>End Function

@Function@<:#284,9025>DIALOG    SmartHelp

@Outline2@<:#240,9025>-2134376448    16    58    38    176    126    ""    "AmiDialog"    "Search DocOnline"

@Outline2@<:#240,9025>FONT    8    "Helv"

@Outline2@<:#240,9025>8    34    104    12    8000    1350631552    "edit"    ""    0

@Outline2@<:#240,9025>8    48    22    12    25    1342373897    "button"    "&and"    0

@Outline2@<:#240,9025>46    48    18    12    26    1342177289    "button"    "&or"    0

@Outline2@<:#240,9025>78    48    34    12    27    1342177289    "button"    "&but not"    0

@Outline2@<:#240,9025>8    62    104    12    8001    1350631552    "edit"    ""    0

@Outline2@<:#240,9025>8    76    24    12    28    1342373897    "button"    "a&nd"    0

@Outline2@<:#240,9025>46    76    20    12    29    1342177289    "button"    "o&r"    0

@Outline2@<:#240,9025>78    76    34    12    30    1342177289    "button"    "bu&t not"    0

@Outline2@<:#240,9025>8    90    104    12    8002    1350631552    "edit"    ""    0

@Outline2@<:#240,9025>50    108    120    40    9500    1344339971    "combobox"    ""    0

@Outline2@<:#240,9025>8    24    52    10    1000    1342177280    "static"    "Search Terms :"    0

@Outline2@<:#240,9025>130    4    40    14    1    1342373889    "button"    "OK"    0

@Outline2@<:#240,9025>130    22    40    14    2    1342373888    "button"    "Cancel"    0

@Outline2@<:#480,9025>8    4    110    18    1001    1342177280    "static"    "Type in topics you would like to look up in the documentation."    0

@Outline2@<:#240,9025>8    110    42    10    1002    1342177280    "static"    "Look up in:"    0

@Outline2@<:#240,9025>133    46    40    32    1003    1342177290    "static"    "doconlin.bmt"    0

@Outline2@<:#240,9025>END DIALOG

>

[Embedded]
00020443
>
[macsum] 9
AddToMenu 0 0 3 34
SmartHelp 348 0 17 44
TryToFilledit 3060 2 4 121
StartSmart 3293 3 8 133
helper 4375 0 3 188
GetSearchTerms 4542 0 11 193
Clearit 5873 3 5 255
FindAndReplace 6312 3 5 273
SmartHelp 6742 0 -1 282
[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 "Search DocOnline" "ReaderPath" "AMIPRO2.INI"
13
8 6
6 6
7 ""
18 0
11 00000374
0 286 "Smartext" "docpath" "reader.ini"
13
8 6
6 6
7 ""
18 0
11 00000298
16 lotuspal.smm!salesmsg 8
6 0
15
9
10 00000374
0 287 "Search DocOnline" "ReaderPath" "{6}" "AMIPRO2.INI"
13
11 00000374
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 00000911
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
5 0
18 0
11 00002342
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 00002472
6 0
15
9
6 7
5 0
18 0
11 00002534
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 00002689
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 "Searching for: " [X]
13
8 4
0 789 "{4}"
0 280 "{3}" 33
13
8 5
6 5
7 ""
18 1
11 00000209
0 31 "{0}" "{1}"
5 1
15
9
10 00000221
5 0
15
9
6 2
15
9
14 StartSmart
0 16 "{1}" "/o"
13
8 1
0 808 0 "{2}" " "
13
11 00000107
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 00000920
0 286 "Smartext" "rdrpath" "reader.ini"
13
8 10
6 10
7 ""
18 0
11 00000462
16 lotuspal.smm!salesmsg 8
10 00000506
0 22 "{10}\reader.exe" ""
13
11 00000506
0 8 "Smartext" "System"
13
8 0
6 0
5 0
18 0
11 00000655
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 00000793
0 296 1
0 11 "{0}" "{6}"
0 296 0
0 11 "{0}" "{8}"
6 0
5 0
18 0
11 00000908
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 00001058
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
00020468