diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-09 17:31:49 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-09 17:31:49 (GMT) |
commit | 37e757832a7f2c690cea41df5bf9cfa9ee18f67f (patch) | |
tree | 71de1ec46ac26e888c422b8e66aeea96129b0cb0 /ds9/library/plotdialog.tcl | |
parent | e17e833a826046e26825799dde37d887dfa5bcd3 (diff) | |
download | blt-37e757832a7f2c690cea41df5bf9cfa9ee18f67f.zip blt-37e757832a7f2c690cea41df5bf9cfa9ee18f67f.tar.gz blt-37e757832a7f2c690cea41df5bf9cfa9ee18f67f.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 | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/ds9/library/plotdialog.tcl b/ds9/library/plotdialog.tcl index 4f20525..1054014 100644 --- a/ds9/library/plotdialog.tcl +++ b/ds9/library/plotdialog.tcl @@ -566,12 +566,8 @@ 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} { - DarwinPhotoRestore $geom Error $iap(error) return } @@ -586,7 +582,4 @@ proc PlotExport {varname fn format} { } image delete $ph - - # reset if needed - DarwinPhotoRestore $geom } |