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/movie.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/movie.tcl')
-rw-r--r-- | ds9/library/movie.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/ds9/library/movie.tcl b/ds9/library/movie.tcl index 3320f6a..2756590 100644 --- a/ds9/library/movie.tcl +++ b/ds9/library/movie.tcl @@ -301,8 +301,12 @@ proc MoviePhotoMPEG {} { UpdateDS9 RealizeDS9 1 + # for darwin only + set geom [DarwinPhotoFix] + set rr [catch {image create photo -format window -data $ds9(canvas)} ph] if {$rr} { + DarwinPhotoRestore $geom Error $movie(error) return $rr } @@ -315,8 +319,10 @@ proc MoviePhotoMPEG {} { set movie(first) 0 } mpeg add $ph - image delete $ph + + # reset if needed + DarwinPhotoRestore $geom return 0 } @@ -330,8 +336,12 @@ proc MoviePhotoGIF {} { UpdateDS9 RealizeDS9 1 + # for darwin only + set geom [DarwinPhotoFix] + set rr [catch {image create photo -format window -data $ds9(canvas)} ph] if {$rr} { + DarwinPhotoRestore $geom Error $movie(error) return $rr } @@ -343,6 +353,8 @@ proc MoviePhotoGIF {} { agif add $ph image delete $ph + # reset if needed + DarwinPhotoRestore $geom return 0 } |