Changeset 1608 for trunk

Timestamp:

Oct 30, 2009, 1:56:14 PM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/xyprint.tcl (modified) (7 diffs)

trunk/gui/scripts/xyprint.tcl

@@ -223 +223 @@
     set psdata [$_clone postscript output]
 
-    if 1 { 
+    if 0 { 
         set f [open "junk.raw" "w"] 
         puts -nonewline $f $psdata
@@ -284 +284 @@
 itcl::body Rappture::XyPrint::CloneGraph { orig } {
     set top $itk_interior
-    if { $_clone != "" } {
-        puts stderr "clone is $_clone"
-    }
     set clone [blt::graph $top.graph]
     CopyOptions "configure" $orig $clone
@@ -389 +386 @@
     $_clone marker create line -name y-zero \
         -coords "-Inf 0 Inf 0" -dashes 1 -hide yes
-
-    puts stderr "font names [font names]"
 }
 
@@ -1140 +1135 @@
 itcl::body Rappture::XyPrint::restore { toolName plotName data } {
     set key [list $toolName $plotName]
-    puts stderr "data=$data"
     set _savedSettings($key) $data
 }
@@ -1156 +1150 @@
     set f [open $_settingsFile "r"]
     set code [read $f]
-    puts stderr "code=$code"
     close $f
     $parser eval $code
@@ -1166 +1159 @@
         $parser alias "preview" $_clone
         $parser eval $_savedSettings($key)
-        puts stderr "_saveSettings($key)=$_savedSettings($key)"
     }
     foreach {name value} [$parser eval "array get general"] {
@@ -1193 +1185 @@
     set key [list $toolName $plotName]
     set _savedSettings($key) [CreateSettings $toolName $plotName]
-    puts stderr "_saveSettings($key)=$_savedSettings($key)"
     # Write the settings out
     foreach key [lsort [array names _savedSettings]] {