diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-11-15 19:00:27 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-11-15 19:00:27 (GMT) |
commit | 41af4310806ae25fec33219c080631a853a014ed (patch) | |
tree | 19c81709a4a8a01a3bad7c56330e3d9652edde94 /ds9/library | |
parent | 0e44fd721542a91859eee73517b59d9defb15779 (diff) | |
download | blt-41af4310806ae25fec33219c080631a853a014ed.zip blt-41af4310806ae25fec33219c080631a853a014ed.tar.gz blt-41af4310806ae25fec33219c080631a853a014ed.tar.bz2 |
check for invalid [tk scaling] command results
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} } |