sub Viewer_LinkClicked(Page, URL)
	LinkClicked Page, URL
end sub

sub Viewer_SetLength(length)
	setLength length
end sub

sub Viewer_SetPage(page)
	setPage page
end sub

sub Viewer_AddShortcut(page, name)
	'window.alert "" & page & ", " & name
	addShortcut page, name
end sub

sub Viewer_SetDefaultMusic(musicURL)
	'alert musicURL
	setDefaultMusic musicURL
end sub


sub Viewer_AddMediaFileSink(index, sink)
	AddMediaFileSink index, sink
end sub

sub Viewer_SetMessage(messageType)
	setMessage messageType
end sub

sub Viewer_SetTitle(title)
	setTitle(title)
end sub