Changeset 2029 for trunk/gui/scripts/videoscreen.tcl
- Timestamp:
- Jan 13, 2011 9:15:36 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/videoscreen.tcl
r2028 r2029 553 553 $itk_component(seekforward) configure -state normal 554 554 $itk_component(loop) enable 555 556 # make sure looping is off 557 set _settings(loop) 0 558 $itk_component(dialminor) loop disable 555 559 556 560 fixSize … … 1211 1215 itcl::body Rappture::VideoScreen::toggleloop {} { 1212 1216 if {$_settings(loop) == 0} { 1213 $itk_component(dialminor) mark remove loopstart 1214 $itk_component(dialminor) mark remove loopend 1217 $itk_component(dialminor) loop disable 1215 1218 } else { 1216 1219 set cur [$_movie get position cur] … … 1227 1230 } 1228 1231 1229 $itk_component(dialminor) mark add loopstart $startframe 1230 $itk_component(dialminor) mark add loopend $endframe 1232 $itk_component(dialminor) loop between $startframe $endframe 1231 1233 } 1232 1234
Note: See TracChangeset
for help on using the changeset viewer.