1package require QuickTimeTcl
2
3set fn1 [tk_getOpenFile]
4set fn2 [tk_getOpenFile]
5pack [button .bt -text {Hit Me} -command   \
6  {.top.m configure -file $fn2; .top.m play}]
7toplevel .top
8pack [movie .top.m -file $fn1]
9