Changeset 1769 for branches/blt4/gui/scripts

Timestamp:

Jun 21, 2010 6:16:13 AM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/xyprint.tcl

@@ -19 +19 @@
 option add *XyPrint.dimColor gray widgetDefault
 option add *XyPrint.controlBackground gray widgetDefault
-option add *XyPrint*font "Arial 9"
+option add *XyPrint*Font "Arial 9" widgetDefault
 option add *XyPrint*Entry*width "6" widgetDefault
 option add *XyPrint*Entry*background "white" widgetDefault
@@ -214 +214 @@
     set h $_settings($this-layout-height)i
 
-    puts stderr "outputing graph w=$w h=$h"
     $_clone postscript configure \
         -decoration yes \
@@ -707 +706 @@
 
     checkbutton $page.border -text "border" \
-        -font "Arial 10"  \
         -variable [itcl::scope _settings($this-legend-borderwidth)] \
         -onvalue 1 -offvalue 0 \
@@ -714 +712 @@
         "Display a solid border around the legend."
 
-    label $page.slider_l -text "legend\nentry"  -font "Arial 10" -justify right
+    label $page.slider_l -text "legend\nentry"  -justify right
     itk_component add element_slider {
         ::scale $page.slider -from 1 -to 1 \
@@ -723 +721 @@
         "Select the current entry."
 
-    label $page.label_l -text "label" -font "Arial 10" 
+    label $page.label_l -text "label" 
     entry $page.label \
         -background white \
-        -font "Arial 10" \
         -textvariable [itcl::scope _settings($this-element-label)]
     bind  $page.label <KeyPress-Return> [itcl::code $this ApplyElementSettings]
@@ -732 +729 @@
         "Set the label of the current entry in the legend."
 
-    label $page.color_l -text "color "  -font "Arial 10" 
+    label $page.color_l -text "color " 
     Rappture::Combobox $page.color -width 15 -editable no
     $page.color choices insert end \
@@ -757 +754 @@
         "Set the color of the current entry."
 
-    label $page.dashes_l -text "line style"  -font "Arial 10" 
+    label $page.dashes_l -text "line style" 
     Rappture::Combobox $page.dashes -width 15 -editable no
     $page.dashes choices insert end \
@@ -769 +766 @@
         "Set the line style of the current entry."
 
-    label $page.symbol_l -text "symbol"  -font "Arial 10" 
+    label $page.symbol_l -text "symbol" 
     Rappture::Combobox $page.symbol -editable no
     $page.symbol choices insert end \
@@ -867 +864 @@
         -text "Axis" -padx 2 -pady 2 -window $page -fill both
     
-    label $page.axis_l -text "axis"  -font "Arial 10" 
+    label $page.axis_l -text "axis" 
     itk_component add axis_combo {
         Rappture::Combobox $page.axis -width 20 -editable no
@@ -875 +872 @@
         "Select the current axis."
 
-    label $page.title_l -text "title"  -font "Arial 10" 
+    label $page.title_l -text "title" 
     entry $page.title \
         -textvariable [itcl::scope _settings($this-axis-title)]
@@ -882 +879 @@
         "Set the title of the current axis."
 
-    label $page.min_l -text "min"  -font "Arial 10" 
+    label $page.min_l -text "min" 
     entry $page.min -width 10 \
         -textvariable [itcl::scope _settings($this-axis-min)]
@@ -889 +886 @@
         "Set the minimum limit for the current axis. If empty, the minimum is automatically determined."
 
-    label $page.max_l -text "max"  -font "Arial 10" 
+    label $page.max_l -text "max" 
     entry $page.max -width 10 \
         -textvariable [itcl::scope _settings($this-axis-max)]
@@ -896 +893 @@
         "Set the maximum limit for the current axis. If empty, the maximum is automatically determined."
 
-    label $page.subdivisions_l -text "subdivisions"  -font "Arial 10" 
+    label $page.subdivisions_l -text "subdivisions" 
     entry $page.subdivisions \
         -textvariable [itcl::scope _settings($this-axis-subdivisions)]
@@ -904 +901 @@
         "Set the number of subdivisions (minor ticks) for the current axis."
 
-    label $page.stepsize_l -text "step size"  -font "Arial 10" 
+    label $page.stepsize_l -text "step size" 
     entry $page.stepsize \
         -textvariable [itcl::scope _settings($this-axis-stepsize)]