diff options
Diffstat (limited to 'ds9/library')
-rw-r--r-- | ds9/library/layout.tcl | 7 | ||||
-rw-r--r-- | ds9/library/plotprint.tcl | 7 |
2 files changed, 12 insertions, 2 deletions
diff --git a/ds9/library/layout.tcl b/ds9/library/layout.tcl index 191a748..5bba029 100644 --- a/ds9/library/layout.tcl +++ b/ds9/library/layout.tcl @@ -370,7 +370,12 @@ proc LayoutViewAdjust {varname} { # can't trust 'tk scaling' switch $ds9(wm) { x11 - - win32 {set scaling [tk scaling]} + win32 { + set scaling [tk scaling] + if {$scaling == Inf} { + set scaling 1.334 + } + } aqua {set scaling 1.4} } diff --git a/ds9/library/plotprint.tcl b/ds9/library/plotprint.tcl index ac83384..3bf16ea 100644 --- a/ds9/library/plotprint.tcl +++ b/ds9/library/plotprint.tcl @@ -50,7 +50,12 @@ proc PlotPostScript {varname} { # can't trust 'tk scaling' switch $ds9(wm) { x11 - - win32 {set scaling [tk scaling]} + win32 { + set scaling [tk scaling] + if {$scaling == Inf} { + set scaling 1.334 + } + } aqua {set scaling 1.4} } |