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