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