diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-01-12 18:23:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-01-12 18:23:03 (GMT) |
commit | 10e68f58b7f7d74c4ba02cb0561e2c1d59f6d92b (patch) | |
tree | 87320c5f9cdd3923f5a793aec922ed4195eeca87 /ds9/library/xpa.tcl | |
parent | a38fd423435acb45ac17f753578632e41824dec3 (diff) | |
download | blt-10e68f58b7f7d74c4ba02cb0561e2c1d59f6d92b.zip blt-10e68f58b7f7d74c4ba02cb0561e2c1d59f6d92b.tar.gz blt-10e68f58b7f7d74c4ba02cb0561e2c1d59f6d92b.tar.bz2 |
add precision command tests
Diffstat (limited to 'ds9/library/xpa.tcl')
-rw-r--r-- | ds9/library/xpa.tcl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/ds9/library/xpa.tcl b/ds9/library/xpa.tcl index 2f90cab..cb2fe43 100644 --- a/ds9/library/xpa.tcl +++ b/ds9/library/xpa.tcl @@ -425,6 +425,11 @@ proc CreateXPA {} { XPASendPNG {} {} \ XPARcvdPNG {} "fillbuf=false" + xpacmdadd $xpa precision \ + {} \ + XPASendPrecision {} {} \ + XPARcvdPrecision {} {} + xpacmdadd $xpa prefs \ {} \ XPASendPrefs {} {} \ @@ -1532,6 +1537,19 @@ proc XPARcvdPNG {xpa cdata param buf len} { XPACatchError $xpa } +proc XPASendPrecision {xpa cdata param} { + InitError xpa + catch {ProcessSendPrecisionCmd xpasetbuf $xpa $param} + XPACatchError $xpa +} + +proc XPARcvdPrecision {xpa cdata param buf len} { + XPADebug "XPARcvdPrecision" $param + InitError xpa + catch {set i 0; ProcessPrecisionCmd param i} + XPACatchError $xpa +} + proc XPASendPrefs {xpa cdata param} { InitError xpa catch {ProcessSendPrefsCmd xpasetbuf $xpa $param} |