1
2package require QuickTimeTcl
3wm title . {Resize Button}
4set myFile [tk_getOpenFile]
5if {$myFile != ""} {
6    movie .m -file $myFile -resizable 1
7    pack .m
8    button .bt -text {Just Padding}
9    pack .bt
10}
11