1
2package require QuickTimeTcl
3wm title . {Pict In Pict}
4set myFile [tk_getOpenFile]
5if {$myFile != ""} {
6    movie .m -file $myFile
7    pack .m
8    set theSize [.m size]
9    movie .n -file $myFile -controller 0  \
10      -width [expr [lindex $theSize 0]/4]  \
11      -height [expr [lindex $theSize 1]/4]
12    place .n -x 10 -y 10 -anchor nw
13}
14