Changeset 465

Timestamp:

Jun 8, 2006, 9:31:17 AM (18 years ago)

Author:

mmc

Message:

Fixed the bug report dialog so that Control-1-1-3-3 will bring up details
about the error message, so you can see the stack trace.

Fixed the nanovisviewer so that the cut planes stay in the right place
when you change volumes.

Fixed an error in the download mechanism for the energy levels viewer.
It was complaining about the new -description parameter.

Location:

trunk/gui/scripts

Files:

• bugreport.tcl (modified) (2 diffs)
• energyLevels.tcl (modified) (1 diff)
• nanovisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/bugreport.tcl

@@ -53 +53 @@
     raise .bugreport
 
+    .bugreport.details.text configure -state normal
+    .bugreport.details.text delete 1.0 end
+    .bugreport.details.text insert end "$err\n-----\n$errorInfo"
+    .bugreport.details.text configure -state disabled
     # should log the error someday too...
 
@@ -91 +95 @@
 pack .bugreport.expl -padx 8 -pady 8
 
+bind .bugreport.expl <Control-1><Control-1><Control-3><Control-3> {
+    pack forget .bugreport.expl
+    pack .bugreport.details -after .bugreport.ok \
+        -expand yes -fill both -padx 8 -pady 8
+}
+
+Rappture::Scroller .bugreport.details
+text .bugreport.details.text -wrap none
+.bugreport.details contents .bugreport.details.text
+
 # this binding keeps the bugreport window on top
 bind BugReportOnTop <ButtonPress> {

trunk/gui/scripts/energyLevels.tcl

@@ -262 +262 @@
         -raise 0
         -linestyle solid
+        -description ""
     }
     foreach {opt val} $settings {

trunk/gui/scripts/nanovisviewer.tcl

@@ -808 +808 @@
 
     # sync the state of slicers
+    set vols [_currentVolumeIds]
     foreach axis {x y z} {
-        eval _send cutplane state [_state ${axis}slice] \
-            $axis [_currentVolumeIds]
-    }
-    eval _send volume data state [_state volume] [_currentVolumeIds]
+        eval _send cutplane state [_state ${axis}slice] $axis $vols
+        set pos [expr {0.01*[$itk_component(${axis}slicer) get]}]
+        eval _send cutplane position $pos $axis $vols
+    }
+    eval _send volume data state [_state volume] $vols
 
     # if there are any commands in the buffer, send them now that we're done
@@ -952 +954 @@
 
         # sync the state of slicers
+        set vols [_currentVolumeIds]
         foreach axis {x y z} {
-            eval _send cutplane state [_state ${axis}slice] \
-                $axis [_currentVolumeIds]
-        }
-        eval _send volume data state [_state volume] [_currentVolumeIds]
+            eval _send cutplane state [_state ${axis}slice] $axis $vols
+            set pos [expr {0.01*[$itk_component(${axis}slicer) get]}]
+            eval _send cutplane position $pos $axis $vols
+        }
+        eval _send volume data state [_state volume] $vols
         $_dispatcher event -idle !legend
     }