diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 17:46:36 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 17:46:36 (GMT) |
| commit | 124a095a782587ddc834d4a1f7636e5ecb8d6822 (patch) | |
| tree | b9526fcde8b5fb44bbca209a93f8d96e7f024215 /ds9/library/export.tcl | |
| parent | 9c46708c0520bd5fc929579d8b0957704c3c3a14 (diff) | |
| download | blt-124a095a782587ddc834d4a1f7636e5ecb8d6822.zip blt-124a095a782587ddc834d4a1f7636e5ecb8d6822.tar.gz blt-124a095a782587ddc834d4a1f7636e5ecb8d6822.tar.bz2 | |
update ds9 parsers
Diffstat (limited to 'ds9/library/export.tcl')
| -rw-r--r-- | ds9/library/export.tcl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/ds9/library/export.tcl b/ds9/library/export.tcl index 0188f1e..9c1a6b0 100644 --- a/ds9/library/export.tcl +++ b/ds9/library/export.tcl @@ -42,15 +42,6 @@ proc ProcessExportCmd {varname iname} { incr i [expr $export::yycnt-1] } -proc ExportCmdSet {which value {cmd {}}} { - global export - - set export($which) $value - if {$cmd != {}} { - eval $cmd - } -} - proc ExportCmdSave {format fn {fn2 {}}} { switch -- $format { array {FileLast arrayfbox $fn} |