• 80 Show Me Demonstrations
• 61 Let Me Try simulations
• 415 Expert Information topics
• 161 Web Hints
• 173 OpenScript Tips

• Quiz Summary
• Speaker Notes/Audio/Bullets Imported from PowerPoint
• JPG, GIF, WMF, EMF (as well as PNG and BMP) Graphic Support
• Image Object
• Commonly Used Objects" Catalog Category
• Google Android Support
• Nice Curved Lines for DHTML Matching Question
• Control Voice Recordings
• "Scrolling Borderless" Field
• Change Bullet Graphics for Graphic List Object

• Material Master for Buyers/Planners - Iris Peceny, Goodrich
• eTrade Tutorial - Dan Richards, IAC
• Good Manufacturing Practices - Margie Grande, Malt-O-Meal

C:\Users\Jeff\AppData\Local\Temp\qsD98F.html

function pageLoaded()
{
	notifyToolBook( "PageLoaded" );
}

function notifyToolBook( command )
{
	window.status = "ToolBook:" + command;
	window.status = "";
}

-- OpenScript in the shared script of the Web Browser control
to handle extStatusTextChange txt
	if offset ( "ToolBook:", txt ) = 1
		clear chars 1 to 9 of txt
		conditions
		when txt = "PageLoaded"
			send pageLoaded target
		-- other items omitted
		end
	end
end

to handle pageLoaded browserRef
	local qnData[][]

	-- Collect the Raw Summary Data
	get quizSummaryData( qnData )
	_qnData() = qnData

	qnDataTypes = "QuestionName,QuestionType, StudentScore,Attempts, 
		Time,StudentAnswer, QuestionText,CorrectAnswer, Result,Review"
	qnDataTypeCount = itemCount( qnDataTypes )

	qnCount = item 1 of dimensions( qnData )
	step qnNum from 1 to qnCount
		val = "{ "
		step i from 1 to qnDataTypeCount
			qnDataType = item i of qnDataTypes
			qnDataValue = getText( qnDataType, qnNum, qnData )
			qnDataValue = replaceString( qnDataValue, "\", "\\" )
			qnDataValue = replaceString( qnDataValue, quote, "\""" )
			if not ASYM_IsNumber( qnDataValue )
				qnDataValue = quote & qnDataValue & quote
			end
			put quote & qnDataType & quote && ":" && qnDataValue after val
			if i < qnDataTypeCount
				put ", " after val
			end
		end
		put " }" after val

		get extSetTimeout( "addQuestion(" && val && ")", 1 ) of 
			extParentWindow of extDocument of browserRef
	end

	get extSetTimeout( "buildTable()", 50 ) of extParentWindow of 
		extDocument of browserRef
end

-- JavaScript
function addQuestion( questionData )
{
	allQuestionData[ allQuestionData.length ] = questionData;
}

-- JavaScript
function buildTable()
{
	qaTableRef = document.getElementById( "mainTable" );
	qaTableBodyRef = qaTableRef.tBodies[0];
 
	var qnCount = allQuestionData.length;
	for ( qnNum = 1; qnNum <= qnCount; qnNum++ )
	{
		tr = document.createElement( "tr" );
		td = document.createElement( "td" );
		att = document.createAttribute( "class" );
 
		className = "row";
		if ( qnNum < qnCount )
		{
			className += " row-inner";
		}
 
		if ( qnNum % 2 == 1 )
		{
			className += " row-odd";
		}
		else
		{
			className += " row-even";
		}
 
		att.value = className;
		td.setAttributeNode( att );
		td.innerHTML = questionHTML;
 
		tableList = td.getElementsByTagName( "table" );
 
		for ( tableNum = 0; tableNum < tableList.length; tableNum++ )
		{
			tableRef = tableList[tableNum];
 
			rowList = tableRef.rows;
			for ( rowNum = 0; rowNum < rowList.length; rowNum++ )
			{
				rowRef = rowList[ rowNum ];
				cellList = rowRef.cells;
				for ( cellNum = 0; cellNum < cellList.length; cellNum++ )
				{
					cellRef = cellList[cellNum];
					divRef = cellRef.getElementsByTagName( "div" )[0];
					divId = divRef.id;
					divRef.innerHTML = getText( divId, qnNum );
				}
			}
		}
 
		tr.appendChild( td );
		qaTableBodyRef.appendChild( tr );
	}
 
}

to get ASYM_Print
	OLECMDID_PRINT = 6
	OLECMDF_ENABLED = 2
	OLECMDEXECOPT_PROMPTUSER = 1
	OLECMDEXECOPT_DONTPROMPTUSER = 2
	browserRef = browserRef()
	status = extQueryStatusWB ( OLECMDID_PRINT ) 
		of browserRef
	if status bitAnd OLECMDF_ENABLED > 0
		get extExecWB ( OLECMDID_PRINT, 
			OLECMDEXECOPT_PROMPTUSER, null, null ) 
			of browserRef
		return true
	else
		return false
	end
end

function tbfunction_gotoPage(pageID){
    	TBK._Gc._Vc(pageID,'');
    	// Editor note: this exact method name varies by ToolBook version due to ToolBook's obfuscation
    }

pageID = "p" & idNumber of page ...

..
local stack pageObjs
local object pageObj
local int pNum
pageObjs = pages of this book
pNum = 1

pageNames = "var pageNames=new Array();" & crlf
while pageObjs <> ""
    pop pageObjs into pageObj
    pName = name of pageObj
    pID = "p" & idNumber of pageObj
    increment pNum
    pageNames = pageNames & "pageNames['" &\
        pName &"']='" & pID & "';" & crlf &\
        "pageNames['" & pID & "']='" & pName &\
        "';" & crlf & "pageNames[" & pNum &\
        "]='" & pID & ";" & crlf
end while

var pageNames=new Array();
pageNames['Introduction'] = 'p0';
pageNames['p0'] = 'Introduction';
pageNames[1] = 'p0';
...
pageNames['Score'] = 'p45';
pageNames['p45'] = 'Score';
pageNames[25] = 'p45'

// JavaScript
function tbfunction_gotoPage(pageNameOrNumber){
    var pageID = pageNames[pageNameOrNumber];
    TBK._Gc._Vc(pageID,'');
}

var pageID = pageName[pageNumber];
var pageID = pageName[pageName];
var pageName = pageName[pageID];
var pageName = pageName[pageName[pageNumber]];

function LoadXmlManifest(eventId:MouseEvent):void {
    var fileName:String = XmlPath.text;
    var requestId:URLRequest = new URLRequest(fileName);
    var xmlLoader:URLLoader = new URLLoader();
    
    xmlLoader.dataFormat = URLLoaderDataFormat.TEXT;
    xmlLoader.addEventListener(Event.COMPLETE, onXmlComplete);
    xmlLoader.load(requestId);
}

function onXmlComplete(eventId:Event):void {
    var xmlLoader:URLLoader = eventId.target as URLLoader;
    
    if (xmlLoader != null) {
        var xmlId:XML = new XML(xmlLoader.data);
        
        xmlId.ignoreWhitespace = true;
        
        var resources:XML = xmlId.children()[2];
        var resourcesList:XML = resources.children()[0];
        var elementId:XML;
        var fileId:String;
        
        for each (elementId in resourcesList.children()) {
            fileId = elementId.@href;
            xmlResult.addItem({label:fileId});
        }
    }
    else {
        trace("xmlLoader is not a URLLoader!");
    }
}

Private Sub ReadXmlBtn_Click(ByVal sender As System.Object, _
    ByVal e As System.Windows.RoutedEventArgs)
    
    Dim fileName As String = XMLPath.Text
    
    If fileName <> "" Then
        Dim xmlId As XmlReader = XmlReader.Create(fileName)
        Dim elementName As String
        Dim foundResource As Boolean = False
        Dim resList As New List(Of String)
        Dim fileId As String
        
        While xmlId.Read = True AndAlso foundResource = False
            If xmlId.NodeType = XmlNodeType.Element Then
                elementName = xmlId.Name
                If elementName = "resource" Then
                    foundResource = True
                End If
            End If
        End While
        
        While xmlId.Read = True ' Now in file nodes
            If xmlId.NodeType = XmlNodeType.Element Then
                fileId = xmlId.GetAttribute("href")
                If fileId <> "" Then
                    resList.Add(fileId)
                End If
            End If
        End While
        
        xmlResult.ItemsSource = resList
    End If
End Sub