diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 19:07:24 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-04-13 19:07:24 (GMT) |
commit | c035c9899e98dd4963f4e26948c4a5159f294f56 (patch) | |
tree | 9c614ce9d8910642704d598656ef2bca68cf2372 /ds9/library/panzoom.tcl | |
parent | 9dbeaaa6ccc5cb8f3bef0bd33f26b9f7c5332cd4 (diff) | |
download | blt-c035c9899e98dd4963f4e26948c4a5159f294f56.zip blt-c035c9899e98dd4963f4e26948c4a5159f294f56.tar.gz blt-c035c9899e98dd4963f4e26948c4a5159f294f56.tar.bz2 |
add ds9 lock/match parser
Diffstat (limited to 'ds9/library/panzoom.tcl')
-rw-r--r-- | ds9/library/panzoom.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ds9/library/panzoom.tcl b/ds9/library/panzoom.tcl index 207a04a..851e003 100644 --- a/ds9/library/panzoom.tcl +++ b/ds9/library/panzoom.tcl @@ -677,6 +677,15 @@ proc PanZoomBackup {ch which} { # Process Cmds +proc PanZoomCmdSet {which value {cmd {}}} { + global panzoom + + set panzoom($which) $value + if {$cmd != {}} { + eval $cmd + } +} + proc ProcessPanCmd {varname iname} { upvar $varname var upvar $iname i |