Changeset 2024 for trunk/gui/scripts/videoscreen.tcl

Timestamp:

Jan 9, 2011, 10:14:38 PM (14 years ago)

Author:

dkearney

Message:

video fixes
stop playing old video when we load a new video

File:

• trunk/gui/scripts/videoscreen.tcl (modified) (3 diffs)

trunk/gui/scripts/videoscreen.tcl

@@ -428 +428 @@
     }
 
+    video stop
+
     if {([info exists _movie]) && ("" != ${_movie})} {
         ${_movie} release
@@ -466 +468 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VideoScreen::loadcb {args} {
-
+    video stop
     Rappture::filexfer::upload {piv tool} {id label desc} [itcl::code $this Upload]
-
-    #uplevel 1 [list $args]
 }
 
@@ -477 +477 @@
 itcl::body Rappture::VideoScreen::Upload {args} {
     array set data $args
+    video stop
 
     if {[info exists data(error)]} {