------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------
--	MaxScript Quicktime Movie Player 1.0 by Alex Velez
--	Allows you to open quicktime movies inside of a maxscript window
--	Very useful if you only have one monitor
--	Based on the .net tutorial that ships with 3ds Max
--	Created on Aug 18 2008
-- Any issues alexvelez [at] email [dot] com
------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------
macroScript qtPlayer
category:"Alex Tools"
tooltip:"Quicktime Movie Player"
buttontext:"QT PLayer"
(
rollout movPlayer "Quicktime Movie Player 1.0" width:600 height:580
(
button pickMov "Pick Movie" pos:[280,550] width:70 height:22
dotNetControl wb "System.Windows.forms.WebBrowser" pos:[25,30] width:550 height:500
local pathHolder
fn openURL urlString = 
	(
	wb.url = dotNetObject "System.Uri" urlString
	)
on pickMov pressed do
	(
	pathHolder = getOpenFileName caption:"Select Quicktime File:" types:"Quicktime(*.Mov)"
	openURL pathHolder 
	)
)
createdialog movPlayer
)