diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 20:31:38 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 20:31:38 (GMT) |
commit | 458832c9a3d99e965341f8a460583cf32062c0fb (patch) | |
tree | ae32f63c41a1025ee0c1b2f20b4891dbdab69911 /ds9/library/vlss.tcl | |
parent | c02940558ef4f2c7b4df9c8b84ac442a876d3fc4 (diff) | |
download | blt-458832c9a3d99e965341f8a460583cf32062c0fb.zip blt-458832c9a3d99e965341f8a460583cf32062c0fb.tar.gz blt-458832c9a3d99e965341f8a460583cf32062c0fb.tar.bz2 |
update ds9 parsers
Diffstat (limited to 'ds9/library/vlss.tcl')
-rw-r--r-- | ds9/library/vlss.tcl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/ds9/library/vlss.tcl b/ds9/library/vlss.tcl index 8c585a0..93d2e4c 100644 --- a/ds9/library/vlss.tcl +++ b/ds9/library/vlss.tcl @@ -40,9 +40,6 @@ proc VLSSDialog {} { set var(rformat) $vlss(rformat) set var(width) $vlss(width) set var(height) $vlss(height) - # not used - set var(width,pixels) 300 - set var(height,pixels) 300 set var(mode) $vlss(mode) set var(save) $vlss(save) @@ -132,5 +129,12 @@ proc ProcessVLSSCmd {varname iname} { proc ProcessSendVLSSCmd {proc id param {sock {}} {fn {}}} { VLSSDialog - IMGSVRProcessSendCmd $proc $id $param dvlss + + global parse + set parse(proc) $proc + set parse(id) $id + + vlsssend::YY_FLUSH_BUFFER + vlsssend::yy_scan_string $param + vlsssend::yyparse } |