diff options
Diffstat (limited to 'ds9/library/array.tcl')
| -rw-r--r-- | ds9/library/array.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ds9/library/array.tcl b/ds9/library/array.tcl index 6b02983..d56a233 100644 --- a/ds9/library/array.tcl +++ b/ds9/library/array.tcl @@ -47,10 +47,12 @@ proc ImportArraySocket {sock fn layer} { proc ExportArrayFile {fn opt} { global current - if {$fn == {} || $current(frame) == {}} { + if {$fn == {}} { + return + } + if {$current(frame) == {}} { return } - if {![$current(frame) has fits]} { return } @@ -64,7 +66,6 @@ proc ExportArraySocket {sock opt} { if {$current(frame) == {}} { return } - if {![$current(frame) has fits]} { return } |