1 2package require QuickTimeTcl 3set myFile [tk_getOpenFile] 4if {$myFile != ""} { 5 6 toplevel .top 7 wm overrideredirect .top 1 8 wm geometry .top +100+100 9 wm geometry . +400+200 10 movie .top.m -file $myFile -controller 0 11 pack .top.m 12 console hide 13 update 14 .top.m play 15} 16