• 80 Show Me Demonstrations
• 61 Let Me Try simulations
• 431 Expert Information topics
• 174 Web Hints
• 180 OpenScript Tips

• Apple® iPad® and Microsoft® Windows Mobile® Devices are now supported:  A greater variety of devices can now be targeted by ToolBook content. You can now deploy content to a learner community with even more devices, providing more flexibility and greater learner access.
• Geolocation support:  This feature allows you to provide mobile content which is truly mobile, responding to your learners’ locations with tailored content.
• Simpler, more functional Quick Start tab on the startup dialog  The Quick Start tab has been updated to include a set of templates sized for optimal viewing on various devices. Users of prior versions of ToolBook will also notice that the "Show Preview" button has been removed. The preview is now shown all the time.
• iPhone support for drag and drop:  With the new ability to drag objects around the iPhone screen with a fingertip, users of the iPhone, iPad, and iPod Touch can more easily apply the question types match item, drag object, and slider in a style that's consistent with the overall user experience on these devices.
• Smoother resizing of graphics:  Resizing graphic images within ToolBook will now result in smoother, better-looking images.
• Paste unformatted text menu item:  Now, this selection beneath the Edit menu allows for fast pasting of text into fields while simultaneously stripping out all formatting. The keyboard shortcut is ctrl-shift-v.
• Checkbox added to Publish to Web Wizard to enable diagnostics:  This option activates the diagnostic or "debug" mode for the published HTML. This will prompt a separate window to open when the course is opened in a browser, which displays diagnostic information.
• Prompt to resize page when changing styles:  When the pages of a book are sized differently from the default size for a style, and a new style is then applied to the book, ToolBook will now prompt the author to decide whether to resize the book to match the default for the style, or keep the current size.

TBK_GdiPlus_BitmapFromBitmapResource( bitmapRef )

TBK_GdiPlus_BitmapResourceFromBitmap( pBitmap, fileType )

TBK_GetBitmapResourceFileType( bitmapRef )

TBK_GdiPlus_CreateBitmapFromFile( fileName )

TBK_GdiPlus_GetImageGraphicsContext( pImage )

TBK_GdiPlus_CreateBitmapFromGraphics( pGraphics, width, height )

TBK_GdiPlus_CreateSimilarBitmap( pBitmap, width, height )

TBK_GdiPlus_GetImageSize( pImage )

TBK_GdiPlus_DrawImage( pGraphics, pImage, left, top )

TBK_GdiPlus_CreateFont( pGraphics, fntFace, fntSize )

TBK_GdiPlus_GraphicsDpiX( pGraphics )
TBK_GdiPlus_GraphicsDpiY( pGraphics )

TBK_GdiPlus_DrawText( pGraphics, txt, fntFace, fntSize, left, top, width, height )

 Comment: Add Finger

to handle buttonClick
	forward
	send addTheFinger to self
end buttonClick

-- The following will loop through all the 
-- pages and backgrounds of the current book 
-- and find groups that have an "On click ..." 
-- event or hyperlinks. Then it checks each of 
-- the objects in the group and adds an "On click ..." event if appropriate
to handle addTheFinger
	local object bookObj, pageObj, bgObj
	local stack pageIDs, bgIDs
	local array actionArray[]
	
	actionArray = ASYM_EA_ActionArray("buttonClick") of self
	-- The following will allow you to simply 
	-- copy this code to your own system book 
	-- without needing to change this script
	bookObj = parent of mainWindow
	-- First we loop through all of the pages
	pageIDs = pages of bookObj
	while pageIDs is not null
		pop pageIDs into pageObj
		get findFingerObjects(pageObj, actionArray) of self
	end while
	-- Now we loop through all of the backgrounds
	bgIDs = backgrounds of bookObj
	while bgIDs is not null
		pop bgIDs into bgObj
		get findFingerObjects(bgObj, actionArray) of self
	end while
end addTheFinger

to get findFingerObjects pageBgObj, 
	actionArray[] by reference

	local object groupObj, fingerObj
	local int gCnt, g
	local stack objs
	
	gObjs = getObjectList( pageBgObj, "group", false)
	gCnt = itemCount(gObjs)
	step g from 1 to gCnt
		groupObj = item g of gObjs
		-- If you don't want the objects of a 
		-- group to get Fingered then just add
		-- a userProperty called NoFinger with a 
		-- value of true:-)
		if NoFinger of groupObj = true then
			continue step
		end if
		if "buttonClick" is not in \
			ASYM_EA_HandledEvents of groupObj then
			-- Check if the group has a Hyperlink, 
			-- if so then we want to check
			-- the objects
			if not ASYM_HasHyperlinks(groupObj)
				continue step
			end if
		end if
		-- We don't want to do this for a 
		-- Question object as TB will do that
		if ASYM_WID_QType of groupObj is not null
			continue step
		end if
		objs = objects of groupObj
		while objs is not null
			pop objs into fingerObj
			-- If you don't want an object to get 
			-- Fingered then just add a 
			-- userProperty called NoFinger with a 
			-- value of true:-)
			if NoFinger of fingerObj = true then
				continue while
			end if
			-- We don't want to do a group object 
			-- that is in the group as it will be 
			-- checked later
			if object of fingerObj = "group" then
				continue while
			end if
			if ASYM_HasHyperlinks(fingerObj) then
				-- This object has a Hyperlink, so 
				-- it will get fingered anyway
				continue while
			end if
			handledEvents = ASYM_EA_HandledEvents of fingerObj
			if "buttonClick" is in handledEvents
				-- This object already has an "On 
				-- click ..." event, maybe we did 
				-- that with this code before and 
				-- this is a subsequent run through 
				-- the book. To be sure:-)
				continue while
			end if
			-- OK we now have an object and we add 
			-- the Action System userProperties
			-- We just need the properties, no 
			-- need for the OpenScript to be 
			-- created
			ASYM_EA_ActionArray("buttonClick") of \
				fingerObj = actionArray
			push "buttonClick" onto \
				ASYM_EA_HandledEvents of fingerObj
		end while
	end step
	return null
end findFingerObjects

• Opening the Command Window from the VIEW menu
• Select a Question Object
• Type into the Command Window:

colorChosen of selection = 255,0,255

• Press ENTER

// configuration constant
private var photoDelay:int = 3000; // milliseconds
			
// shared variables
private var photoArrayCollection:ArrayCollection;
private var musicArrayCollection:ArrayCollection;
private var timerId:Timer;
private var soundChannelId:SoundChannel;

private function configureApp():void {
	// get list of media and photos
	var currentDirectory:File = File.applicationDirectory;
	var photoDirectory:File = currentDirectory.resolvePath("photos");
	var musicDirectory:File = currentDirectory.resolvePath("music");
	var photoArray:Array = photoDirectory.getDirectoryListing();
	var musicArray:Array = musicDirectory.getDirectoryListing();

	// use ArrayCollection so we can remove items easily after they are used
	photoArrayCollection = new ArrayCollection(photoArray);
	musicArrayCollection = new ArrayCollection(musicArray);
}

protected function startBtn_clickHandler(event:MouseEvent):void
{
	// start timer and begin playing sound
	timerId = new Timer(photoDelay, photoArrayCollection.length); // once per photo
	timerId.addEventListener(TimerEvent.TIMER, timerHandler);
	timerId.start();

	playSound();		
}

private function playSound():void {
	if (musicArrayCollection.length > 0) {
		// get a random number between 0 and the length of the photoArrayCollection. 
		// Then show that photo and remove the item from the collection
		var rand:Number = Math.random();
		var indexNum:int = Math.round(rand * (musicArrayCollection.length - 1));
		var musicFileId:File = musicArrayCollection[indexNum] as File;
		var musicPath:String = musicFileId.nativePath;

		var soundId:Sound = new Sound();
		var requestId:URLRequest = new URLRequest(musicPath);

		soundId.load(requestId);
		if (soundChannelId != null) {
			soundChannelId.stop();
		}
		soundChannelId = soundId.play();
		soundChannelId.addEventListener(Event.SOUND_COMPLETE, soundCompletedHandler);	
		musicArrayCollection.removeItemAt(indexNum);				
		status = "Playing " + musicFileId.name + ". indexNum = " + indexNum + 
		    ". length = " + musicArrayCollection.length;
	}
}

private function soundCompletedHandler(e:Event):void {
	playSound();
}

private function timerHandler(e:TimerEvent):void {
	var rand:Number = Math.random();
	var indexNum:int = Math.round(rand * (photoArrayCollection.length - 1));
	var photoFileId:File = photoArrayCollection[indexNum] as File;
	var photoPath:String = photoFileId.nativePath;

	photoImage.source = photoPath;	
	photoArrayCollection.removeItemAt(indexNum);	
	status = "Displaying " + photoFileId.name + ". indexNum = " + indexNum + 
        ". length = " + photoArrayCollection.length;
}

Private photoDelay As Integer = 3 ' seconds
Private photoList As List(Of FileInfo)
Private musicList As List(Of FileInfo)
Private timerId As DispatcherTimer

Private Sub configureApp()
	Dim startingDir As String = AppDomain.CurrentDomain.BaseDirectory
	Dim photoDirectory As New DirectoryInfo(String.Format("{0}\photos", startingDir))
	Dim musicDirectory As New DirectoryInfo(String.Format("{0}\music", startingDir))
	Dim photoFileList As FileInfo() = photoDirectory.GetFiles()
	Dim musicFileList As FileInfo() = musicDirectory.GetFiles()

	photoList = photoFileList.ToList()
	musicList = musicFileList.ToList()
End Sub

Private Sub startBtn_Click(ByVal sender As Object, ByVal e As _
    System.Windows.RoutedEventArgs) Handles startBtn.Click
    
	Dim timerId As New DispatcherTimer() ' use DispatcherTimer rather 
	    ' than Timers.Timer to avoid threading issues

	With timerId
	    .Interval = New TimeSpan(0, 0, 0, photoDelay)
	    AddHandler .Tick, AddressOf timerHandler
	    .Start()
	End With
	playSound()
End Sub

Private Sub playSound()
	If musicList.Count > 0 Then
		Dim rand As New Random()
		Dim indexNum As Integer = rand.Next(0, (musicList.Count - 1))
		Dim musicFileId As FileInfo = musicList(indexNum)

		AddHandler mediaPlayer.MediaEnded, AddressOf soundCompletedHandler
		mediaPlayer.Source = New Uri(musicFileId.FullName, UriKind.Absolute)
		musicList.RemoveAt(indexNum)

		statusLabel.Text = String.Format("Playing {0}. indexNum = {1}. Count = {2}.", _
		    musicFileId.Name, indexNum, musicList.Count)
	End If
End Sub

Private Sub soundCompletedHandler(ByVal sender As Object, ByVal e As EventArgs)
	playSound() ' plays next sound
End Sub

Private Sub timerHandler(ByVal sender As Object, ByVal e As EventArgs)
	If photoList.Count > 0 Then
		Dim rand As New Random()
		Dim indexNum As Integer = rand.Next(0, (photoList.Count - 1))
		Dim photoFileId As FileInfo = photoList(indexNum)
		Dim sourceId As New BitmapImage(New Uri(photoFileId.FullName, UriKind.Absolute))

		photoImage.Source = sourceId
		photoList.RemoveAt(indexNum)

		statusLabel.Text = String.Format("Displaying {0}. indexNum = {1}. Count = {2}.", _
		    photoFileId.Name, indexNum, photoList.Count)
	Else
		If timerId IsNot Nothing Then
			timerId.Stop()
		End If
	End If
End Sub