source: branches/1.3/gui/scripts/xyprint.tcl @ 4946

Last change on this file since 4946 was 4946, checked in by ldelgass, 6 years ago

merge r4944 from trunk (typo)

File size: 53.3 KB
Line 
1# -*- mode: tcl; indent-tabs-mode: nil -*-
2
3# ----------------------------------------------------------------------
4#  COMPONENT: xyprint - Print X-Y plot.
5#
6# ======================================================================
7#  AUTHOR:  Michael McLennan, Purdue University
8#  Copyright (c) 2004-2012  HUBzero Foundation, LLC
9#
10#  See the file "license.terms" for information on usage and
11#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
12# ======================================================================
13package require Itk
14package require BLT
15
16#option add *XyPrint.width 3i widgetDefault
17#option add *XyPrint.height 3i widgetDefault
18option add *XyPrint.gridColor #d9d9d9 widgetDefault
19option add *XyPrint.activeColor blue widgetDefault
20option add *XyPrint.dimColor gray widgetDefault
21option add *XyPrint.controlBackground gray widgetDefault
22option add *XyPrint*Font "Arial 9" widgetDefault
23option add *XyPrint*Entry*width "6" widgetDefault
24option add *XyPrint*Entry*background "white" widgetDefault
25
26itcl::class Rappture::XyPrint {
27    inherit itk::Widget
28
29    constructor {args} {}
30    destructor {}
31
32    private variable _graph "";         # Original graph.
33    private variable _clone "";         # Cloned graph.
34    private variable _preview "";       # Preview image.
35    private variable _savedSettings;    # Array of settings.
36
37    private common _oldSettingsFile "~/.rpsettings"
38    private common _settingsFile "~/.rp_settings"
39
40    public method print { graph toolName plotName }
41    public method reset {}
42
43    private method CopyOptions { cmd orig clone {exclude {}}}
44    private method CloneGraph { orig }
45
46    private method BuildGeneralTab {}
47    private method BuildLayoutTab {}
48    private method BuildLegendTab {}
49    private method BuildAxisTab {}
50    private method SetOption { opt }
51    private method SetComponentOption { comp opt }
52    private method SetNamedComponentOption { comp name opt }
53    private method GetAxis {}
54    private method GetElement { args }
55    private method RegeneratePreview {}
56    private method InitClone {}
57    private method Pixels2Inches { pixels }
58    private method Inches2Pixels { inches {defValue ""}}
59    private method Color2RGB { color }
60
61    private method ApplyGeneralSettings {}
62    private method ApplyLegendSettings {}
63    private method ApplyAxisSettings {}
64    private method ApplyElementSettings {}
65    private method ApplyLayoutSettings {}
66    private method InitializeSettings {}
67    private method CreateSettings { toolName plotName }
68    private method RestoreSettings { toolName plotName }
69    private method SaveSettings { toolName plotName }
70    private method DestroySettings {}
71    private method ResetSettings { }
72    private method GetOutput {}
73    private method SetWaitVariable { state }
74    private method SetLayoutOption { option }
75    private method GetAxisType { axis }
76    private method restore { toolName plotName data }
77
78    # Same dialog may be used for different graphs
79    private common _settings
80    private common _wait
81}
82
83# ----------------------------------------------------------------------
84# CONSTRUCTOR
85# ----------------------------------------------------------------------
86itcl::body Rappture::XyPrint::constructor { args } {
87    Rappture::dispatcher _dispatcher
88    $_dispatcher register !rebuild
89    $_dispatcher dispatch $this !rebuild "[itcl::code $this Rebuild]; list"
90   
91    set w [winfo pixels . 2.5i]
92    set h [winfo pixels . 2i]
93    set _preview [image create photo -width $w -height $h]
94    itk_component add tabs {
95        blt::tabset $itk_interior.tabs \
96            -highlightthickness 0 -tearoff 0 -side top \
97            -bd 0 -gap 0 -tabborderwidth 1 \
98            -outerpad 1 -background grey
99    } {
100        keep -cursor
101        ignore -highlightthickness -borderwidth -background
102    }
103    set inner [frame $itk_interior.frame -bg grey]
104    itk_component add preview {
105        label $inner.preview \
106            -highlightthickness 0 -bd 0 -image $_preview -width 2.5i \
107                -height 2.5i -background grey
108    } {
109        ignore -background
110    }
111    itk_component add ok {
112        button $itk_interior.ok -text "Save" \
113            -highlightthickness 0 -pady 2 -padx 0 \
114            -command [itcl::code $this SetWaitVariable 1] \
115            -compound left \
116            -image [Rappture::icon download]
117    }
118    itk_component add cancel {
119        button $itk_interior.cancel -text "Cancel" \
120            -highlightthickness 0 -pady 2 -padx 0 \
121            -command [itcl::code $this SetWaitVariable 0] \
122            -compound left \
123            -image [Rappture::icon cancel]
124    }
125    blt::table $itk_interior \
126        0,0 $inner -fill both \
127        0,1 $itk_component(tabs) -fill both -cspan 2 \
128        1,2 $itk_component(cancel) -padx 2 -pady 2 -width .9i -fill y \
129        1,1 $itk_component(ok) -padx 2 -pady 2 -width .9i -fill y
130    blt::table $inner \
131        0,0 $itk_component(preview) -fill both -padx 10 -pady 10
132
133    #blt::table configure $itk_interior c1 c2 -resize none
134    blt::table configure $itk_interior c0 -resize both
135    BuildGeneralTab
136    BuildAxisTab
137    BuildLegendTab
138    BuildLayoutTab
139    eval itk_initialize $args
140}
141
142# ----------------------------------------------------------------------
143# DESTRUCTOR
144# ----------------------------------------------------------------------
145itcl::body Rappture::XyPrint::destructor {} {
146    destroy $_clone
147    image delete $_preview
148    array unset _settings $this-*
149}
150
151itcl::body Rappture::XyPrint::DestroySettings {} {
152    destroy $_clone
153    set _clone ""
154    set _graph ""
155}
156
157itcl::body Rappture::XyPrint::reset {} {
158    SetWaitVariable 0
159}
160
161itcl::body Rappture::XyPrint::SetWaitVariable { state } {
162    set _wait($this) $state
163}
164
165itcl::body Rappture::XyPrint::print { graph toolName plotName } {
166    set _graph $graph
167    CloneGraph $graph
168    InitClone
169    RestoreSettings $toolName $plotName
170    InitializeSettings
171    SetWaitVariable 0
172    tkwait variable [itcl::scope _wait($this)]
173    SaveSettings $toolName $plotName
174    set output ""
175    if { $_wait($this) } {
176        set output [GetOutput]
177    }
178    DestroySettings
179    return $output
180}
181
182itcl::body Rappture::XyPrint::GetOutput {} {
183    # Get the selected format of the download.
184    set page $itk_component(graph_page)
185    set format [$page.format current]
186
187    if { $format == "jpg" } {
188        set img [image create photo]
189        $_clone snap $img
190        set bytes [$img data -format "jpeg -quality 100"]
191        set bytes [Rappture::encoding::decode -as b64 $bytes]
192        image delete $img
193        return [list .jpg $bytes]
194    } elseif { $format == "png" } {
195        set img [image create photo]
196        $_clone snap $img
197        set bytes [$img data -format "png"]
198        set bytes [Rappture::encoding::decode -as b64 $bytes]
199        image delete $img
200        return [list .png $bytes]
201    }
202
203    # Handle encapsulated postscript or portable document format.
204
205    # Append an "i" for the graph postscript component.
206    set w $_settings($this-layout-width)i
207    set h $_settings($this-layout-height)i
208
209    $_clone postscript configure \
210        -maxpect false \
211        -decoration yes \
212        -center yes \
213        -width $w -height $h
214   
215    set psdata [$_clone postscript output]
216
217    if 0 {
218        set f [open "junk.raw" "w"]
219        puts -nonewline $f $psdata
220        close $f
221    }
222    if { $format == "eps" } {
223        return [list .$format $psdata]
224    }
225
226    set cmd ""
227    # | eps2eps << $psdata
228    lappend cmd "|" "/usr/bin/gs" \
229        "-q" "-sDEVICE=epswrite" "-sstdout=%stderr" \
230        "-sOutputFile=-" "-dNOPAUSE" "-dBATCH" "-dSAFER" \
231        "-dDEVICEWIDTH=250000" "-dDEVICEHEIGHT=250000" "-" "<<" "$psdata"
232    if { $format == "pdf" } {
233        # | eps2eps << $psdata | ps2pdf
234        lappend cmd "|" "/usr/bin/gs" \
235            "-q" "-sDEVICE=pdfwrite" "-sstdout=%stderr" \
236            "-sOutputFile=-" "-dNOPAUSE" "-dBATCH" "-dSAFER" \
237            "-dCompatibilityLevel=1.4" "-c" ".setpdfwrite" "-f" "-"
238    }
239    if { [catch {
240        set f [open $cmd "r"]
241        fconfigure $f -translation binary -encoding binary
242        set output [read $f]
243        close $f
244    } err ] != 0 } {
245        global errorInfo
246        puts stderr "failed to generate file: $err\n$errorInfo"
247        return ""
248    }
249    if 0 {
250        set f [open "junk.$format" "w"]
251        fconfigure $f -translation binary -encoding binary
252        puts -nonewline $f $output
253        close $f
254    }
255    return [list .$format $output]
256}
257
258itcl::body Rappture::XyPrint::CopyOptions { cmd orig clone {exclude {}} } {
259    set all [eval $orig $cmd]
260    set configLine $clone
261    foreach name $exclude {
262        set ignore($name) 1
263    }
264    foreach arg $cmd {
265        lappend configLine $arg
266    }
267    foreach option $all {
268        if { [llength $option] != 5 } {
269            continue
270        }
271        set switch [lindex $option 0]
272        set initial [lindex $option 3]
273        set current [lindex $option 4]
274        if { [info exists ignore($switch)] } {
275            continue
276        }
277        if { [string compare $initial $current] == 0 } {
278            continue
279        }
280        lappend configLine $switch $current
281    }
282    eval $configLine
283}
284
285itcl::body Rappture::XyPrint::CloneGraph { orig } {
286    set top $itk_interior
287    if { [winfo exists $top.graph] } {
288        destroy $top.graph
289    }
290    set _clone [blt::graph $top.graph]
291    CopyOptions "configure" $orig $_clone
292    # Axis component
293    foreach axis [$orig axis names] {
294        if { $axis == "z" } {
295            continue
296        }
297        if { [$orig axis cget $axis -hide] } {
298            continue
299        }
300        if { [$_clone axis name $axis] == "" } {
301            $_clone axis create $axis
302        }
303        CopyOptions [list axis configure $axis] $orig $_clone
304    }
305    foreach axis { x y x2 y2 } {
306        $_clone ${axis}axis use [$orig ${axis}axis use]
307    }
308    # Pen component
309    foreach pen [$orig pen names] {
310        if { [$_clone pen name $pen] == "" } {
311            $_clone pen create $pen
312        }
313        CopyOptions [list pen configure $pen] $orig $_clone
314    }
315    # Marker component
316    foreach marker [$orig marker names] {
317        $_clone marker create [$orig marker type $marker] -name $marker
318        CopyOptions [list marker configure $marker] $orig $_clone -name
319    }
320    # Element component
321    foreach elem [$orig element names] {
322        set oper [$orig element type $elem]
323        $_clone $oper create $elem
324        CopyOptions [list $oper configure $elem] $orig $_clone -data
325        if { [$_clone $oper cget $elem -hide] } {
326            $_clone $oper configure $elem -label ""
327        }
328    }
329    # Fix element display list
330    $_clone element show [$orig element show]
331    # Legend component
332    CopyOptions {legend configure} $orig $_clone
333    # Postscript component
334    CopyOptions {postscript configure} $orig $_clone
335    # Crosshairs component
336    CopyOptions {crosshairs configure} $orig $_clone
337    # Grid component
338    CopyOptions {grid configure} $orig $_clone
339
340    # Create markers representing lines at zero for the x and y axis.
341    $_clone marker create line -name x-zero \
342        -coords "0 -Inf 0 Inf" -dashes 1 -hide yes
343    $_clone marker create line -name y-zero \
344        -coords "-Inf 0 Inf 0" -dashes 1 -hide yes
345}
346
347itcl::body Rappture::XyPrint::InitClone {} {
348   
349    $_clone configure -width 3.4i -height 3.4i -background white \
350        -borderwidth 0 \
351        -leftmargin 0 \
352        -rightmargin 0 \
353        -topmargin 0 \
354        -bottommargin 0
355   
356    # Kill the title and create a border around the plot
357    $_clone configure \
358        -title "" \
359        -plotborderwidth 1 -plotrelief solid  \
360        -plotbackground white -plotpadx 0 -plotpady 0
361
362    set _settings($this-layout-width) [Pixels2Inches [$_clone cget -width]]
363    set _settings($this-layout-height) [Pixels2Inches [$_clone cget -height]]
364
365    set _settings($this-legend-fontfamily) helvetica
366    set _settings($this-legend-fontsize)   10
367    set _settings($this-legend-fontweight) normal
368    set _settings($this-legend-fontslant)  roman
369    set font "helvetica 10 normal roman"
370    $_clone legend configure \
371        -position right \
372        -font $font \
373        -hide yes -borderwidth 0 -background white -relief solid \
374        -anchor nw -activeborderwidth 0
375    #
376    set _settings($this-axis-ticks-fontfamily) helvetica
377    set _settings($this-axis-ticks-fontsize)   10
378    set _settings($this-axis-ticks-fontweight) normal
379    set _settings($this-axis-ticks-fontslant)  roman
380    set _settings($this-axis-title-fontfamily) helvetica
381    set _settings($this-axis-title-fontsize)   10
382    set _settings($this-axis-title-fontweight) normal
383    set _settings($this-axis-title-fontslant)  roman
384    foreach axis [$_clone axis names] {
385        if { $axis == "z" } {
386            continue
387        }
388        if { [$_clone axis cget $axis -hide] } {
389            continue
390        }
391        set _settings($this-$axis-ticks-fontfamily) helvetica
392        set _settings($this-$axis-ticks-fontsize)   10
393        set _settings($this-$axis-ticks-fontweight) normal
394        set _settings($this-$axis-ticks-fontslant)  roman
395        set _settings($this-$axis-title-fontfamily) helvetica
396        set _settings($this-$axis-title-fontsize)   10
397        set _settings($this-$axis-title-fontweight) normal
398        set _settings($this-$axis-title-fontslant)  roman
399        set tickfont "helvetica 10 normal roman"
400        set titlefont "helvetica 10 normal roman"
401        $_clone axis configure $axis -ticklength 5  \
402            -majorticks {} -minorticks {}
403        $_clone axis configure $axis \
404            -tickfont $tickfont \
405            -titlefont $titlefont
406    }
407    set count 0
408    foreach elem [$_clone element names] {
409        if { [$_clone element type $elem] == "bar" } {
410            continue
411        }
412        incr count
413        if { [$_clone element cget $elem -linewidth] > 1 } {
414            $_clone element configure $elem -linewidth 1 -pixels 3
415        }
416    }
417    if { $count == 0 } {
418        # There are no "line" elements in the graph.
419        # Remove the symbol and dashes controls.
420        set page $itk_component(legend_page)
421        # May have already been forgotten.
422        catch {
423            blt::table forget $page.symbol_l
424            blt::table forget $page.symbol
425            blt::table forget $page.dashes_l
426            blt::table forget $page.dashes
427        }
428    }
429}
430
431itcl::body Rappture::XyPrint::SetOption { opt } {
432    set new $_settings($this$opt)
433    set old [$_clone cget $opt]
434    set code [catch [list $_clone configure $opt $new] err]
435    if { $code != 0 } {
436        bell
437        global errorInfo
438        puts stderr "$err: $errorInfo"
439        set _settings($this$opt) $old
440        $_clone configure $opt $old
441    }
442}
443
444itcl::body Rappture::XyPrint::SetComponentOption { comp opt } {
445    set new $_settings($this-$comp$opt)
446    set old [$_clone $comp cget $opt]
447    set code [catch [list $_clone $comp configure $opt $new] err]
448    if { $code != 0 } {
449        bell
450        global errorInfo
451        puts stderr "$err: $errorInfo"
452        set _settings($this-$comp$opt) $old
453        $_clone $comp configure $opt $old
454    }
455}
456
457itcl::body Rappture::XyPrint::SetNamedComponentOption { comp name opt } {
458    set new $_settings($this-$comp$opt)
459    set old [$_clone $comp cget $name $opt]
460    set code [catch [list $_clone $comp configure $name $opt $new] err]
461    if { $code != 0 } {
462        bell
463        global errorInfo
464        puts stderr "$err: $errorInfo"
465        set _settings($this-$comp$opt) $old
466        $_clone $comp configure $name $opt $old
467    }
468}
469
470itcl::body Rappture::XyPrint::RegeneratePreview {} {
471    update
472    set img [image create photo]
473    set w [Inches2Pixels $_settings($this-layout-width) 3.4]
474    set h [Inches2Pixels $_settings($this-layout-height) 3.4]
475    $_clone snap $img -width $w -height $h
476
477    set pixelsPerInch [winfo pixels . 1i]
478    set cw [winfo width $itk_component(preview)]
479    set ch [winfo height $itk_component(preview)]
480    set rw [expr 2.5*$pixelsPerInch]
481    set rh [expr 2.5*$pixelsPerInch]
482    set maxwidth $rw
483    set maxheight $rh
484    if { $maxwidth > $cw } {
485        set maxwidth $cw
486    }
487    if { $maxheight > $ch } {
488        set maxheight $ch
489    }
490    set sx [expr double($maxwidth)/$w]
491    set sy [expr double($maxheight)/$h]
492    set s [expr min($sx,$sy)]
493
494    set pw [expr int(round($s * $w))]
495    set ph [expr int(round($s * $h))]
496    $_preview configure -width $pw -height $ph
497    blt::winop resample $img $_preview box
498    image delete $img
499}
500
501itcl::body Rappture::XyPrint::Pixels2Inches { pixels } {
502    if { [llength $pixels] == 2 } {
503        set pixels [lindex $pixels 0]
504    }
505    set pixelsPerInch [winfo pixels . 1i]
506    set inches [expr { double($pixels) / $pixelsPerInch }]
507    return [format %.3g ${inches}]
508}
509
510itcl::body Rappture::XyPrint::Inches2Pixels { inches {defValue ""}} {
511    set n [scan $inches %g dummy]
512    if { $n != 1  && $defValue != "" } {
513        set inches $defValue
514    }
515    return  [winfo pixels . ${inches}i]
516}
517
518itcl::body Rappture::XyPrint::Color2RGB { color } {
519    foreach { r g b } [winfo rgb $_clone $color] {
520        set r [expr round($r / 257.0)]
521        set g [expr round($g / 257.0)]
522        set b [expr round($b / 257.0)]
523    }
524    return [format "\#%02x%02x%02x" $r $g $b]
525}
526
527itcl::body Rappture::XyPrint::GetAxisType { axis } {
528    foreach type { x y x2 y2 } {
529        set axes [$_clone ${type}axis use]
530        if { [lsearch $axes $axis] >= 0 } {
531            return [string range $type 0 0]
532        }
533    }
534    return ""
535}
536
537itcl::body Rappture::XyPrint::GetAxis {} {
538    set axis [$itk_component(axis_combo) current]
539    foreach option { -min -max -loose -title -stepsize -subdivisions } {
540        set _settings($this-axis$option) [$_clone axis cget $axis $option]
541    }
542    foreach attr { fontfamily fontsize fontweight fontslant } {
543        set specific $this-$axis-ticks
544        set general $this-axis-ticks
545        set _settings(${general}-${attr}) $_settings(${specific}-${attr})
546        set specific $this-$axis-title
547        set general $this-axis-title
548        set _settings(${general}-${attr}) $_settings(${specific}-${attr})
549    }
550    set type [GetAxisType $axis]
551    if { [$_clone grid cget -map${type}] == $axis } {
552        set _settings($this-axis-grid) 1
553    }  else {
554        set _settings($this-axis-grid) 0
555    }
556    set _settings($this-axis-plotpad${type}) \
557        [Pixels2Inches [$_clone cget -plotpad${type}]]
558    set _settings($this-axis-zero) [$_clone marker cget ${type}-zero -hide]
559}
560
561itcl::body Rappture::XyPrint::GetElement { args } {
562    set index 1
563    array unset _settings $this-element-*
564    foreach elem [$_clone element show] {
565        set _settings($this-element-$index) $elem
566        incr index
567    }
568    set index [$itk_component(element_slider) get]
569    set elem $_settings($this-element-$index)
570    set _settings($this-element-label) [$_clone element cget $elem -label]
571    set _settings($this-element-color) [$_clone element cget $elem -color]
572    if { [$_clone element type $elem] != "bar" } {
573        set _settings($this-element-symbol) [$_clone element cget $elem -symbol]
574        set _settings($this-element-dashes) [$_clone element cget $elem -dashes]
575    }
576    set page $itk_component(legend_page)
577    set color [$page.color label $_settings($this-element-color)]
578    if { $color == "" } {
579        set color [Color2RGB $_settings($this-element-color)]
580        $page.color choices insert end $color $color
581        $page.color value $color
582    } else {
583        $page.color value [$page.color label $_settings($this-element-color)]
584    }
585    if { [$_clone element type $elem] != "bar" } {
586        $page.symbol value [$page.symbol label $_settings($this-element-symbol)]
587        $page.dashes value [$page.dashes label $_settings($this-element-dashes)]
588    }
589    #FixElement
590}
591
592itcl::body Rappture::XyPrint::BuildLayoutTab {} {
593    itk_component add layout_page {
594        frame $itk_component(tabs).layout_page
595    }
596    set page $itk_component(layout_page)
597    $itk_component(tabs) insert end "layout" \
598        -text "Layout" -padx 2 -pady 2 -window $page -fill both
599
600    label $page.width_l -text "width" 
601    entry $page.width -width 6 \
602        -textvariable [itcl::scope _settings($this-layout-width)]
603    bind  $page.width <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
604    Rappture::Tooltip::for $page.width \
605        "Set the width (inches) of the output image. Must be a positive number."
606
607    label $page.height_l -text "height"
608    entry $page.height -width 6 \
609        -textvariable [itcl::scope _settings($this-layout-height)]
610    bind  $page.height <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
611    Rappture::Tooltip::for $page.height \
612        "Set the height (inches) of the output image. Must be a positive number"
613
614    label $page.margin_l -text "Margins" 
615
616    label $page.left_l -text "left"
617    entry $page.left -width 6 \
618        -textvariable [itcl::scope _settings($this-layout-leftmargin)]
619    bind  $page.left <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
620    Rappture::Tooltip::for $page.left \
621        "Set the size (inches) of the left margin. If zero, the size is automatically determined."
622
623    label $page.right_l -text "right"
624    entry $page.right -width 6 \
625        -textvariable [itcl::scope _settings($this-layout-rightmargin)]
626    bind  $page.right <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
627    Rappture::Tooltip::for $page.right \
628        "Set the size (inches) of the right margin. If zero, the size is automatically determined."
629
630
631    label $page.top_l -text "top"
632    entry $page.top -width 6 \
633        -textvariable [itcl::scope _settings($this-layout-topmargin)]
634    bind  $page.top <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
635    Rappture::Tooltip::for $page.top \
636        "Set the size (inches) of the top margin. If zero, the size is automatically determined."
637
638    label $page.bottom_l -text "bottom"
639    entry $page.bottom -width 6 \
640        -textvariable [itcl::scope _settings($this-layout-bottommargin)]
641    bind  $page.bottom <KeyPress-Return> [itcl::code $this ApplyLayoutSettings]
642    Rappture::Tooltip::for $page.bottom \
643        "Set the size (inches) of the bottom margin. If zero, the size is automatically determined."
644
645
646    label $page.map -image [Rappture::icon graphmargins]
647    blt::table $page \
648        0,0 $page.width_l -anchor e \
649        0,1 $page.width -fill x  \
650        1,0 $page.height_l -anchor e \
651        1,1 $page.height -fill x \
652        3,0 $page.left_l -anchor e \
653        3,1 $page.left -fill x  \
654        4,0 $page.right_l -anchor e \
655        4,1 $page.right -fill x \
656        5,0 $page.top_l -anchor e \
657        5,1 $page.top -fill x \
658        6,0 $page.bottom_l -anchor e \
659        6,1 $page.bottom -fill x  \
660        0,2 $page.map -fill both -rspan 7 -padx 2
661
662    blt::table configure $page c0 r* -resize none
663    blt::table configure $page c1 r2 -resize both
664}
665
666
667itcl::body Rappture::XyPrint::BuildGeneralTab {} {
668    itk_component add graph_page {
669        frame $itk_component(tabs).graph_page
670    }
671    set page $itk_component(graph_page)
672    $itk_component(tabs) insert end "graph" \
673        -text "General" -padx 2 -pady 2 -window $page -fill both
674
675    label $page.format_l -text "format"
676    Rappture::Combobox $page.format -width 30 -editable no
677    $page.format choices insert end \
678        "pdf" "PDF Portable Document Format" \
679        "ps"  "PS PostScript Format"  \
680        "eps" "EPS Encapsulated PostScript"  \
681        "jpg" "JPEG Joint Photographic Experts Group Format" \
682        "png" "PNG Portable Network Graphics Format"         
683
684    bind $page.format <<Value>> [itcl::code $this ApplyGeneralSettings]
685    Rappture::Tooltip::for $page.format \
686        "Set the format of the image."
687
688    label $page.style_l -text "style"
689    Rappture::Combobox $page.style -width 20 -editable no
690    $page.style choices insert end \
691        "ieee" "IEEE Journal"  \
692        "gekco" "G Klimeck" 
693    bind $page.style <<Value>> [itcl::code $this ApplyGeneralSettings]
694    Rappture::Tooltip::for $page.format \
695        "Set the style template."
696
697    checkbutton $page.remember -text "remember settings" \
698        -variable [itcl::scope _settings($this-general-remember)] 
699    Rappture::Tooltip::for $page.remember \
700        "Remember the settings. They will be override the default settings."
701
702    button $page.revert -text "revert" -image [Rappture::icon revert] \
703        -compound left -padx 3 -pady 1 -overrelief raised -relief flat \
704        -command [itcl::code $this ResetSettings]
705    Rappture::Tooltip::for $page.revert \
706        "Revert to the default settings."
707
708    blt::table $page \
709        2,0 $page.format_l -anchor e \
710        2,1 $page.format -fill x -cspan 2 \
711        3,0 $page.style_l -anchor e \
712        3,1 $page.style -fill x -cspan 2 \
713        5,0 $page.remember -cspan 2 -anchor w \
714        5,2 $page.revert -anchor e
715    blt::table configure $page r* -resize none  -pady { 0 2 }
716    blt::table configure $page r4 -resize both
717
718}
719   
720itcl::body Rappture::XyPrint::ApplyLegendSettings {} {
721    set page $itk_component(legend_page)
722    set _settings($this-legend-anchor)    [$page.anchor current]
723    if { $_clone != "" } {
724        lappend font $_settings($this-legend-fontfamily)
725        lappend font $_settings($this-legend-fontsize)
726        lappend font $_settings($this-legend-fontweight)
727        lappend font $_settings($this-legend-fontslant)
728        foreach option { -hide -position -anchor -borderwidth } {
729            SetComponentOption legend $option
730        }
731        $_clone legend configure -font fixed -font $font
732    }
733    ApplyElementSettings
734}
735
736itcl::body Rappture::XyPrint::BuildLegendTab {} {
737    itk_component add legend_page {
738        frame $itk_component(tabs).legend_page
739    }
740    set page $itk_component(legend_page)
741    $itk_component(tabs) insert end "legend" \
742        -text "Legend" -padx 2 -pady 2 -window $page -fill both
743
744    checkbutton $page.show -text "show legend" \
745        -offvalue 1 -onvalue 0 \
746        -variable [itcl::scope _settings($this-legend-hide)]  \
747        -command [itcl::code $this ApplyLegendSettings]
748    Rappture::Tooltip::for $page.show \
749        "Display the legend."
750
751    label $page.position_l -text "position"
752    Rappture::Combobox $page.position -width 15 -editable no
753    $page.position choices insert end \
754        "leftmargin" "left margin"  \
755        "rightmargin" "right margin"  \
756        "bottommargin" "bottom margin"  \
757        "topmargin" "top margin"  \
758        "plotarea" "inside plot"
759    bind $page.position <<Value>> [itcl::code $this ApplyLegendSettings]
760    Rappture::Tooltip::for $page.position \
761        "Set the position of the legend.  This option and the anchor determine the legend's location."
762
763    Rappture::Combobox $page.anchor -width 10 -editable no
764    $page.anchor choices insert end \
765        "nw" "northwest"  \
766        "n" "north"  \
767        "ne" "northeast"  \
768        "sw" "southwest"  \
769        "s" "south"  \
770        "se" "southeast"  \
771        "c" "center"  \
772        "e" "east"  \
773        "w" "west" 
774    bind $page.anchor <<Value>> [itcl::code $this ApplyLegendSettings]
775    Rappture::Tooltip::for $page.anchor \
776        "Set the anchor of the legend.  This option and the anchor determine the legend's location."
777
778    checkbutton $page.border -text "border" \
779        -variable [itcl::scope _settings($this-legend-borderwidth)] \
780        -onvalue 1 -offvalue 0 \
781        -command [itcl::code $this ApplyLegendSettings]
782    Rappture::Tooltip::for $page.border \
783        "Display a solid border around the legend."
784
785    label $page.slider_l -text "legend\nentry"  -justify right
786    itk_component add element_slider {
787        ::scale $page.slider -from 1 -to 1 \
788            -orient horizontal -width 12 \
789            -command [itcl::code $this GetElement]
790    }
791    Rappture::Tooltip::for $page.slider \
792        "Select the current entry."
793
794    label $page.label_l -text "label"
795    entry $page.label \
796        -background white \
797        -textvariable [itcl::scope _settings($this-element-label)]
798    bind  $page.label <KeyPress-Return> [itcl::code $this ApplyElementSettings]
799    Rappture::Tooltip::for $page.label \
800        "Set the label of the current entry in the legend."
801
802    label $page.color_l -text "color "
803    Rappture::Combobox $page.color -width 15 -editable no
804    $page.color choices insert end \
805        "#000000" "black" \
806        "#ffffff" "white" \
807        "#0000cd" "blue" \
808        "#cd0000" "red" \
809        "#00cd00" "green" \
810        "#3a5fcd" "royal blue" \
811        "#cdcd00" "yellow" \
812        "#cd1076" "deep pink" \
813        "#009acd" "deep sky blue" \
814        "#00c5cd" "torquise" \
815        "#a2b5cd" "light steel blue" \
816        "#7ac5cd" "cadet blue" \
817        "#66cdaa" "aquamarine" \
818        "#a2cd5a" "dark olive green" \
819        "#cd9b9b" "rosy brown" \
820        "#0000ff" "blue1" \
821        "#ff0000" "red1" \
822        "#00ff00" "green1"
823    bind $page.color <<Value>> [itcl::code $this ApplyElementSettings]
824    Rappture::Tooltip::for $page.color \
825        "Set the color of the current entry."
826
827    label $page.dashes_l -text "line style"
828    Rappture::Combobox $page.dashes -width 15 -editable no
829    $page.dashes choices insert end \
830        "" "solid"  \
831        "1" "dot" \
832        "5 2" "dash" \
833        "2 4 2" "dashdot" \
834        "2 4 2 2" "dashdotdot"
835    bind $page.dashes <<Value>> [itcl::code $this ApplyElementSettings]
836    Rappture::Tooltip::for $page.dashes \
837        "Set the line style of the current entry."
838
839    label $page.symbol_l -text "symbol"
840    Rappture::Combobox $page.symbol -editable no
841    $page.symbol choices insert end \
842        "none" "none"  \
843        "square" "square" \
844        "circle" "circle" \
845        "diamond" "diamond" \
846        "plus" "plus" \
847        "cross" "cross" \
848        "splus" "skinny plus"  \
849        "scross" "skinny cross" \
850        "triangle" "triangle"
851    bind $page.symbol <<Value>> [itcl::code $this ApplyElementSettings]
852    Rappture::Tooltip::for $page.symbol \
853        "Set the symbol of the current entry. \"none\" display no symbols."
854
855    label $page.font_l -text "font"
856    Rappture::Combobox $page.fontfamily -width 10 -editable no
857    $page.fontfamily choices insert end \
858        "courier" "courier" \
859        "helvetica" "helvetica"  \
860        "new*century*schoolbook"  "new century schoolbook" \
861        "symbol"  "symbol" \
862        "times"  "times"         
863    bind $page.fontfamily <<Value>> [itcl::code $this ApplyLegendSettings]
864    Rappture::Tooltip::for $page.fontfamily \
865        "Set the font of entries in the legend."
866
867    Rappture::Combobox $page.fontsize -width 4 -editable no
868    $page.fontsize choices insert end \
869        "8" "8" \
870        "9" "9" \
871        "10" "10" \
872        "11" "11" \
873        "12" "12" \
874        "14" "14" \
875        "17" "17" \
876        "18" "18" \
877        "20" "20"
878    bind  $page.fontsize <<Value>> [itcl::code $this ApplyLegendSettings]
879    Rappture::Tooltip::for $page.fontsize \
880        "Set the size (points) of the font."
881
882    Rappture::PushButton $page.fontweight \
883        -onimage [Rappture::icon font-bold] \
884        -offimage [Rappture::icon font-bold] \
885        -onvalue "bold" -offvalue "normal" \
886        -command [itcl::code $this ApplyLegendSettings] \
887        -variable [itcl::scope _settings($this-legend-fontweight)]
888    Rappture::Tooltip::for $page.fontweight \
889        "Use the bold version of the font."
890
891    Rappture::PushButton $page.fontslant \
892        -onimage [Rappture::icon font-italic] \
893        -offimage [Rappture::icon font-italic] \
894        -onvalue "italic" -offvalue "roman" \
895        -command [itcl::code $this ApplyLegendSettings] \
896        -variable [itcl::scope _settings($this-legend-fontslant)]
897    Rappture::Tooltip::for $page.fontslant \
898        "Use the italic version of the font."
899
900    blt::table $page \
901        1,0 $page.show -cspan 2 -anchor w \
902        1,2 $page.border -cspan 2 -anchor w \
903        2,0 $page.position_l -anchor e \
904        2,1 $page.position -fill x \
905        2,2 $page.anchor -fill x  -cspan 3 \
906        3,0 $page.font_l -anchor e \
907        3,1 $page.fontfamily -fill x \
908        3,2 $page.fontsize -fill x \
909        3,3 $page.fontweight -anchor e \
910        3,4 $page.fontslant -anchor e \
911        4,0 $page.slider_l -anchor e \
912        4,1 $page.slider -fill x -cspan 5 \
913        5,0 $page.label_l -anchor e \
914        5,1 $page.label -fill x -cspan 5 \
915        6,0 $page.color_l -anchor e \
916        6,1 $page.color -fill x \
917        6,2 $page.symbol_l -anchor e \
918        6,3 $page.symbol -fill both -cspan 3 \
919        7,0 $page.dashes_l -anchor e \
920        7,1 $page.dashes -fill x \
921
922    blt::table configure $page r* -resize none -pady { 0 2 }
923    blt::table configure $page c3 c4 -resize none
924    blt::table configure $page r8 -resize both
925
926}
927
928itcl::body Rappture::XyPrint::BuildAxisTab {} {
929    itk_component add axis_page {
930        frame $itk_component(tabs).axis_page
931    }
932    set page $itk_component(axis_page)
933    $itk_component(tabs) insert end "axis" \
934        -text "Axis" -padx 2 -pady 2 -window $page -fill both
935   
936    label $page.axis_l -text "axis"
937    itk_component add axis_combo {
938        Rappture::Combobox $page.axis -width 20 -editable no
939    }
940    bind $itk_component(axis_combo) <<Value>> [itcl::code $this GetAxis]
941    Rappture::Tooltip::for $page.axis \
942        "Select the current axis."
943
944    label $page.title_l -text "title"
945    entry $page.title \
946        -textvariable [itcl::scope _settings($this-axis-title)]
947    bind  $page.title <KeyPress-Return> [itcl::code $this ApplyAxisSettings]
948    Rappture::Tooltip::for $page.title \
949        "Set the title of the current axis."
950
951    label $page.min_l -text "min"
952    entry $page.min -width 10 \
953        -textvariable [itcl::scope _settings($this-axis-min)]
954    bind  $page.min <KeyPress-Return> [itcl::code $this ApplyAxisSettings]
955    Rappture::Tooltip::for $page.min \
956        "Set the minimum limit for the current axis. If empty, the minimum is automatically determined."
957
958    label $page.max_l -text "max"
959    entry $page.max -width 10 \
960        -textvariable [itcl::scope _settings($this-axis-max)]
961    bind  $page.max <KeyPress-Return> [itcl::code $this ApplyAxisSettings]
962    Rappture::Tooltip::for $page.max \
963        "Set the maximum limit for the current axis. If empty, the maximum is automatically determined."
964
965    label $page.subdivisions_l -text "subdivisions"
966    entry $page.subdivisions \
967        -textvariable [itcl::scope _settings($this-axis-subdivisions)]
968    bind  $page.subdivisions <KeyPress-Return> \
969        [itcl::code $this ApplyAxisSettings]
970    Rappture::Tooltip::for $page.subdivisions \
971        "Set the number of subdivisions (minor ticks) for the current axis."
972
973    label $page.stepsize_l -text "step size"
974    entry $page.stepsize \
975        -textvariable [itcl::scope _settings($this-axis-stepsize)]
976    bind  $page.stepsize <KeyPress-Return> [itcl::code $this ApplyAxisSettings]
977    Rappture::Tooltip::for $page.stepsize \
978        "Set the interval between major ticks for the current axis. If zero, the interval is automatically determined."
979
980    checkbutton $page.loose -text "loose limits" \
981        -onvalue "always" -offvalue "0" \
982        -variable [itcl::scope _settings($this-axis-loose)] \
983        -command [itcl::code $this ApplyAxisSettings]
984    Rappture::Tooltip::for $page.loose \
985        "Set major ticks outside of the limits for the current axis."
986
987    label $page.plotpad_l -text "pad" 
988    entry $page.plotpad -width 6 \
989        -textvariable [itcl::scope _settings($this-axis-plotpad)]
990    bind  $page.plotpad <KeyPress-Return> [itcl::code $this ApplyAxisSettings]
991    Rappture::Tooltip::for $page.plotpad \
992        "Set padding (points) between the current axis and the plot."
993
994    checkbutton $page.grid -text "show grid lines" \
995        -variable [itcl::scope _settings($this-axis-grid)] \
996        -command [itcl::code $this ApplyAxisSettings]
997    Rappture::Tooltip::for $page.grid \
998        "Display grid lines for the current axis."
999
1000    checkbutton $page.zero -text "mark zero" \
1001        -offvalue 1 -onvalue 0 \
1002        -variable [itcl::scope _settings($this-axis-zero)] \
1003        -command [itcl::code $this ApplyAxisSettings]
1004    Rappture::Tooltip::for $page.zero \
1005        "Display a line at zero for the current axis."
1006
1007    label $page.tickfont_l -text "tick font"
1008    Rappture::Combobox $page.tickfontfamily -width 10 -editable no
1009    $page.tickfontfamily choices insert end \
1010        "courier" "courier" \
1011        "helvetica" "helvetica"  \
1012        "new*century*schoolbook"  "new century schoolbook" \
1013        "symbol"  "symbol" \
1014        "times"  "times"         
1015    bind $page.tickfontfamily <<Value>> [itcl::code $this ApplyAxisSettings]
1016    Rappture::Tooltip::for $page.tickfontfamily \
1017        "Set the font of the ticks for the current axis."
1018
1019    Rappture::Combobox $page.tickfontsize -width 4 -editable no
1020    $page.tickfontsize choices insert end \
1021        "8" "8" \
1022        "9" "9" \
1023        "10" "10" \
1024        "11" "11" \
1025        "12" "12" \
1026        "14" "14" \
1027        "17" "17" \
1028        "18" "18" \
1029        "20" "20"
1030    bind $page.tickfontsize <<Value>> [itcl::code $this ApplyAxisSettings]
1031    Rappture::Tooltip::for $page.tickfontsize \
1032        "Set the size (points) of the tick font."
1033
1034    Rappture::PushButton $page.tickfontweight \
1035        -onimage [Rappture::icon font-bold] \
1036        -offimage [Rappture::icon font-bold] \
1037        -onvalue "bold" -offvalue "normal" \
1038        -command [itcl::code $this ApplyAxisSettings] \
1039        -variable [itcl::scope _settings($this-axis-ticks-fontweight)]
1040    Rappture::Tooltip::for $page.tickfontweight \
1041        "Use the bold version of the tick font."
1042
1043    Rappture::PushButton $page.tickfontslant \
1044        -onimage [Rappture::icon font-italic] \
1045        -offimage [Rappture::icon font-italic] \
1046        -onvalue "italic" -offvalue "roman" \
1047        -command [itcl::code $this ApplyAxisSettings] \
1048        -variable [itcl::scope _settings($this-axis-ticks-fontslant)]
1049    Rappture::Tooltip::for $page.tickfontslant \
1050        "Use the italic version of the tick font."
1051
1052    label $page.titlefont_l -text "title font"
1053    Rappture::Combobox $page.titlefontfamily -width 10 -editable no
1054    $page.titlefontfamily choices insert end \
1055        "courier" "courier" \
1056        "helvetica" "helvetica"  \
1057        "new*century*schoolbook"  "new century schoolbook" \
1058        "symbol"  "symbol" \
1059        "times"  "times"         
1060    bind $page.titlefontfamily <<Value>> [itcl::code $this ApplyAxisSettings]
1061    Rappture::Tooltip::for $page.titlefontfamily \
1062        "Set the font of the title for the current axis."
1063
1064    Rappture::Combobox $page.titlefontsize -width 4 -editable no
1065    $page.titlefontsize choices insert end \
1066        "8" "8" \
1067        "9" "9" \
1068        "10" "10" \
1069        "11" "11" \
1070        "12" "12" \
1071        "14" "14" \
1072        "17" "17" \
1073        "18" "18" \
1074        "20" "20"
1075    bind $page.titlefontsize <<Value>> [itcl::code $this ApplyAxisSettings]
1076    Rappture::Tooltip::for $page.titlefontsize \
1077        "Set the size (point) of the title font."
1078
1079    Rappture::PushButton $page.titlefontweight \
1080        -onimage [Rappture::icon font-bold] \
1081        -offimage [Rappture::icon font-bold] \
1082        -onvalue "bold" -offvalue "normal" \
1083        -command [itcl::code $this ApplyAxisSettings] \
1084        -variable [itcl::scope _settings($this-axis-title-fontweight)]
1085    Rappture::Tooltip::for $page.titlefontweight \
1086        "Use the bold version of the title font."
1087
1088    Rappture::PushButton $page.titlefontslant \
1089        -onimage [Rappture::icon font-italic] \
1090        -offimage [Rappture::icon font-italic] \
1091        -onvalue "italic" -offvalue "roman" \
1092        -command [itcl::code $this ApplyAxisSettings] \
1093        -variable [itcl::scope _settings($this-axis-title-fontslant)]
1094    Rappture::Tooltip::for $page.titlefontslant \
1095        "Use the italic version of the title font."
1096
1097    blt::table $page \
1098        1,1 $page.axis_l -anchor e  -pady 6 \
1099        1,2 $page.axis -fill x -cspan 6 \
1100        2,1 $page.title_l -anchor e \
1101        2,2 $page.title -fill x -cspan 5 \
1102        3,1 $page.min_l -anchor e \
1103        3,2 $page.min -fill x \
1104        3,3 $page.stepsize_l -anchor e \
1105        3,4 $page.stepsize -fill both -cspan 3 \
1106        4,1 $page.max_l -anchor e \
1107        4,2 $page.max -fill both \
1108        4,3 $page.subdivisions_l -anchor e \
1109        4,4 $page.subdivisions -fill both -cspan 3  \
1110        5,1 $page.titlefont_l -anchor e \
1111        5,2 $page.titlefontfamily -fill x -cspan 2 \
1112        5,4 $page.titlefontsize -fill x \
1113        5,5 $page.titlefontweight -anchor e \
1114        5,6 $page.titlefontslant -anchor e \
1115        6,1 $page.tickfont_l -anchor e \
1116        6,2 $page.tickfontfamily -fill x -cspan 2 \
1117        6,4 $page.tickfontsize -fill x \
1118        6,5 $page.tickfontweight -anchor e \
1119        6,6 $page.tickfontslant -anchor e \
1120        7,1 $page.loose -cspan 2 -anchor w \
1121        7,3 $page.grid -anchor w -cspan 2 \
1122        8,1 $page.zero -cspan 2 -anchor w \
1123        8,3 $page.plotpad_l -anchor e \
1124        8,4 $page.plotpad -fill both -cspan 3
1125
1126    blt::table configure $page  c0 c4 c5 c6 c7 c8 -resize none
1127}
1128
1129itcl::body Rappture::XyPrint::ApplyGeneralSettings {} {
1130    RegeneratePreview
1131}
1132
1133itcl::body Rappture::XyPrint::ApplyLegendSettings {} {
1134    set page $itk_component(legend_page)
1135    set _settings($this-legend-position)  [$page.position current]
1136    set _settings($this-legend-anchor)    [$page.anchor current]
1137   
1138    foreach option { -hide -position -anchor -borderwidth } {
1139        SetComponentOption legend $option
1140    }
1141    set _settings($this-legend-fontfamily)  [$page.fontfamily value]
1142    set _settings($this-legend-fontsize)    [$page.fontsize value]
1143    lappend font $_settings($this-legend-fontfamily)
1144    lappend font $_settings($this-legend-fontsize)
1145    lappend font $_settings($this-legend-fontweight)
1146    lappend font $_settings($this-legend-fontslant)
1147    $_clone legend configure -font fixed -font $font
1148    ApplyElementSettings
1149}
1150
1151itcl::body Rappture::XyPrint::ApplyAxisSettings {} {
1152    set axis [$itk_component(axis_combo) current]
1153    set type [GetAxisType $axis]
1154    set page $itk_component(axis_page)
1155    if { $_settings($this-axis-grid) } {
1156        $_clone grid configure -hide no -map${type} ${axis}
1157    } else {
1158        $_clone grid configure -hide no -map${type} ""
1159    }
1160    $_clone configure -plotpad${type} $_settings($this-axis-plotpad)
1161    foreach option { -min -max -loose -title -stepsize -subdivisions } {
1162        SetNamedComponentOption axis $axis $option
1163    }
1164    set _settings($this-axis-ticks-fontfamily)  [$page.tickfontfamily value]
1165    set _settings($this-axis-ticks-fontsize)    [$page.tickfontsize value]
1166    set _settings($this-axis-title-fontfamily)  [$page.titlefontfamily value]
1167    set _settings($this-axis-title-fontsize)    [$page.titlefontsize value]
1168
1169    set tickfont {}
1170    set titlefont {}
1171
1172    foreach attr { fontfamily fontsize fontweight fontslant } {
1173        set specific $this-$axis-ticks
1174        set general  $this-axis-ticks
1175        set _settings(${specific}-${attr}) $_settings(${general}-${attr})
1176        lappend tickfont $_settings(${general}-${attr})
1177        set specific $this-$axis-title
1178        set general  $this-axis-title
1179        set _settings(${specific}-${attr}) $_settings(${general}-${attr})
1180        lappend titlefont $_settings(${general}-${attr})
1181    }
1182    $_clone axis configure $axis -tickfont $tickfont -titlefont $titlefont
1183    $_clone marker configure ${type}-zero -hide $_settings($this-axis-zero)
1184    GetAxis
1185    RegeneratePreview
1186}
1187
1188itcl::body Rappture::XyPrint::ApplyElementSettings {} {
1189    set index [$itk_component(element_slider) get]
1190    set page $itk_component(legend_page)
1191    set _settings($this-element-color)  [$page.color current]
1192    if { $_clone != "" } {
1193        set elem $_settings($this-element-$index)
1194        if { [$_clone element type $elem] != "bar" } {
1195            set _settings($this-element-symbol) [$page.symbol current]
1196            set _settings($this-element-dashes) [$page.dashes current]
1197            foreach option { -symbol -dashes } {
1198                SetNamedComponentOption element $elem $option
1199            }
1200        }
1201        foreach option { -color -label } {
1202            SetNamedComponentOption element $elem $option
1203        }
1204        RegeneratePreview
1205    }
1206}
1207
1208itcl::body Rappture::XyPrint::SetLayoutOption { opt } {
1209    set new [Inches2Pixels $_settings($this-layout$opt)]
1210    $_clone configure $opt $new
1211}
1212
1213itcl::body Rappture::XyPrint::ApplyLayoutSettings {} {
1214    foreach opt { -width -height -leftmargin -rightmargin -topmargin
1215        -bottommargin } {
1216        set old [$_clone cget $opt]
1217        set code [catch { SetLayoutOption $opt } err]
1218        if { $code != 0 } {
1219            bell
1220            global errorInfo
1221            puts stderr "$err: $errorInfo"
1222            set _settings($this-layout$opt) [Pixels2Inches $old]
1223            $_clone configure $opt [Pixels2Inches $old]
1224        }
1225    }
1226    RegeneratePreview
1227}
1228
1229
1230itcl::body Rappture::XyPrint::InitializeSettings {} {
1231    # General settings
1232
1233    # Always set to "ps" "ieee"
1234    set _settings($this-general-format) ps
1235    set _settings($this-general-style) ieee
1236    set _settings($this-general-remember) 0
1237    set page $itk_component(graph_page)
1238    $page.format value [$page.format label $_settings($this-general-format)]
1239    $page.style value [$page.style label $_settings($this-general-style)]
1240
1241    # Layout settings
1242    set _settings($this-layout-width) [Pixels2Inches [$_clone cget -width]]
1243    set _settings($this-layout-height) [Pixels2Inches [$_clone cget -height]]
1244    set _settings($this-layout-leftmargin) \
1245        [Pixels2Inches [$_clone cget -leftmargin]]
1246    set _settings($this-layout-rightmargin) \
1247        [Pixels2Inches [$_clone cget -rightmargin]]
1248    set _settings($this-layout-topmargin) \
1249        [Pixels2Inches [$_clone cget -topmargin]]
1250    set _settings($this-layout-bottommargin) \
1251        [Pixels2Inches [$_clone cget -bottommargin]]
1252
1253    # Legend settings
1254    set page $itk_component(legend_page)
1255
1256    set names [$_clone element show]
1257    $itk_component(element_slider) configure -from 1 -to [llength $names]
1258    set state [expr  { ([llength $names] < 2) ? "disabled" : "normal" } ]
1259    $page.slider configure -state $state
1260    $page.slider_l configure -state $state
1261    # Always initialize the slider to the first entry in the element list.
1262    $itk_component(element_slider) set 1
1263    # Always set the borderwidth to be not displayed
1264    set _settings($this-legend-borderwidth) 0
1265
1266    $page.fontfamily value $_settings($this-legend-fontfamily)
1267    $page.fontsize value $_settings($this-legend-fontsize)
1268    if { $_settings($this-legend-fontweight) == "bold" } {
1269        set _settings($this-legend-font-bold) 1
1270    }
1271    set _settings($this-legend-hide) [$_clone legend cget -hide]
1272    set _settings($this-legend-position) [$_clone legend cget -position]
1273    set _settings($this-legend-anchor) [$_clone legend cget -anchor]
1274    $page.position value \
1275        [$page.position label $_settings($this-legend-position)]
1276    $page.anchor value [$page.anchor label $_settings($this-legend-anchor)]
1277    GetElement
1278
1279    # Axis settings
1280    set page $itk_component(axis_page)
1281    set names [lsort [$_clone axis names]]
1282    $itk_component(axis_combo) choices delete 0 end
1283    foreach axis $names {
1284        if { $axis == "z" } {
1285            continue
1286        }
1287        if { ![$_clone axis cget $axis -hide] } {
1288            $itk_component(axis_combo) choices insert end $axis $axis
1289        }
1290        lappend axisnames $axis
1291    }
1292    set axis [lindex $names 0]
1293
1294    $page.titlefontfamily value $_settings($this-$axis-title-fontfamily)
1295    $page.titlefontsize value   $_settings($this-$axis-title-fontsize)
1296    $page.tickfontfamily value  $_settings($this-$axis-ticks-fontfamily)
1297    $page.tickfontsize value    $_settings($this-$axis-ticks-fontsize)
1298
1299    # Always hide the zero line.
1300    set _settings($this-axis-zero) 1
1301    set _settings($this-axis-plotpad) [Pixels2Inches [$_clone cget -plotpadx]]
1302    # Pick the first axis to initially display
1303    set axis [lindex $axisnames 0]
1304    $itk_component(axis_combo) value $axis
1305    GetAxis
1306    RegeneratePreview
1307}
1308
1309
1310itcl::body Rappture::XyPrint::restore { toolName plotName data } {
1311    set key [list $toolName $plotName]
1312    set _savedSettings($key) $data
1313}
1314
1315itcl::body Rappture::XyPrint::RestoreSettings { toolName plotName } {
1316    if { ![file readable $_settingsFile] } {
1317        return;                         # No file or not readable
1318    }
1319    if { [file exists $_oldSettingsFile] } {
1320        file delete $_oldSettingsFile
1321    }
1322    # Read the file by sourcing it into a safe interpreter The only commands
1323    # executed will be "xyprint" which will simply add the data into an array
1324    # _savedSettings.
1325    set parser [interp create -safe]
1326    $parser alias xyprint [itcl::code $this restore]
1327    set f [open $_settingsFile "r"]
1328    set code [read $f]
1329    close $f
1330    if { [catch { $parser eval $code }] != 0 } {
1331        file delete $_settingsFile
1332    }
1333    # Now see if there's an entry for this tool/plot combination.  The data
1334    # associated with the variable is itself code to update the graph (clone).
1335    set key [list $toolName $plotName]
1336    if { [info exists _savedSettings($key)] }  {
1337        $parser alias "preview" $_clone
1338        $parser eval $_savedSettings($key)
1339    }
1340    # Restore settings to this instance
1341    foreach {name value} [$parser eval "array get settings"] {
1342        set _settings($this-$name) $value
1343    }
1344    interp delete $parser
1345}
1346
1347itcl::body Rappture::XyPrint::ResetSettings {} {
1348    set graph $_graph
1349    DestroySettings
1350    set _graph $graph
1351    CloneGraph $graph
1352    InitClone
1353    InitializeSettings
1354}
1355
1356itcl::body Rappture::XyPrint::SaveSettings { toolName plotName } {
1357    if { !$_settings($this-general-remember) } {
1358        return
1359    }
1360    if { [catch { open $_settingsFile "w" 0600 } f ] != 0 } {
1361        puts stderr "$_settingsFile isn't writable: $f"
1362        bell
1363        return
1364    }
1365    set key [list $toolName $plotName]
1366    set _savedSettings($key) [CreateSettings $toolName $plotName]
1367    # Write the settings out
1368    foreach key [lsort [array names _savedSettings]] {
1369        set tool [lindex $key 0]
1370        set plot [lindex $key 1]
1371        puts $f "xyprint \"$tool\" \"$plot\" \{"
1372        set settings [string trim $_savedSettings($key) \n]
1373        puts $f "$settings"
1374        puts $f "\}\n"
1375    }
1376    close $f
1377}
1378
1379itcl::body Rappture::XyPrint::CreateSettings { toolName plotName } {
1380    # Create stanza associated with tool and plot title.
1381    # General settings
1382    set length [string length "${this}-"]
1383    append out "    array set settings {\n"
1384    foreach item [array names _settings ${this}-*] {
1385        set field [string range $item $length end]
1386        if { [regexp {^element-[0-9]+$} $field] } {
1387            continue
1388        }
1389        set value $_settings($item)
1390        append out "        [list $field] [list $value]\n"
1391    }
1392    append out "    }\n"
1393    # Legend font
1394    lappend legendfont $_settings($this-legend-fontfamily)
1395    lappend legendfont $_settings($this-legend-fontsize)
1396    lappend legendfont $_settings($this-legend-fontweight)
1397    lappend legendfont $_settings($this-legend-fontslant)
1398    # Axis tick font
1399    lappend axistickfont $_settings($this-axis-ticks-fontfamily)
1400    lappend axistickfont $_settings($this-axis-ticks-fontsize)
1401    lappend axistickfont $_settings($this-axis-ticks-fontweight)
1402    lappend axistickfont $_settings($this-axis-ticks-fontslant)
1403    # Axis title font
1404    lappend axistitlefont $_settings($this-axis-title-fontfamily)
1405    lappend axistitlefont $_settings($this-axis-title-fontsize)
1406    lappend axistitlefont $_settings($this-axis-title-fontweight)
1407    lappend axistitlefont $_settings($this-axis-title-fontslant)
1408    append out "\n"
1409
1410    # Layout settings
1411    append out "    preview configure"
1412    foreach opt { -width -height -leftmargin -rightmargin -topmargin
1413        -bottommargin -plotpadx -plotpady } {
1414        set value [$_clone cget $opt]
1415        append out " $opt [list $value]"
1416    }
1417    append out "\n"
1418
1419    # Legend settings
1420    append out "    preview legend configure"
1421    foreach opt { -position -anchor -borderwidth -hide } {
1422        set value [$_clone legend cget $opt]
1423        append out " $opt [list $value]"
1424    }
1425    append out " -font [list $legendfont]\n"
1426
1427    # Element settings
1428    foreach elem [$_clone element show] {
1429        set label [$_clone element cget $elem -label]
1430        if { $label == "" } {
1431            continue
1432        }
1433        set label [list $label]
1434        append out "    if \{ \[preview element exists $label] \} \{\n"
1435        append out "        preview element configure $label"
1436        if { [$_clone element type $elem] != "bar" } {
1437            set options { -symbol -color -dashes -label }
1438        } else {
1439            set options { -color -label }
1440        }
1441        foreach opt $options {
1442            set value [$_clone element cget $elem $opt]
1443            append out " $opt [list $value]"
1444        }
1445        append out "    \}\n"
1446    }
1447   
1448    # Axis settings
1449    foreach axis [$_clone axis names] {
1450        if { [$_clone axis cget $axis -hide] } {
1451            continue
1452        }
1453        set axis [list $axis]
1454        append out "    if \{ \[llength \[preview axis names $axis\]\] == 1 \} \{\n"
1455        append out "        preview axis configure $axis"
1456        foreach opt { -hide -min -max -loose -title -stepsize -subdivisions } {
1457            set value [$_clone axis cget $axis $opt]
1458            append out " $opt [list $value]"
1459        }
1460        append out " -tickfont [list $axistickfont]"
1461        append out " -titlefont [list $axistitlefont]\n"
1462        set hide [$_clone marker cget ${axis}-zero -hide]
1463        append out "        preview marker configure ${axis}-zero -hide $hide\n"
1464        append out "    \}\n"
1465    }   
1466
1467    append out "    preview grid configure"
1468    append out " -hide \"[$_clone grid cget -hide]\""
1469    append out " -mapx \"[$_clone grid cget -mapx]\""
1470    append out " -mapy \"[$_clone grid cget -mapy]\""
1471    return $out
1472}
Note: See TracBrowser for help on using the repository browser.