#!/usr/local/bin/wish8.2
frame .test 
pack  .test
label .test.label -text "Here is the image"
frame .test.frame -height 240 -width 320 
pack  .test.label .test.frame -side top
update idletasks
set frameid [winfo id .test.frame]
catch [exec xanim +Ze -Zr +W$frameid /usr/aa/pub/video/Test.mov]
destroy .test
