diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-14 18:09:22 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-14 18:09:22 (GMT) |
commit | 3f074d337f73569970b9582b0ee949885f85c7cd (patch) | |
tree | 5b3232b16efe56a086c8dda42489c389396f4ff9 /ds9/library/export.tcl | |
parent | 505b21f65976064309cd7c68c12bfa6d6f88a7bd (diff) | |
download | blt-3f074d337f73569970b9582b0ee949885f85c7cd.zip blt-3f074d337f73569970b9582b0ee949885f85c7cd.tar.gz blt-3f074d337f73569970b9582b0ee949885f85c7cd.tar.bz2 |
add check for export cmd
Diffstat (limited to 'ds9/library/export.tcl')
-rw-r--r-- | ds9/library/export.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ds9/library/export.tcl b/ds9/library/export.tcl index 9c1a6b0..3fc7823 100644 --- a/ds9/library/export.tcl +++ b/ds9/library/export.tcl @@ -55,6 +55,10 @@ proc ExportCmdSave {format fn {fn2 {}}} { jpeg {FileLast jpegfbox $fn} tiff {FileLast tifffbox $fn} png {FileLast pngfbox $fn} + default { + Error "[msgcat::mc {Not valid export format}] $format" + return + } } Export $fn $format $fn2 } |