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