• SmartPages and SmartStyles
• Book Explorer
• Working with Flash

• Off Campus ($780)
• Windom House Double ($855)
• Windom House Single ($925)
• CC Inn Single ($975)
• Apartment Multiple Occupancy ($975)
• Apartment Single ($1,175)

• One Preconference Session ($150)
• Two Preconference Sessions ($285)
• Three Preconference Sessions ($420)
• Four Preconference Sessions ($555)

• ToolBook (Introductory)
• ToolBook (Intermediate/Advanced)
• Flash/Silverlight
• Web Technologies
• Management

• Drag the placeholder out of the catalog
• Position it correctly
• Use the editor to navigate to the desired external graphic

-- Action Method "PlayMedia" ---------------------------------------------------
If mediaId <> ""
  Execute extStop() of MediaPlayer "MediaPlayer"
  Execute extStop() of ShockwaveFlash "FlashPlayer"
  Comment: Trigger moves players off the screen, User Event moves them back on
  If offset(".swf",mediaId) > 0
    Trigger MediaPlayer "MediaPlayer"
    Send User event to ShockwaveFlash "FlashPlayer"
    Set extMovie of ShockwaveFlash "FlashPlayer" to "media\" & mediaId
  Else if offset(".wma",mediaId) > 0 or offset(".mp3",mediaId) > 0
    Trigger MediaPlayer "MediaPlayer"
    Trigger ShockwaveFlash "FlashPlayer"
    Set extFileName of MediaPlayer "MediaPlayer" to "media\" & mediaId
  Else
    Trigger ShockwaveFlash "FlashPlayer"
    Send User event to MediaPlayer "MediaPlayer"
    Set extFileName of MediaPlayer "MediaPlayer" to "media\" & mediaId
  End if
End if

-- Action Method "DetermineCompletion" -----------------------------------------
Define local variable "allCompleted" (Initial value: "")
Define local variable "completionId" (Initial value: "")
Define local variable "num" (Initial value: "")
Define local variable "numHotspots" (Initial value: "")

If completionArray[g_selectionNum] <> "true"
  Set completionArray[g_selectionNum] to "true"
  Set numHotspots to text of field "numHotspots"
  Set allCompleted to true
  Step num from 1 to numHotspots by 1
    Set completionId to completionArray[num]
    If completionId <> "true"
      Set allCompleted to false
      Break out of step loop
    End if
  End step loop
  If allCompleted = true
    Set visible of Web Graphic "CompletionImage" of This Background to true
  End if
End if

to handle enterBook
        forward
        get setNativeGlobalVars() of self
end enterBook

to handle reader
    forward
    get setNativeGlobalVars() of self
end reader

to get setNativeGlobalVars
    system InternetOn, flashPath
-- Use this function to Initialise Global
-- variables used in the Action System.
-- The Global variables should be created
-- using the "Define Variables..." and then
-- select the "Global Variables" tab.
-- Each variable should have the
-- "Initial Value:" assigned for export, 
-- therefore we use this function to change the
-- "Initial Value" for Native deployment.
-- InternetOn is a global variable with initial
-- value set to true. This is used to stop calls
-- to JavaScript function and/or HTTP Posts
-- when in TB native mode.

	InternetOn = false
	flashPath = ASYM_PathOfFile(name of self) & "flashFiles\"
    return null
end setNativeGlobalVars

notifyBefore ASYM_Reset
    clear script of self
end ASYM_Reset

var imageMediaLoader:Loader = new Loader();
var imageId:Bitmap;

LoadImageButton.addEventListener(MouseEvent.CLICK, loadImage);

function loadImage(event:MouseEvent):void {
	var moviePath:String = "images/desperado.gif";
	var request:URLRequest = new URLRequest(moviePath);
	
	imageMediaLoader.contentLoaderInfo.addEventListener(Event.COMPLETE, onLoadImageComplete);
	imageMediaLoader.load(request);
}

function onLoadImageComplete(event:Event):void {
	imageId = Bitmap(imageMediaLoader.content);
	
	var imageObjectId:Object = addChild(imageId);
	
	imageObjectId.x = (LoadImageButton.x + LoadImageButton.width + 10);
	imageObjectId.y = LoadImageButton.y;
	statusTextId.text = "Loaded Image.";
}

if (imageId != null) {
    removeChild(imageId);
}

Dim bitmapId As Bitmap = Training_Graphic(Me)

If bitmapId IsNot Nothing Then
    Me.ClientSize = New Size(bitmapId.Width, bitmapId.Height)
    Me.BackgroundImage = bitmapId
End If

Friend ReadOnly Property Training_Graphic(ByVal formId As Form) As Bitmap
	Get
	    If c_Training_Graphic Is Nothing Then
		Dim graphicName As String = GetApplicationSetting(My.Settings.Training_Graphic, "")
		Dim graphicValid As Boolean = False

		If graphicName <> "" Then
		    Dim graphicPath As String = String.Format("{0}\{1}", Application.StartupPath, graphicName)

		    If File.Exists(graphicPath) Then
			    Try
			        c_Training_Graphic = New Bitmap(graphicPath)
			        graphicValid = True
			    Catch ex As Exception

			    End Try
		    End If
		End If
		If graphicValid = False Then
		    Dim streamId As Stream = formId.GetType().Assembly.GetManifestResourceStream("TBKTrackerProjector.trainingstudio.gif")

		    c_Training_Graphic = New Bitmap(streamId)
		End If
	    End If

	    Return c_Training_Graphic
	End Get
End Property

Friend Function GetApplicationSetting(ByVal settingValue As String, ByVal defaultValue As String) As String
	Dim returnString As String = settingValue

	If settingValue Is Nothing OrElse settingValue = "" Then
	    returnString = defaultValue
	End If

	Return returnString
End Function

<setting name="Training_Graphic" serializeAs="String">
    <value>trainingstudio.gif</value>
</setting>