Changeset 1614 for trunk/gui/scripts/xyresult.tcl

Timestamp:

Nov 16, 2009 3:02:37 PM (15 years ago)

Author:

dkearney

Message:

tabs

File:

• trunk/gui/scripts/xyresult.tcl (modified) (8 diffs)

trunk/gui/scripts/xyresult.tcl

@@ -488 +488 @@
                 # if we haven't created the popup yet, do it now
                 Rappture::Balloon $popup \
-                    -title "[Rappture::filexfer::label downloadWord] as..."
+                    -title "[Rappture::filexfer::label downloadWord] as..."
                 set inner [$popup component inner]
                 label $inner.summary -text "" -anchor w
@@ -559 +559 @@
                 }
                 image {
-                    set popup .xyprintdownload
-                    if { ![winfo exists $popup] } {
-                        # Create a popup for the print dialog
-                        Rappture::Balloon $popup -title "Save as image..."
-                        set inner [$popup component inner]
-                        # Create the print dialog widget and add it to the
-                        # the balloon popup.
-                        Rappture::XyPrint $inner.print 
-                        $popup configure \
-                            -deactivatecommand [list $inner.print reset] 
-                        blt::table $inner 0,0 $inner.print -fill both
-                    }
-                    update
-                    # Activate the popup and call for the output.
-                    foreach { widget toolName plotName } $args break
-                    $popup activate $widget left
-                    set inner [$popup component inner]
-                    set output [$inner.print print $itk_component(plot) \
-                                    $toolName $plotName]
-                    $popup deactivate 
+                    set popup .xyprintdownload
+                    if { ![winfo exists $popup] } {
+                        # Create a popup for the print dialog
+                        Rappture::Balloon $popup -title "Save as image..."
+                        set inner [$popup component inner]
+                        # Create the print dialog widget and add it to the
+                        # the balloon popup.
+                        Rappture::XyPrint $inner.print 
+                        $popup configure \
+                            -deactivatecommand [list $inner.print reset] 
+                        blt::table $inner 0,0 $inner.print -fill both
+                    }
+                    update
+                    # Activate the popup and call for the output.
+                    foreach { widget toolName plotName } $args break
+                    $popup activate $widget left
+                    set inner [$popup component inner]
+                    set output [$inner.print print $itk_component(plot) \
+                                    $toolName $plotName]
+                    $popup deactivate 
                     return $output
                 }
@@ -721 +721 @@
             set elem "elem[incr count]"
             set _elem2curve($elem) $curve
-            lappend label2elem($label) $elem
+            lappend label2elem($label) $elem
             $g element create $elem -x $xv -y $yv \
                 -symbol $sym -pixels $pixels -linewidth $lwidth \
-                -label $label \
+                -label $label \
                 -color $color -dashes $dashes \
                 -mapx $mapx -mapy $mapy
@@ -732 +732 @@
     # Fix duplicate labels by appending the simulation number
     foreach label [array names label2elem] {
-        if { [llength $label2elem($label)] == 1 } {
-            continue
-        }
-        foreach elem $label2elem($label) {
-            set curve $_elem2curve($elem)
-            scan [$curve hints xmlobj] "::libraryObj%d" suffix
-            incr suffix
-            set elabel [format "%s \#%d" $label $suffix]
-            $g element configure $elem -label $elabel
-        }
-    }   
+        if { [llength $label2elem($label)] == 1 } {
+            continue
+        }
+        foreach elem $label2elem($label) {
+            set curve $_elem2curve($elem)
+            scan [$curve hints xmlobj] "::libraryObj%d" suffix
+            incr suffix
+            set elabel [format "%s \#%d" $label $suffix]
+            $g element configure $elem -label $elabel
+        }
+    }        
 
     foreach curve $_clist {
@@ -827 +827 @@
                     set logmin [expr {floor(log10(abs($min)))}]
                     set logmax [expr {ceil(log10(abs($max)))}]
-                    if 0 {
+                    if 0 {
                     if {[string match y* $axis]} {
                         # add a little padding
@@ -835 +835 @@
                         set logmax [expr {$logmax+0.05*$delta}]
                     }
-                    }
+                    }
                 }
                 if {$logmin < -300} {
@@ -856 +856 @@
                 set max $_limits(${axis}lin-max)
 
-                if 0 {
+                if 0 {
                 if {[string match y* $axis]} {
                     # add a little padding
@@ -863 +863 @@
                     set max [expr {$max+0.05*$delta}]
                 }
-                }
+                }
             }
             if {$min < $max} {