1 2# seq grabber 3package require QuickTimeTcl 4option add *Background gray87 5option add *highlightBackground gray87 6wm title . {Mats TV} 7. configure -bg gray87 8pack [frame .f -bd 1 -relief sunken] -padx 4 -pady 4 9set w .f.sg 10seqgrabber $w -size quarter 11pack $w -padx 4 -pady 4 12 13pack [frame .fr] -expand true -fill both 14button .fr.bt1 -text { Zoom In } -command [list $w configure -zoom 2.0] 15button .fr.bt2 -text {Zoom Out} -command [list $w configure -zoom 1.0] 16grid .fr.bt1 .fr.bt2 -sticky ew -padx 10 -pady 4