Powerdrive 1998 #12

home *** CD-ROM | disk | FTP | other *** search

/ Powerdrive 1998 #12 / POWERDRIVE1298.ISO / programm / tb60hyp.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1998-02-18 | 128.9 KB | 2,375 lines

!This program cannot be run in DOS mode. .rdata @.rsrc @.reloc Asymetrix ToolBook Application MINSTB32.dll F & & K *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Hotword *RHOTWORD* Group Stage Button Viewer ComboBox Field RecordField *TbxBase* & oup bxBase* & bxBase* 8 , wwwwww wwwww wwwww wwwwww wwwwww &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar erlink" if "Add" .-+ +L deflt prompt ChooseFromTextLinesDlg s_ctb50r_cftldb main list _ASYM_ChooseFromTextLinesDlg ,,H., ,,H., prompt customSize small medium large main list enterPage closeThisWindow Cancel closeThisWindow okBtn deflt main list firstIdle main list closeThisWindow s_ctb50r_cftldb main list cancel prompt OKbtn grpFr small medium Cancelbtn large dlgframe grpList fldPrmpt main list customSize 5[.~7} .-+ +L .-+ +L .-+ +L .-+ +L .-+ +L strNone cancel oldDir RegistryGetKey lOpenFileDlgAny TBKIniValue Choose a Web browser DLLID &Cancel Locate Web Browser iexplore.exe reg.dll GetExeTitle tbk_IniFile Extensions \ie20.exe win.dll Programs tbfile32.dll Web Browser dlg.dll FindRegAssociation GetIniVar YesNoCancel tbk_CurrentDirectory Internet Apps OpenFileDlg OpenFileDlgAny The browser to use is %1. question GetShortFileName32 _ASYM_ChooseFromTextLinesDlg FindModuleExeFiles FindNetscapeExe WriteBrowserIniEntry <another one> Custom browser FASYM_ProductPrefix Correct? \iexplore.exe AddToAvailableExes prompt iniFile UpdateIniBrowserInfo foundModuleExes askList win.ini FileExists SetIniVar GetIniVar GetFileVersion getMemBlock tbk_getWinPointer freeMemBlock tbk_freeWinPointer GetShortFileName32 GetLongFileName32 OpenFileDlg32 OpenFileDlgAny netscape.exe AddtoAvailableExes ASYM_MessageBox FindIExploreExe Choose Browser defaultExename OpenFileDlg OpenFileDlgAny itemOffset tbk_itemOffset textlineOffset tbk_textlineOffset ListToTextLine SortList SortTextLines Ntbk_GetString GetDriveList GetDriveKind GetFileDate FileExists airmos.exe dos.dll filter ASYM_FindExecutableFile Confirm browser x wsortTextLines *.exe Choose a default Web browser to use with ToolBook ,*.EXE IEXPLORE.EXE,NETSCAPE.EXE ASYM_Is32Bit ChooseFromTextLinesDlg knownModules *.htm Web Browsers *tbk_SetCurrentDirectory ChooseWebBrowser ,,H., TBKIniValue Web Browsers tbk_IniFile oldList SetIniVar WriteBrowserIniEntry UpdateIniBrowserInfo airmos.exe winClass SetIniVar iexplore.exe GetExeTitle tbk_IniFile ~GetFileVersion Internet Explorer_Frame iniVal mosaic revOffset GetShortFileName32 SPRYMosaicCls ddeAppName WriteBrowserIniEntry C3333 w, #? MicrosoftExplorer verNo SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\IE40 resdll.dll GetShortFileName32 pathOfFile Build X 4.40.3 SOFTWARE\Microsoft\Internet Connection Wizard iexplore.exe Build %1 ~getFileVersion netscape.exe verMajor RegistryGetKey Ntbk_GetString Netscape Build Release Product Version strBuild AIRMOS.EXE SOFTWARE\Microsoft\Internet Explorer Release Product GetLongFileName32 Microsoft Windows(TM) Internet Tools strExplorer verName verInfo Microsoft Internet Explorer %1 HKEY_LOCAL_MACHINE\ 4.40. Mosaic DisplayName GetFileDate Microsoft GetExeTitle \shell\open\command HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ RegistryGetKey FindRegAssociation CurrentVersion\App Paths\IEXPLORE.EXE SOFTWARE\Microsoft\Windows\ RegistryGetKey HKEY_LOCAL_MACHINE\ FindIExploreExe CurrentVersion\App Paths\NETSCAPE.EXE SOFTWARE\Microsoft\Windows\ RegistryGetKey HKEY_LOCAL_MACHINE\ FindNetscapeExe s_twiddleCursor twiddleCursor FileExists mqtbk_itemOffset GetShortFileName32 AddToAvailableExes GetModuleFileName GetModuleHandle GetModuleHandle GetModuleFileName r1tbk_FreeWinPointer kernel lpBuff tbk_GetWinPointer FindModuleExeFiles RegistryGetKey QueryRegistry32 tbk_iniFile SetIniVar Value tbk_iniFile GetIniVar TBKIniValue HShortFileName GetShortFileName32 GetShortFileName32 HShortFileName GetLongFileName32 GetLongFileName32 .-+ +L .-+ +L .-+ +L WWW_OpenURL IExplore GetIniVar getMemBlock tbk_getWinPointer ,-UvLw6.I freeMemBlock tbk_freeWinPointer FileExists , TPw6 TBKIniValue DLLID }gyieldApp MFileNameToURL dos.dll Navigator Internet Apps WWW_Activate winTitle tbfile32.dll Microsoft Netscape iexplore Communicator revOffset BringWindowToTop netscape FindNetscapeExe GetShortFileName32 FASYM_ProductPrefix FindWindow FindWindowByTitle FindWindow FindWindowByClass ShowWindow BringWindowToTop GetWindowLong IsIconic win.dll URLSpecialCharsExpand popup ShowWindow 0xFFFFFFFF Web Browsers iniFile ,ASYM_ShortFileName ASYM_Is32Bit FileExists airmos FindIExploreExe tbk_iniFile GetShortFileName32 GetLongFileName32 OpenFileDlg32 OpenFileDlgAny mosaic FindWindowByTitle Explorer UseNewWindow WWW_GetWindowInfo `isIconic 0xFFFFFFFF,0x0 kernel ShowError FindWindowByClass ,0,"","", GetSystemDirectory oldList tbk_ChooseWebBrowser winID no server DisplayURL ActuallyMaybeBadInstall Ntbk_GetString verify that the browser is installed correctly. Error ASYM_MessageBox ASYM_GetString If there is plenty of memory and disk space, showError 1, #> ,(J " RemoveFile GetTempFileName FASYM_ProductPrefix aFindExecutable DLLID GetShortFileName32 file32.dll win.dll fileExists GetShortFileName32 tempFn ASYM_Is32Bit lpBuffer FindExecutable JRw-* r1tbk_freeWinPointer PathOfFile ASYM_CurrentDirectory revOffset FileExists kernel shell.dll RemoveFile fileExists getMemBlock tbk_getWinPointer ,-U?A freeMemBlock tbk_freeWinPointer DOS.dll GetTempFileName tbk_getWinPointer jg080647 status _FindExecutableFile revOffset URLSpecialCharsContract jtbk_trim file:/// file:// strPrefix URLToFileName URLHex %@h00 URLSpecialCharsContract 1, "j 1, "L ,(J!" or servers. The invalid character(s) will be converted to an escape URLHex ...contains character(s) that will cause problems with some browsers FALSE Warnings Invalid char in URL tbk_IniFile Invalid character(s) in URL errFlagged sequence such as "%20". %@H00 GetIniVar ShowWarning URLSpecialCharsExpand Ntbk_getString tbk_getString 1, #> GetShortFileName32 file:// jtbk_trim gopher: ASYM_FindPathFile hyperPath file:/// URLSpecialCharsExpand http: strPrefix ASYM_HyperPath mailto: FileNameToURL w, #> FASYM_ProductPrefix ASYM_IniFile ASYM_MTBVersion tbk_IniFile zo> , 2C6n3 s@7)Z Iu@1J l\ m URL Stuff URLSpecialCharsExpand ASYM_URLSpecialCharsExpand URLSpecialCharsContract URL Stuff ASYM_URLSpecialCharsContract tranfFx z_ASYM_AddLinkToArray _ASYM_AddAnswerArrayHyperlink false ASYM_HasAnsArray z_ASYM_AddLinkToArray zo_ASYM_HyperlinkIRow ASYM_WID_AnsArray ASYM_WID_AnsArray _ASYM_AddAnswerHyperlink false z_ASYM_AddLinkToArray zo_ASYM_HyperlinkIRow _asym_hyperlinks _asym_hyperlinks E=ASYM_HasHyperlinks _ASYM_AddHyperlink false z_ASYM_AddLinktoArray zo_ASYM_HyperlinkIRow ASYM_EnableHyperlinks _ASYM_AddHyperlinkToArray B. Store the directory with the book file name with the hyperlink. Choose this option for speed, but only &B. Store Directory with Hyperlink to the current book's list of directories to search automatically. Choose this option if you might want fName nASYM_altPgName false thisBook <mainWindow> destBook itemOffset tbk_itemOffset <next>,<previous>,<last>,<first>,<back> BASYM_nameOrID HshortFileName ASYM_FindPathFile hyperPath A. Add the destination directory (as a relative path if it is on the same drive as the current book) relPath pathOfFile mqtbk_itemOffset to move the books around at a later date or if your books might be installed into directories different V_SetHyperPath ASYM_HyperPath &A. Add Directory to Search Path thisPath The destination book is not in a directory that will be searched automatically. You can: ASYM_NewRelativePath to their current location. if you will never move your books and they will never be installed into directories different to their current location. destPath tbdlg.dll _ASYM_AddLinkToArray h#ASYM_FindHyperPage _ASYM_BadLinksList ,,H., false _ASYM_ClearAnsArrayHyperlink false ASYM_HasAnsArray zo_ASYM_HyperlinkIRow ASYM_WID_AnsArray ASYM_WID_AnsArray _ASYM_ClearAnswerHyperlink false _ASYM_ClearHyperlinkFromArray _asym_hyperlinks _asym_hyperlinks E=ASYM_HasHyperlinks _ASYM_ClearHyperlink zo_ASYM_HyperlinkIRow _ASYM_ClearHyperlinkFromArray ,(J," .-+ +L false ASYM_PopupPage ASYM_DisplayURL HASYM_GoToPage cursN ASYM_ResetCursor <exit> _ASYM_HyperlinkLinkInfo _ASYM_ExecHyperLink _asym_hyperlinks _ASYM_HyperlinkCandidates pgRef FALSE ASYM_FindHyperWindow zo_ASYM_HyperlinkIRow h#ASYM_FindHyperPage _ASYM_HyperlinkLinkInfo _ASYM_HyperlinkIRow s_tbk_popViewers HorizontalDisplayRes There are no Viewers available. false sysMenu lScreenFromPage asym_resetCursor 9VerticalDisplayRes thinCaption tbwin.dll ASYM_ResetCursor magicName tbk_TempViewer vtemp jtbk_CloseOnEsc thick autoClose Do not rename me ScreenFromPage , Uok VerticalDisplayRes TrPat-) HorizontalDisplayRes TPath-) shadow _ASYM_PopupPage oldse _ASYM_SysCursor hotword button _AutoCloseCheck <BookDir> bkName _asym_HyperPath deftag pathOfFile ASYM_CurrentDirectory BookDir ASYM_NewRelativePath thePath _SetHyperPath _ASYM_AddHyperlink _tbk_AddHyperlink j_ASYM_AddHyperlinktoArray _tbk_AddHyperlinktoArray z_ASYM_AddLinkToArray _tbk_AddLinkToArray _ASYM_BadLinksList _tbk_BadLinksList j}_ASYM_ClearHyperlink _tbk_ClearHyperlink _ASYM_ClearHyperlinkFromArray _tbk_ClearHyperlinkFromArray nX_ASYM_ExecHyperLink _tbk_ExecHyperLink R_ASYM_HyperlinkCandidates _tbk_HyperlinkCandidates _ASYM_HyperlinkLinkInfo _tbk_HyperlinkLinkInfo zo_ASYM_HyperlinkIRow _tbk_HyperlinkIRow _ASYM_PopupPage _tbk_PopupPage _ASYM_SysCursor _tbk_SysCursor 6_ASYM_AddAnswerHyperlink ASYM_AddAnswerHyperlink _ASYM_AddHyperlink ASYM_AddHyperlink .-, #? pgCaption title ASYM_AltPgName ChooseWebBrowser URL Stuff ASYM_ChooseWebBrowser _ASYM_ClearAnswerHyperlink ASYM_ClearAnswerHyperlink j}_ASYM_ClearHyperlink ASYM_ClearHyperlink w, #> vGetCurrentDirectory GetCurrentDrive GetCurrentDrive GetCurrentDirectory tbDOS.dll ASYM_CurrentDirectory ASYM_CurrentDirectory ASYM_CurrentPath URL Stuff DisplayURL ASYM_DisplayURL FALSE ASYM_HasAnsArray P#ASYM_WID_SummaryFeedback ASYM_WID_AnsArray ASYM_HasFBArray nX_ASYM_ExecHyperlink ASYM_DoAnswerHyperlink s_tbk_hypTargetWindow false _asym_hyperlinks E=ASYM_HasHyperlinks nX_ASYM_ExecHyperlink ASYM_DoHyperlink Invalid hyperlink viewer reference: %1 stripBk ASYM_FindHyperWindow <back> <next> HshortFileName s_ASYMI_currentPage pathOfFile <last> <previous> ASYM_HyperPath <exit> <first> tbk_FindPathFile ASYM_FindHyperPage of book s_tbk_hypTargetWindow <parentWindow> <mainWindow> viewer of book "%1" <targetWindow> ASYM_FindHyperWindow ASYM_FindPage DOSPath false tbDOS.DLL ASYM_IsFile I4GetDosEnvironmentString pathOfFile testName bkPath ASYM_Trim 2,ASYM_ExpandRelPath GetDosEnvironmentString ASYM_FindPathFile ASYM_HasAnsArray u@ASYM_GetHyperlinks ASYM_GetAnswerHyperlinks 1,(Fj 1,(Fj ASYM_HasAnsArray _ASYM_Hyperlinks ASYM_WID_AnsArray E=ASYM_HasHyperlinks ASYM_GetHyperlinks transPt _ASYM_sysCursor false %sysMousePosition% page id asym_resetCursor transPt oldPg pgRef false transfx oldCurs isURL ASYM_GoToPage _asym_hyperlinks ASYM_HasHyperlinks mqtbk_itemOffset itemOffset tbk_itemOffset , T4$g pathOfFile ASYM_CurrentDirectory _asym_HyperPath ASYM_Trim tbdlg.dll ASYM_HyperPath V_SetHyperPath ASYM_HyperPath FileExists , T4.j FileExists tbdos.dll ASYM_IsFile ASYM_MakeIntoRelPath minorVersion ASYM_MTBVersion .-, #? ASYM_NameOrID _ASYM_PopupPage ASYM_PopupPage ASYM_ProductPrefix pathOfFile ASYM_RelativePath bkPath ASYM_RelativePath .-+ +L ASYM_ResetCursor ASYM_trim R_ASYM_hyperlinkCandidates s_tbk_hypTargetWindow ASYM_DoHyperlink buttonClick buttonClick R_ASYM_hyperlinkCandidates s_tbk_hypTargetWindow ASYM_DoHyperlink buttonClick extClick Cancel MessageBox YesNo Ignore Exclamation system Information AbortRetryIgnore OkCancel Abort Question YesNoCancel RetryCancel Retry MessageBox hyp_MessageBox pathOfFile shortFileName _ASYM_AddHyperlink tbk_AddHyperlink nASYM_AltPgName tbk_AltPgName ASYM_ChooseWebBrowser tbk_ChooseWebBrowser ASYM_CurrentDirectory tbk_CurrentDirectory ASYM_CurrentDirectory tbk_CurrentPath ASYM_DisplayURL tbk_DisplayURL ASYM_DoHyperlink tbk_DoHyperlink h#ASYM_FindHyperPage tbk_FindHyperPage Z4ASYM_FindPage tbk_FindPage ASYM_FindPathFile tbk_FindPathFile u@ASYM_GetHyperlinks tbk_GetHyperlinks HASYM_GoToPage tbk_GoToPage E=ASYM_HasHyperlinks tbk_HasHyperlinks ASYM_HyperPath tbk_HyperPath ASYM_HyperPath tbk_HyperPath w, #> FASYM_ProductPrefix tbk_IniFile ASYM_IniFile ASYM_MTBVersion tbk_IniFile ASYM_IsFile tbk_IsFile ASYM_NewRelativePath tbk_MakeIntoRelPath BASYM_NameOrID tbk_NameOrID _ASYM_PopupPage tbk_PopupPage ASYM_NewRelativePath tbk_RelativePath ASYM_trim tbk_trim rootPathItem ASYM_ConvertPathToList rootPathList relPathList Can't create relative path otherPathItem otherPathList ASYM_ConvertListToPath ASYM_NewRelativePath itemOffset ASYM_ConvertPathToList itemOffset tbdlg.dll ASYM_ConvertListToPath ASYM_ResolvePath ASYM_ResolvePath ASYM_ExpandRelPath ASYM_ConvertPathToList ASYM_ConvertListToPath FALSE ASYM_Is32Bit groupfieldrecordfieldpagebackgroundbook of book tbk_Container _ASYM_ChooseFromTextLinesDlg dlgCaption, prompt, txtLines, deflt 4s_ctb50r_cftldb v = objectContainer ( defaultPage "main list" enabled B"OK" FlushMessageQueue() %modal & "" fld = customSize = "small" = "medium" textRightOverflow = "large" Cancel closeThisWindow firstIdle i = 1 txt = cnt = selectedTextLines okBtn = B"OK" B"OK" grpFr = "dlgframe" fldPrmpt = grpList = OKbtn = B"OK" Cancelbtn = 15,45,2955,2550 60,120,3075,570 75,585,2880,2490 3030,45 }3030,495 /= 4575,2595 15,45,4800,2550 60,120,4740,570 75,585,4755,2490 4875,45 4875,495 /= 6450,2595 15,45,7260,2550 60,120,7185,570 75,585,7200,2490 7335,45 7335,495 /= 8880,2595 ASYM_URLSpecialCharsExpand s $ Stuff" =rsContract s URLSpecialCharsContract(s) _ASYM_AddAnswerArrayHyperlink ansArray[][] Hreference, iRow, pgRef, transFx, linkType, curs, isURL, vRef _ASYM_AddLinkToArray ( LfFx, _ASYM_AddAnswerHyperlink obj, linkName, Zhyperlinks[][] ASYM_HasAnsArray( , = ASYM_WID_AnsArray i = _ASYM_HyperlinkIRow( i = 0 ay (hyperLinks, i, _ASYM_AddHyperlink LOCAL ASYM_HasHyperlinks(obj) = _asym_hyperlinks i = i = 0 i = dimensions( =) + 1 i = 1 i][1] = _ASYM_AddHyperlinkToArray ASYM_EnableHyperlinks() n = i = i = 0 i = n+1 i][1] = _ASYM_AddLinktoArray( , i, --** HCO 940727 linkDLL "tbdlg.dll" INT tbk_itemOffset = (STRING, = "< .>") > 0 = TRUE ][2] = ][3] = ][4] = ][2] = ASYM_nameOrID( ][3] = ASYM_altPgName( thisBook = destBook = objectContainer( ][4] = fName = destPath = pathOfFile( thisPath = "c:\" "c:\x\" relPath = ASYM_MakeIntoRelPath( &NewRelativePath ( shortFileName( hyperPath = ASYM_HyperPath inPath = (ASYM_FindPathFile( D) <> "The destination a directory that will be searched automatically. You can:" & \ CRLF & "A. Add the %a relative same drive -current 8)" && \ 8's list directories Choose option you might want" && \ books around )a later your <be installed qdifferent" && \ their location." & \ "B. Store 8file speed, but only" && \ nd they f"&A. Directory Search "&B. "Add" _SetHyperPath ][4] = ][5] = ( ][6] = ][7] = ][8] = ][9] = _ASYM_BadLinksList --** HCO 940727 stack badLinks _ [i][2] <> i][2] <> "<" ASYM_FindHyperPage ( [i][2], i,3], i][4]) = i][1] _ASYM_ClearAnsArrayHyperlink ][i] = _ASYM_ClearAnswerHyperlink i = i <> 0 i][2] = i][3] = i][4] = i][5] = i][6] = i][7] = _ASYM_ClearHyperlink @nkFromArray( 1][2] <> ) <= 10 ) = 1 1][2] = newLinks[][] WORD n,i,j,k n = i = IsAnsArray = ( ) > 10) (i > 0 (n = 1 i = 1) -- special Mbecause array assignment bug i][j] = reset i > 0 j][k] = j][k] n - 1 j][k] = j+1][k] = newlinks _ASYM_ExecHyperLink _ASYM_HyperlinkLinkInfo( cursN = isType(" #> 0 +<= 44 ; -- URL ASYM_DisplayURL tbk_DisplayURL exeName, ASYM_PopupPage( ASYM_GoToPage( ASYM_ResetCursor _ASYM_HyperlinkCandidates candidates[] obj <> En] = resolv --assumes i][8] correct types --cad970606 i = i = 0 i][2] & i][3]) = i][2] "<" -- keyword <> FALSE i][3], i][4], i][8]) i][3], i][4], [i][5], i][8]) i][8] = ASYM_FindHyperWindow( i][5], i][6], i][7], i][9] i][5] = " 8") <> i][5] = " "OK", i][3], i][4] "BAD", i][2], i][3], [i][4] n = i][1] = _ASYM_PopupPage popStyle, pos, captn, {oldPg oldCurs mousePos = maxPopups = 5 --** MAGIC NUMBER magicName = "Do xrename me" myBk = ss = (s_tbk_popViewers) >= isOpen parentHandle close v = ss; -- available vtemp = && i) vTemp "There tbk_TempViewer style v = "sysMenu" imageBuffers v = 1 alwaysReader captionBar tbk_CloseOnEsc c"autoClose" c"shadow" c"thick" v = "thickFrame" c"thinCaption" v = "thinFrame" v = " v = " v = dialogFrame ss = --** DEBUG X"tbwin. ScreenFromPage( VerticalDisplayRes() HorizontalDisplayRes() -- place mouseclick %possible --defaultPosition v = " 4 = pageUnitsToScreen( , targetWindow) windowHandle ),pageScroll defaultPage x2 > s() - x2,0 y2 > ) - y2 x1 < 0 H-x1,0 y1 < 0 H0,-y1 asym_resetCursor -- sharedScript " _ASYM_SysCursor ;oldse= r;oldsen=sysErrorNumber real", _AutoCloseCheck loc v = . = mousePosition objectFromPoint( buttonClick bk, what bk <> bk = bk = bk = bkName = BookDir = ASYM_CurrentDirectory() deftag = "< tagLen = BookDirLen = dir = <> "\" @bookDir +) = 1 ASYM_NewRelativePath ( ) = 1 taglen thePath = ASYM_RelativePath (dir, thepath _asym_HyperPath _tbk_AddHyperlink _tbk_AddHyperlinktoArray _ASYM_AddHyperlinktoArray ( _tbk_AddLinkToArray RL, !x, RL, _tbk_BadLinksList _tbk_ClearHyperlink _tbk_ExecHyperLink _tbk_HyperlinkCandidates _tbk_HyperlinkLinkInfo _tbk_HyperlinkIRow _tbk_PopupPage "fx, "fx, _tbk_SysCursor ASYM_AltPgName title pgCaption "ID" && ASYM_ChooseWebBrowser X"tbDOS. GetCurrentDrive() GetCurrentDirectory( drv = "\" & <> "\" <& ":" & ASYM_CurrentPath url, mode ASYM_DoAnswerHyperlink $answerName, IsSpecific isSpecific xASYM_HasFBArray( $= ASYM_WID_SummaryFeedback _ASYM_ExecHyperlink ( ASYM_DoHyperlink %triggerName SYSTEM s_tbk_hypTargetWindow $hlinks[][] pgName, ", bk, &Symbol U&i][8] ASYMI_currentPage %logical ss 5'destbk # refString 5' = E' = w(vSymbol) r= expandString("Invalid ': %1", "<" -- s_ASYMI_currentPage = pg = pg = bk = z( = #) = ?) = ss = --!!charley: should how about " bk <> bk already a 8) & bk "hyperpath? tbk_FindPathFile (bk, -- Jresort: strip cad980112 stripBk = #%bk) <> bk bk = "ID" DWORD, ;, = " && " && isObject( -- "ID" ) = 2 >- = S- = = "< = "< = "<parentWindow>" must be a 8""%1""", 8)) \ ASYM_FindPage pgN ss = DOSPath = c":\" ASYM_IsFile( 5* = , GetDosEnvironmentString( PATH") p = ~("=", p > 0 p = ~(";", cp <> 0 * = "," p = ~(";", bkPath = $+ <> ASYM_Trim( <> "\" xsysPluginMode qexpandRelPath than handles more complex *paths tbk_ExpandRelPath( ASYM_ExpandRelPath ( <> ":" testName = ss = ASYM_GetAnswerHyperlinks ASYM_GetHyperlinks( ZhLInfo 1= _ASYM_Hyperlinks n = 3i][8] 3i][5] !3i][9] 43i][7] G3i][6] Z3i][4] m3i][3] 3i][2] 3i][1] 3 <> n = J4i][8] X4i][5] k4i][9] ~4i][7] 4i][6] 4i][4] 4i][3] 4i][2] 4i][1] 5 <> 5fx, ss= C6 <> " *! = _ASYM_sysCursor() \6 <> transfx <> p = p > 0 transPt = Vp + 4 transition r7 <> %6 obj ss = w4 result, bk = bk = bk <> bk = bk <> 2) = 2) > 0 FileExists( "6os. 4h rootPath,longPath ) = 1 p1 = 1;p2 = p1 cp2 < p2 > 0 dirlen = p2 - p1 p2 - 1 4".." p2 = p2 - p1 = p2 ASYM_MTBVersion dotFlag, options "minorVersion" "6.1" "6.0" ASYM_NameOrID obj c"//" "ID" && ASYM_ProductPrefix capFlag --MAINTENANCE NOTE: This handler may appear multiple C = " u7) = 1 ASYM_trim s cs <> s <= SPACE cs <> s <= g loc asym_addAnswerHyperlink(); -- CBT Edtion, xpresent _ASYM_hyperlinkCandidates( ow = ,i], " extClick loc ow = -i], " hyp_MessageBox cap, msg, icn, btns, defBtn, modality >LONG desc >retValue oldLock = S< "USER" INT x = "OkCancel" k = 0x0001 = "AbortRetryIgnore" = 0x0002 = "YesNoCancel" = 0x0003 = 0x0004 = "RetryCancel" = 0x0005 icn = "Stop" H0x0010 Question" H0x0020 @Exclamation" H0x0030 dInformation" H0x0040 H0x0100 H0x0200 H0x1000 = "task" H0x2000 msg = cap = = "OK" = "Yes" = "No" g= fn U(fn) U(fn) Vi + 1 U(fn) tbk_AltPgName tbk_ChooseWebBrowser ! er() tbk_CurrentDirectory >&ry() tbk_CurrentPath _&ry() tbk_DoHyperlink tbk_FindHyperPage @, bk, @, bk, tbk_FindPage pgN tbk_GetHyperlinks tbk_GoToPage mEfx, ~Efx, tbk_HasHyperlinks obj tbk_HyperPath bk ~?(bk) tbk_IniFile ASYM_IniFile() () & () & ".ini" tbk_IsFile tbk_MakeIntoRelPath tbk_NameOrID obj tbk_RelativePath x(h ( tbk_trim s -- New !B stuff - @made (h otherPath, -- takes two full (including @letter) returns rootPathList = ASYM_ConvertPathToList ( otherPathList = relPathList = @ drives r= "Can't create rootDirCount = otherDirCount = otherPathItem = rootPathItem = ".." ASYM_ConvertListToPath ( ) & "\" ASYM_ResolvePath filePath pos = F("..", ,- 1 F("..", <> "\" = "\" = "\" -- converts a easier toolbook manipulation ~("\", F = "," ~("\", IFpathList ~(",", ? = "\" ~(",", ASYM_Is32Bit sysOperatingSystem "DOS" < 3.95 tbk_Container 2LobjType $KnextObj wCnt = o;= "BOOK" WCnt "groupfieldrecordfieldpagebackgroundbook" p = p > 0 Vp+4 Obj = (:-- 1997 Asymetrix Learning Systems, Inc. --970502update 6.0 CAD --971117rev CO ChooseWebBrowser -- This function uses redundant methods locate the browsers installed on -- It knows about Explorer Netscape, but -- also allows definition another ZexeName, exeTitle, availableExes DLLID = ASYM_ProductPrefix() --cad970502 linkDLL 0& "dlg.dll" STRING OpenFileDlgAny = !,INT) tbk_itemOffset = $ tbk_textlineOffset = oListToTextLine( SortList( SortTextLines( & "dos. GetDriveList() GetDriveKind( GetFileDate( FileExists( ASYM_Is32Bit() "tbfile32. GetShortFileName32 ( ,WORD) GetLongFileName32 ( ny = OpenFileDlg32( ny = & "win. INT SetIniVar( GetIniVar( GetFileVersion( POINTER tbk_getWinPointer = getMemBlock (DWORD) tbk_freeWinPointer = freeMemBlock ( & "reg. RegistryGetKey ( iniFile = tbk_IniFile() -- AddToAvailableExes will -- list does xexist already -- There may be a known ,running! knownModules = "IEXPLORE.EXE,NETSCAPE. foundModuleExes = FindModuleExeFiles( xNULL FindIExploreExe(),\ FindNetscapeExe(),\ -- Look a custom specified Huser stored .ini TBKIniValue("Internet Apps","Custom _association f.htm -- (obsolete , but give a clue) "Extensions"," -- A more robust way Windows API what files = AddtoAvailableExes(\ FindRegAssociation(". can be slower ASYM_FindExecutableFile("*.htm"),\ previously identified "Web Browsers", temp = ) > 0 ed default http", defaultExename = -- End automatic exes cntAvail = -- For some bogus reason, T IE 3.0 setup creates -- a pcalled IE20. finds earlier version . However, just a clone iexplore. -- so we there a valid present "\ie20. ^exe" -- Update our INI result -- whatever we program title, DDE p, etc. -- We info dialog boxes communicate once launched UpdateIniBrowserInfo ) = 1 = GetExeTitle( txt = expandString(tbk_GetString("Confirm x",\ "The %1." & CRLF & "Correct?"),\ ASYM_MessageBox( "question", "YesNoCancel") "&No" c"No" askList = 4sortTextLines( strNone = _ASYM_ChooseFromTextLinesDlg( fToolBook") & ":",\ defaultExeName))\ objectContainer( n = 0 n = i n = 0 -- If we still don't prompt = Locate filter = Programs") && ",*.EXE" oldDir = tbk_CurrentDirectory() m,"*. tbk_SetCurrentDirectory( ) = 1 WriteBrowserIniEntry "airmos. "netscape. oldList = sectn, key entry be a -- 1 - full executable -- 2 - module p(used -- 3 - human-readable product iniVal = winClass = ddeAppName = revOffset(".", Explorer_Frame" "SPRYMosaicCls" "mosaic" winclass = -- placeholder -- Attempts extract .EXE ZProdName, prodVersion strExplorer = MicrosoftExplorer",\ ,%1") strBuild = "(%2)" verName = verInfo = getFileVersion( verNo = (TM) Tools"\ c"4.40.3" ,"1.0") && (TM) c"4.40." ,"2.0") && prodName = bld = ("HKEY_LOCAL_MACHINE\"\ & "SOFTWARE\ isType("REAL", Z>= 41700.6 -- Try data IE 4.x Connection Wizard",\ "Release "4.0" \CurrentVersion\Uninstall\IE40",\ "DisplayName") ,"4.0") -- IE 3.x ~("4.7", ) = 1 verMajor = "3.x" ~("4.", ) = 1 %1"), 0) && "AIRMOS. pathOfFile( ) & "resdll. " && Classes\"\ & "\shell\ p = p > 1 App Paths\ twiddleCursor 4s_twiddleCursor = 36 ) = 29 ) > 0 ) < 1 knownModuleNames -- Assumes tbk_GetWinPointer() tbk_FreeWinPointer() -- are linked X"kernel" GetModuleHandle( GetModuleFileName( lpBuff = ) > 0 hMod = <> 0 =<> "0,0" R,255) QueryRegistry32 MainKey, keyName, valueName & "\" & keyname, newValue ,tbk_iniFile()) fn, flg (fn) p = 0 (fn) widget assumes that has recorded widgets scripts DisplayURL url, popup ZerrStr, , appWinClass, FindWindowByTitle = FindWindowByClass = ShowWindow( BringWindowToTop( GetWindowLong( IsIconic( GetSystemDirectory( ny = UseNewWindow = ( TRUE) ~ = AppWinClass = w!exe) = 1 !) < 1 c"Navigator" c"Communicator" e" = ~" = ") < 1 " = tbk_ChooseWebBrowser() ## = ://www.asymetrix.com/" ShowError("<invalid URL>") ASYM_ShortFileName( -- We DDE, apparently useNewWindow winID = "0x0" FFFFFFFF" = URLSpecialCharsExpand(FileNameToURL(url)) -- cmd = QUOTE & ," & & ",0, M"WWW_OpenURL" yieldApp() x"OK" FlushMessageQueue() "no server" -- weirdness explorer 2.0 -- isIEOld = FALSE -- c"iExplore. -- -- Check existence url.dll <> "0,0" ,255) winSysDir = =& "\ ") < 1\ X& "32\ ") < 1 err = o% URL. &required % specification"\ && "appears be missing. To avoid errors, you should"\ && "re- showError -- ss = ( && se = r, url r= se -- Give a little started mmyield )bit code activates ^)'s front "0xFFFFFFFF,0x0" M"WWW_Activate" -- Some )need a #prodding -- their *&goose them action even they honor l*current app hands on *activation a hWnd = 0 DDEAppName M"WWW_GetWindowInfo" -- Note: supported HSpry -- causes GPF IExplorer t!got winTitle = isIconic( ) <> 0 errorKey, fn errorkey "If plenty memory disk && "verify _,correctly." ActuallyMaybeBadInstall",txt) fn & , ASYM_GetString (" "), "Stop", "OK") -- Win95 compatible ZtestFn, f *GetTempFileName(BYTE, <-& "DOS. +RemoveFile( INT fileExists( |-& " *k ( lpBuffer = +(256) "0,0" c"*" fn <> fn) < 1 0,"TST",0, tempFn = p = p > 0 f = PathOfFile( & "jg080647" & U(fn) ss = f = fn status = ((f,ASYM_CurrentDirectory(), G<= 32 ],<> .(exe,1) < 1)) s1, s2 L = U(s1) - 1 U(s2) i + L URLToFileName fn fn = tbk_trim(fn) strPrefix = " /:///" p = , fn) p <> 1 /://" p <> 1 fn = URLSpecialCharsContract(fn) p = ~("|", fn) p > 0 fn = ":" p = ~("/",fn) cp > 0 fn = "\" p = ~("/",fn) ccnt = URLHex = "%@h00" ss = Ri+1 c = -- timb - 12/97 - ( special domain startPos = 1 ~("://", s) ~("/", errFlagged = c = c < 33 c = 45 -- 9, hyphen (45)... 1"Warnings","Invalid A)s & S(s) problems servers. S(s) =1be converted escape"\ && "sequence such %""%20""." ShowWarning(txt, " S(s) s = c tbk_getString a,b -- Converts a fully qualified H4 URL fn = -:",fn) = 1 ~("gopher:",fn) = 1 ~("mailto:",fn) = 1 ~("ftp:",fn) = 1 nd(fn) 4:///" p = , fn) p = 1 5://" p = , fn) p = 1 hyperPath = ASYM_HyperPath p = ~("#", fn) p > 1 ASYM_FindPathFile ( fn = U(fn) |(fn, fn = fn = fn = p = ~(":", fn) p > 0 fn = "|" p = ~("\",fn) cp > 0 fn = "/" p = ~("\",fn) fn = nd(fn) 6:///" ASYM_IniFile() 8) & ASYM_MTBVersion() & ".ini" default popup viewer default button itemOffset tbk_itemOffset mqtbk_itemOffset stbk_popViewers tbdlg.dll closeWindow closeWindow SYSTEM stbk_popViewers linkDLL "tbdlg.dll" INT tbk_itemOffset = (STRING, author skrefFocus refBtn keyDown Cancel cancelBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn button skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 orefBtn enabled buttonClick orefFocus ocancelBtn = B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn = NULL OK = ( targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y ASYMI_SysGridSnap <BookPath> :HDMEDIAPATH Arial info_LastSaved 2/18/98 1:54:54 PM Tim Barham Arial info_LastSavedBy FALSE ASYM_CaptionBar Tim Barham ASYMI_SysGrid ASYMA_CustomColors 2/18/98 1:55:13 PM ASYMI_SySysGridSpacing Tim Barham Tim Barham MS Sans Serif Arial Arial System ASYM_BorderStyle Arial Arial 0,75.3125,0 120,50,100 132,67.25,50.875 125,50,45.875 129,67.0625,79.8125 240,75.125,100 180,75.125,100 240,31.375,100 ASYM_TempViewer Do not rename me 1 ge "ChooseFromTextLinesDlg" B50HYP.SBK" "D:\FOO.TBK" ChooseFromTextLinesDlg Choose Browser ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 2 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 3 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 4 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 5 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Do not rename me 6 ge id 82 of Book "G:\FRANKJR\TUTORIAL\CBTTOUR.TBK" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_CloseOnEsc Do not rename me 7 tbk_TempViewer tbk_CloseOnEsc Page id 1 of Book "C:\TEMP\BAR.TBK" ge id 2 of Book "D:\TBSHARED\tbsystem\tb60hyp.sbk" stbk_popViewers ASYM_itemOffset closeWindow closeWindow SYSTEM stbk_popViewers ASYM_itemOffset( ASYM_TempViewer ASYM_CloseOnEsc Runtime Hyperlink SysBookBook ASYM_BeenHere 951205160027559914889115254 ASYM_TpID w, #? minorVersion ASYM_CBTVersion ToolBook II s_ASYM_ProductName enterBook notifyBefore 4s_ASYM_ProductName = "ToolBook II" && - && ASYM_CBTVersion ( P, "minorVersion") ToolBook II Instructor 6.1 Copyright Asymetrix Learning Systems Inc. 1990-1997tems Inc. 1990-1997 Title enterBook URL Stuff URL Stuff ChooseFromTextLinesDlg ASYM_BeenHere deflt defaultButton Button id 1 of Page id 2 defBtn needFix Button id 1 of Page id 2 refBtn Button id 0 of Page id 2 cancelBtn Main List sized sized ssm = sysSuspendMessages m"TL" m"BR" yp = sysPageUnitsPerPixel + xp, + yp,\ - xp, 3DField tbk_wid_type Main List buttonDoubleClick ASYM_reset enabled B"OK" objectContainer ( notifyBefore ASYM_reset Book "G:\FRANKJR\CTB30R.SBK" wrkLevel Page id 206 of Book "G:\FRANKJR\CTB30R.SBK" wrkPg pgCnt netscape.exe 09/04/97 20:25:54 Microsoft Internet Explorer (Build 41712.6) <another one> DlgFrame Prompt ASYM_reset notifyBefore ASYM_reset Choose a default Web browser to use with ToolBook:Book II: enterPage buttonClick .-, " keyUp notifyBefore K= "OK"; -- international buttonClick notifyAfter Cancel Cancel enterPage Cancel buttonClick .-, " keyUp notifyBefore K= "Cancel"; -- international buttonClick notifyAfter Cancel enterPage ASYM_reset author keyDown keyUp 1\ASYMET~1\Inst60\Back Fax db ASYM_TpID 94112215422714136113094 URL Stuff ChooseFromTextLinesDlg Fax db