Changeset 428 for trunk/gui/scripts/analyzer.tcl

Timestamp:

May 3, 2006, 8:15:18 PM (18 years ago)

Author:

mmc

Message:

• Added <sequence> for playing movie outputs and other sequences of related results.

• Added <resize> option to <image> elements. This can be used to resize input items to a smaller size, so they don't take up so much real estate on the form.

• Fixed a bug in right/below cases for popup balloons.

• Reduced the tooltip delay time to 750ms to interact better with Rick's attention span.

• Fixed the sash between grips to light up when you touch it, so it's easier to see.

File:

• trunk/gui/scripts/analyzer.tcl (modified) (4 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -65 +65 @@
     protected method _simOutput {message}
     protected method _resultTooltip {}
+    protected method _mkdir {dir}
 
     private variable _tool ""          ;# belongs to this tool
@@ -364 +365 @@
             # file, then move the run.xml file there for storage
             if {"" != $_resultdir} {
-                file rename -force -- $file $_resultdir
+                catch {
+                    if {![file exists $_resultdir]} {
+                        _mkdir $_resultdir
+                    }
+                    file rename -force -- $file $_resultdir
+                }
             }
         } else {
@@ -454 +460 @@
             table* {
                 _autoLabel $xmlobj output.$item "Energy Levels" counters
+            }
+            sequence* {
+                _autoLabel $xmlobj output.$item "Sequence" counters
             }
         }
@@ -976 +985 @@
 
 # ----------------------------------------------------------------------
+# USAGE: _mkdir <directory>
+#
+# Used internally to create the <directory> in the file system.
+# The parent directory is also created, as needed.
+# ----------------------------------------------------------------------
+itcl::body Rappture::Analyzer::_mkdir {dir} {
+    set parent [file dirname $dir]
+    if {"." != $parent && "/" != $parent} {
+        if {![file exists $parent]} {
+            _mkdir $parent
+        }
+    }
+    file mkdir $dir
+}
+
+# ----------------------------------------------------------------------
 # USAGE: _fixSimControl
 #