Changeset 1616


Ignore:
Timestamp:
Nov 19, 2009 5:58:14 PM (11 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/xyprint.tcl

    r1609 r1616  
    223223    set psdata [$_clone postscript output]
    224224
    225     if 0 {
    226         set f [open "junk.raw" "w"]
    227         puts -nonewline $f $psdata
    228         close $f
     225    if { $format == "eps" } {
     226        if 0 {
     227            set f [open "junk.raw" "w"]
     228            puts -nonewline $f $psdata
     229            close $f
     230        }
     231        return [list .$format $psdata]
    229232    }
    230233
     
    601604    Rappture::Combobox $page.format -width 30 -editable no
    602605    $page.format choices insert end \
     606        "pdf" "PDF Portable Document Format" \
     607        "ps"  "PS PostScript Format"  \
    603608        "eps" "EPS Encapsulated PostScript"  \
    604         "pdf" "PDF Portable Document Format" \
    605         "jpg"  "JPEG Joint Photographic Experts Group Format" \
    606         "png"  "PNG Portable Network Graphics Format"         
     609        "jpg" "JPEG Joint Photographic Experts Group Format" \
     610        "png" "PNG Portable Network Graphics Format"         
    607611
    608612    bind $page.format <<Value>> [itcl::code $this ApplyGeneralSettings]
     
    11261130    # General settings
    11271131
    1128     # Always set to "eps" "ieee"
    1129     set _settings($this-general-format) eps
     1132    # Always set to "ps" "ieee"
     1133    set _settings($this-general-format) ps
    11301134    set _settings($this-general-style) ieee
    11311135    set _settings($this-general-remember) 1
Note: See TracChangeset for help on using the changeset viewer.