1# Some code that... 2package require QuickTimeTcl 3wm title . {Testing} 4set f [tk_getOpenFile] 5if {$f == ""} { 6 return 7} 8pack [movie .m -file $f -volume 20] 9set num 4 10for {set no 1} {$no <= $num} {incr no} { 11 toplevel .m$no 12 set w .m$no.m 13 movie $w -file $f 14 pack $w 15} 16update 17set width [winfo width .m1.m] 18set height [winfo height .m1.m] 19array set timeArr [.m1.m gettime] 20for {set no 1} {$no <= $num} {incr no} { 21 .m$no.m time $timeArr(-movieduration) 22} 23for {set no 1} {$no <= [expr $num/2]} {incr no} { 24 set no2 [expr $num/2 + $no] 25 set x [expr 20 + ($no-1) * ($width + 10)] 26 wm geometry .m$no +$x+20 27 wm geometry .m$no2 +$x+[expr 40 + $height] 28} 29after 1000 30raise . 31proc MoveTop {} { 32 global height width num 33 for {set x 0} {$x<[expr $width*$num/2+100]} {incr x 50} { 34 wm geometry . +$x+[expr $height/2] 35 update 36 after 500 37 } 38} 39update 40.m play 41MoveTop 42destroy .m1 43MoveTop 44destroy .m3 45MoveTop 46