Changeset 1742 for trunk/gui

Timestamp:

May 26, 2010 7:21:24 PM (14 years ago)

Author:

mmc

Message:

Added preview of outputs to the irappture builder. Fixed a problem
with the file chooser for the "save as" dialog. Added a distinction
between errors and warnings when looking for problems in the tool
definition.

Fixed a few problems in RapptureGUI affecting the scroller and the
way it refreshes itself when the frame within it suddenly shrinks.
Fixed the histogram to avoid errors when the histogram data is
empty. Fixed the analyzer so you can create it without setting
the -notebookpage option. All of these errors showed up in the
irappture builder.

Location:

trunk/gui/scripts

Files:

• analyzer.tcl (modified) (2 diffs)
• histogram.tcl (modified) (2 diffs)
• historesult.tcl (modified) (1 diff)
• scroller.tcl (modified) (1 diff)

trunk/gui/scripts/analyzer.tcl

@@ -24 +24 @@
 option add *Analyzer.simControlActiveBackground #ffffcc widgetDefault
 option add *Analyzer.simControlActiveOutline black widgetDefault
-option add *Analyzer.notebookpage "about" widgetDefault
 
 option add *Analyzer.font \
@@ -47 +46 @@
     itk_option define -simcontrolactivebackground simControlActiveBackground Background ""
     itk_option define -holdwindow holdWindow HoldWindow ""
-    itk_option define -notebookpage notebookPage NotebookPage ""
+    itk_option define -notebookpage notebookPage NotebookPage "about"
 
     constructor {tool args} { # defined below }

trunk/gui/scripts/histogram.tcl

@@ -67 +67 @@
     itcl::delete object $_hist
     # don't destroy the _xmlobj! we don't own it!
-    blt::vector destroy $_widths $_heights $_locations
+    if {"" != $_widths} {
+        blt::vector destroy $_widths
+    }
+    if {"" != $_heights} {
+        blt::vector destroy $_heights
+    }
+    if {"" != $_locations} {
+        blt::vector destroy $_locations
+    }
 }
 
@@ -155 +163 @@
             error "bad option \"$which\": should be x, xlin, xlog, y, ylin, ylog"
         }
+    }
+
+    if {"" == $vname} {
+        return {0 1}
     }
     $vname dup tmp

trunk/gui/scripts/historesult.tcl

@@ -626 +626 @@
         set yv [$xydata heights]
         set zv [$xydata widths]
+
+        if {"" == $xv} {
+            continue
+        }
         
         if {[info exists _histo2color($xydata)]} {

trunk/gui/scripts/scroller.tcl

@@ -307 +307 @@
             set h [winfo reqheight $_frame.f]
             $_frame configure -scrollregion [list 0 0 $w $h]
+            _fixframe outer
             _lock reset x
             _lock reset y