Lines Matching refs:start
7 set start [.m time]
8 set end [expr $start + 1200]
9 .m configure -mccommand [list ControllerProc $start $end]
10 MovieTimer .m $start $end
20 proc ControllerProc {start end w what {par {}}} {
26 if {$movieTime < $start || $movieTime > $end} {
36 proc MovieTimer {w start end} {
41 .m time $start
43 set timeId [after 30 MovieTimer $w $start $end]
59 pack [button .fr.start -text { Start Loop } -command StartConstrainedLoop] \