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