Changeset 2035 for trunk/examples/video

Timestamp:

Jan 16, 2011 10:09:17 AM (13 years ago)

Author:

dkearney

Message:

adding aspect ratio calculations.
disable analyze button when no movie has been choosen in piv
rename some functions

File:

• trunk/examples/video/piv/piv.tcl (modified) (2 diffs)

trunk/examples/video/piv/piv.tcl

@@ -139 +139 @@
 button $analyze.go \
     -text "Analyze" \
+    -state disabled \
     -command {
         $vp video stop
@@ -148 +149 @@
 pack $analyze.step3 -side left -anchor w
 pack $analyze.go -anchor center
+
+proc buttonState {b var args} {
+    upvar #0 $var v
+    set state disabled
+    if {"" != $v} {
+       set state normal
+    }
+    $b configure -state $state
+}
+
+trace add variable previewVar write "buttonState $analyze.go previewVar"