Changeset 2024 for trunk/gui/scripts/videopreview.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/videopreview.tcl (modified) (3 diffs)

trunk/gui/scripts/videopreview.tcl

@@ -238 +238 @@
     }
 
+    video stop
 
     if {([info exists _movie]) && ("" != ${_movie})} {
@@ -276 +277 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::VideoPreview::loadcb {args} {
-
+    video stop
     Rappture::filexfer::upload {piv tool} {id label desc} [itcl::code $this Upload]
-
-    #uplevel 1 [list $args]
 }
 
@@ -287 +286 @@
 itcl::body Rappture::VideoPreview::Upload {args} {
     array set data $args
+    video stop
 
     if {[info exists data(error)]} {