Changeset 1765 for branches/blt4/gui/scripts

Timestamp:

Jun 17, 2010 7:52:23 AM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xyprint.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/xyprint.tcl

@@ -215 +215 @@
     set h $_settings($this-layout-height)i
 
+    puts stderr "outputing graph w=$w h=$h"
     $_clone postscript configure \
         -decoration yes \
@@ -1124 +1125 @@
 
 itcl::body Rappture::XyPrint::ApplyLayoutSettings {} {
-    foreach opt { leftmargin rightmargin topmargin bottommargin } {
+    foreach opt { width height leftmargin rightmargin topmargin bottommargin } {
         set old [$_clone cget -$opt]
         set code [catch { SetLayoutOption $opt } err]