Changeset 1775 for branches/blt4/gui/scripts

Timestamp:

Jun 23, 2010 6:54:49 AM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/xyprint.tcl

@@ -33 +33 @@
     private variable _preview "";       # Preview image.
     private variable _savedSettings;    # Array of settings.
+    private variable _legendFontName ""
 
     private common _oldSettingsFile "~/.rpsettings"
@@ -167 +168 @@
 itcl::body Rappture::XyPrint::print { graph toolName plotName } {
     set _graph $graph
-    set _clone [CloneGraph $graph]
+    CloneGraph $graph
     InitClone
     RestoreSettings $toolName $plotName 
@@ -291 +292 @@
         destroy $top.graph
     }
-    set clone [blt::graph $top.graph]
-    CopyOptions "configure" $orig $clone
+    set _clone [blt::graph $top.graph]
+    CopyOptions "configure" $orig $_clone
     # Axis component
     foreach axis [$orig axis names] {
@@ -298 +299 @@
             continue
         }
-        if { [$clone axis name $axis] == "" } {
-            $clone axis create $axis
-        }
-        CopyOptions [list axis configure $axis] $orig $clone
+        if { [$_clone axis name $axis] == "" } {
+            $_clone axis create $axis
+        }
+        CopyOptions [list axis configure $axis] $orig $_clone
     }
     foreach axis { x y x2 y2 } {
-        $clone ${axis}axis use [$orig ${axis}axis use]
+        $_clone ${axis}axis use [$orig ${axis}axis use]
     }
     # Pen component
     foreach pen [$orig pen names] {
-        if { [$clone pen name $pen] == "" } {
-            $clone pen create $pen
-        }
-        CopyOptions [list pen configure $pen] $orig $clone
+        if { [$_clone pen name $pen] == "" } {
+            $_clone pen create $pen
+        }
+        CopyOptions [list pen configure $pen] $orig $_clone
     }
     # Marker component
     foreach marker [$orig marker names] {
-        $clone marker create [$orig marker type $marker] -name $marker
-        CopyOptions [list marker configure $marker] $orig $clone
+        $_clone marker create [$orig marker type $marker] -name $marker
+        CopyOptions [list marker configure $marker] $orig $_clone
     }
     # Element component
     foreach elem [$orig element names] {
-        $clone element create $elem
-        CopyOptions [list element configure $elem] $orig $clone
-        if { [$clone element cget $elem -hide] } {
-            $clone element configure $elem -label "" 
+        $_clone element create $elem
+        CopyOptions [list element configure $elem] $orig $_clone
+        if { [$_clone element cget $elem -hide] } {
+            $_clone element configure $elem -label "" 
         }
     }
     # Fix element display list
-    $clone element show [$orig element show]
+    $_clone element show [$orig element show]
     # Legend component
-    CopyOptions {legend configure} $orig $clone
+    CopyOptions {legend configure} $orig $_clone
     # Postscript component
-    CopyOptions {postscript configure} $orig $clone
+    CopyOptions {postscript configure} $orig $_clone
     # Crosshairs component
-    CopyOptions {crosshairs configure} $orig $clone
-    return $clone
+    CopyOptions {crosshairs configure} $orig $_clone
 }
 
@@ -663 +663 @@
     set _settings($this-legend-position)  [$page.position current]
     set _settings($this-legend-anchor)    [$page.anchor current]
-    foreach option { -hide -position -anchor -borderwidth } {
-        SetComponentOption legend $option
-    }
-    $_clone legend configure -font legend
+    if { $_clone != "" } {
+        font configure $_fonts(legend) \
+            -family $_settings($this-legend-font-family) \
+            -size [$page.fontsize current] \
+            -weight $_settings($this-legend-font-weight) \
+            -slant $_settings($this-legend-font-slant)
+        foreach option { -hide -position -anchor -borderwidth } {
+            SetComponentOption legend $option
+        }
+        $_clone legend configure -font fixed -font $_fonts(legend)
+    }
     ApplyElementSettings
 }
@@ -790 +797 @@
 
     label $page.font_l -text "font"
+    set m $page.fontfamily.menu
+    blt::comboentry $page.fontfamily \
+        -width 10 \
+        -textvariable [itcl::scope _legendFontName] \
+        -editable no -menu $m \
+        -command [itcl::code $this ApplyLegendSettings]
+    blt::combomenu $m \
+        -xscrollbar $m.xs \
+        -yscrollbar $m.ys  \
+        -textvariable [itcl::scope _legendFontName] \
+        -height { 0 2i } 
+    blt::tk::scrollbar $m.xs
+    blt::tk::scrollbar $m.ys
+    $m style create "courier" -font "{courier new} 9"
+    $m style create "helvetica" -font "{arial} 9"
+    $m style create "newcentury" -font "{new century schoolbook} 9"
+    $m style create "times" -font "{times new roman} 9"
+    $m add -text "courier" -value "courier" -style "courier"
+    $m add -text "helvetica" -value "helvetica"  -style "helvetica"
+    $m add -text "new century schoolbook" -value "new*century*schoolbook" \
+        -style "newcentury"
+    $m add -text "symbol" -value "symbol" 
+    $m add -text "times" -value "times" -style "times"
+    $m item configure all \
+        -variable [itcl::scope _settings($this-legend-font-family)]
+    $m select "helvetica"
+    if 0 {
     Rappture::Combobox $page.fontfamily -width 10 -editable no
     $page.fontfamily choices insert end \
@@ -797 +831 @@
         "symbol"  "symbol" \
         "times"  "times"         
+    }
     bind $page.fontfamily <<Value>> [itcl::code $this ApplyLegendSettings]
     Rappture::Tooltip::for $page.fontfamily \
@@ -1070 +1105 @@
 }
 
-itcl::body Rappture::XyPrint::ApplyLegendSettings {} {
-    set page $itk_component(legend_page)
-    set _settings($this-legend-position)  [$page.position current]
-    set _settings($this-legend-anchor)    [$page.anchor current]
-
-    foreach option { -hide -position -anchor -borderwidth } {
-        SetComponentOption legend $option
-    }
-    font configure $_fonts(legend) \
-        -family [$page.fontfamily current] \
-        -size [$page.fontsize current] \
-        -weight $_settings($this-legend-font-weight) \
-        -slant $_settings($this-legend-font-slant)
-    $_clone legend configure -font fixed -font $_fonts(legend)
-    ApplyElementSettings
-}
 
 itcl::body Rappture::XyPrint::ApplyAxisSettings {} {
@@ -1114 +1133 @@
 itcl::body Rappture::XyPrint::ApplyElementSettings {} {
     set index [$itk_component(element_slider) get]
-    set elem $_settings($this-element-$index)
     set page $itk_component(legend_page)
     set _settings($this-element-color)  [$page.color current]
     set _settings($this-element-symbol) [$page.symbol current]
     set _settings($this-element-dashes) [$page.dashes current]
-    foreach option { -symbol -color -dashes -label } {
-        SetNamedComponentOption element $elem $option
-    }
-    RegeneratePreview
+    if { $_clone != "" } {
+        set elem $_settings($this-element-$index)
+        foreach option { -symbol -color -dashes -label } {
+            SetNamedComponentOption element $elem $option
+        }
+        RegeneratePreview
+    }
 }
 
@@ -1184 +1205 @@
     array unset info
     array set info [font configure legend]
-    $page.fontfamily value $info(-family)
+    set _settings($this-legend-font-family) $info(-family)
     $page.fontsize value $info(-size)
     set _settings($this-legend-font-weight) $info(-weight)