diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-08 20:34:14 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-08 20:34:14 (GMT) |
commit | b3145ce58007f51c211c1b03d7e7adc2e02f3181 (patch) | |
tree | dddf6d1bef91bb2f2d0badccbbe93fe9f2fc547e /ds9/library/plotdialog.tcl | |
parent | 1a590027c4000f8068e421237ace87479f77c2f0 (diff) | |
download | blt-b3145ce58007f51c211c1b03d7e7adc2e02f3181.zip blt-b3145ce58007f51c211c1b03d7e7adc2e02f3181.tar.gz blt-b3145ce58007f51c211c1b03d7e7adc2e02f3181.tar.bz2 |
DARWIN: reposition window to upper left corner if X11 and Darwin for SaveAs and Movie
Diffstat (limited to 'ds9/library/plotdialog.tcl')
-rw-r--r-- | ds9/library/plotdialog.tcl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index a00976f..4f20525 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -566,9 +566,14 @@ proc PlotExport {varname fn format} { # besure we are on top raise $var(top) + # for darwin only + set geom [DarwinPhotoFix] + set rr [catch {image create photo -format window -data $var(graph)} ph] - if {$rr != 0} { + if {$rr} { + DarwinPhotoRestore $geom Error $iap(error) + return } switch -- $format { @@ -581,4 +586,7 @@ proc PlotExport {varname fn format} { } image delete $ph + + # reset if needed + DarwinPhotoRestore $geom } |