Changeset 1616
- Timestamp:
- Nov 19, 2009, 5:58:14 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/xyprint.tcl
r1609 r1616 223 223 set psdata [$_clone postscript output] 224 224 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] 229 232 } 230 233 … … 601 604 Rappture::Combobox $page.format -width 30 -editable no 602 605 $page.format choices insert end \ 606 "pdf" "PDF Portable Document Format" \ 607 "ps" "PS PostScript Format" \ 603 608 "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" 607 611 608 612 bind $page.format <<Value>> [itcl::code $this ApplyGeneralSettings] … … 1126 1130 # General settings 1127 1131 1128 # Always set to " eps" "ieee"1129 set _settings($this-general-format) eps1132 # Always set to "ps" "ieee" 1133 set _settings($this-general-format) ps 1130 1134 set _settings($this-general-style) ieee 1131 1135 set _settings($this-general-remember) 1
Note: See TracChangeset
for help on using the changeset viewer.