• 81 Show Me Demonstrations
• 61 Let Me Try simulations
• 434 Expert Information topics
• 186 Web Hints
• 187 OpenScript Tips

New features of version 11.5:

• Publish To Web: The Publish to Web Specialist has been redesigned. With the redesign it is now a simple interface that allows you to publish your lesson to web format with virtually a single mouse click. All of the various publishing options are still available if you need to change them, and are accessible using the new Options button.
• Resource Manager: The size of the Resource Manager has been significantly enlarged, allowing better viewing of the resource list and resource names. In addition a preview feature has been added which will display the selected bitmap resource at a larger size.
• Clipart Catalog Category: The Clipart catalog category has been enhanced to include not only various Bullets and Seals as well as the Arrows you are already accustomed to.
• Delete Pages: Deleting a range of pages is now possible using the Delete Pages option in the Tools menu. This will allow you to delete a range of pages in a matter of a few seconds instead of manually deleting them one by one.
• Character Map: Having difficulty figuring out how to add non-standard keyboard characters into your ToolBook fields, such as the Copyright symbol? The Character Map will allow you to easily access and add special characters to your fields.
• Drag & Drop: The Drag & Drop tab of the Property Editor has been revised to be clearer about which settings to use. The various Help Topics involving Drag & Drop have been updated as well, to clearly differentiate between the two types of Drag & Drop that ToolBook offers.
• Scoring and Tracking: There are three LMS compatible Exit buttons in the Scoring and Tracking category of the catalog. Each of these have been enhanced to prompt the user with "Are you sure you want to exit?"
• Display Book Information: The Display Book Information utility will provide you with Book Information details about an entire folder full of ToolBook files. It will allow you to quickly see important information about each file in a folder, such as which version of ToolBook last saved each file. This is a very useful utility in determining which ToolBook files are in need of being Version Updated.
• Voice Recording: Several enhancements to the Voice Recording feature have been made. A View Summary button will allow you to see a report of all voice recordings in the current book. Also added is the ability to enable or disable all of the voice recordings with a single click.
• Resource Lookup: Using the new Resource Lookup utility within ToolBook will allow you to quickly find all uses of a particular Resource within your project.
• Mixed Content Warning: A new checkbox has been added to the Publish to Web dialog, labeled as Suppress Mixed Content Browser Warning. If you are using a Secure Server (HTTPS), enabling this setting will block the Mixed Content warning that the browser normally would show to the user.
• Reassign a Range of Pages: If a text field contains a Bitmap Resource in addition to text, and you attempt to copy/ paste the field contents into another product such as Microsoft Word, the Bitmap Resources will now be included along with the pasted text.
• Right Click Menus Changes: The following enhancements have been added to the Right-Click menus: The option to change the Caption of a button; The option to set the graphic of an Image object; The ability to Restore the Aspect Ratio of an Image object
• Enhanced Publish To Web Error Logging: The Publish to Web error logging feature will now generate a more detailed explanation of each error encountered. In addition, the enhancements are able to detect (and log) a wider variety of error conditions.

Building a Glossary

ASP.NET Web Service

Imports System.Data
Imports System.Data.OleDb

<WebMethod()> Public Function GetGlossaryDefinition(ByVal accessKey _
	As String, ByVal glossaryKey As String) As String

	Dim glossaryDefinition As String = accessKeyInvalidString

	If accessKey = Me.WebServiceAuthorizationKey Then
		Dim viewId As DataView = Me.GlossaryDataView

		viewId.RowFilter = String.Format("GlossaryName = '{0}'", _
			glossaryKey.Replace("'", ""))
		If viewId.Count > 0 Then
			glossaryDefinition = viewId(0)("GlossaryDefinition").ToString
		Else
			glossaryDefinition = "Definition not found."
		End If
	End If

	Return glossaryDefinition
End Function

Private ReadOnly Property GlossaryDataView() As DataView
	Get
		Dim viewId As DataView

		If Current.Cache("GlossaryDataView") Is Nothing Then
			Dim conStr As String = _
				String.Format("provider=Microsoft.Jet.OLEDB.4.0; Data 
				Source={0}App_Data\Glossary.mdb", _
				Current.Request.PhysicalApplicationPath)

			Dim conId As New OleDbConnection(conStr)
			Dim commandId As New OleDbCommand("ReadGlossaryEntries", conId)
			Dim adapterId As New OleDbDataAdapter(commandId)
			Dim tableId As New DataTable

			conId.Open()
			commandId.CommandType = CommandType.StoredProcedure
			adapterId.Fill(tableId)
			viewId = tableId.DefaultView
			Current.Cache("GlossaryDataView") = viewId
			conId.Close()
		Else
			viewId = CType(Current.Cache("GlossaryDataView"), DataView)
		End If

		Return viewId
	End Get
End Property

fontFace of selection = "ms sans serif"; fontStyle of selection = "bold"; fontSize of selection = 14

fontFace of text of selection = "ms sans serif"; fontStyle of text of selection = "bold"; fontSize of text of selection = 14

to handle buttonClick
    local array ansArray[][]
    local object pageObj, qObj
    local logical ss, hasChanged
    local int pCnt, p, qCnt, q, aCnt, a, updCnt  

    forward  
    ss = sysSuspend; sysSuspend = false; clear sysError  
    updCnt = 0  
    pCnt = pageCount of this book  
    step p from 1 to pCnt
        pageObj = page p of this book
        qObjs = getObjectList(pageObj,"","ASYM_WID_QType")
        qCnt = itemCount(qObjs)
        step q from 1 to qCnt
            qObj = item q of qObjs
            ansArray = ASYM_WID_AnsArray of qObj
            if sysError = "" then
                -- First we check Immediate Feedback
                hasChanged = false
                aCnt = item 1 of dimensions(ansArray)
                step a from 1 to aCnt
                    if ansArray[a][13] <> "" then
                        ansArray[a][13] = ""
                        hasChanged = true
                    end if
                end step
                if hasChanged then
                    ASYM_WID_AnsArray of qObj = ansArray
                    increment updCnt
                end if
            else
                clear sysError
            end if
            ansArray = ASYM_WID_SummaryFeedback of qObj
            if sysError = "" then
                -- Now we check Delayed Feedback
                hasChanged = false
                step a from 1 to 3
                    if ansArray[a][13] <> "" then
                        ansArray[a][13] = ""
                        hasChanged = true
                    end if
                end step
                if hasChanged then
                    ASYM_WID_SummaryFeedback of qObj = ansArray
                    increment updCnt
                end if
            else
                clear sysError
            end if
        end step
    end step
    sysSuspend = ss; clear sysError
    request "Updated" && updCnt && "items."
end buttonClick

$(function () {
	// template population code omitted

	var videoId = document.getElementById("player_0");

	if (videoId != null) { // can play HTML5 video
	    videoId.addEventListener("ended", contentCompleted);
	}
	else {
		contentCompleted();
	}
	// bind keyboard events
	$(document).keydown(parent.ImplementKeyDown);
});

function contentCompleted(e) {
    // show completion image
    parent.CompletionImageRef.show();
    // enable next page button
    parent.SetBtnStatus(parent.NextButtonRef,"Next",true,true);
}