diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 21:32:01 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-31 21:32:01 (GMT) |
| commit | adbf89acf2d2393e65f78481838a72fc6fbcc35c (patch) | |
| tree | af378cc5e8102b6261f4a3a10eded717487432ca /ds9/library/grid.tcl | |
| parent | 2887fd30571298c2c34d815675339ad57bff902a (diff) | |
| download | blt-adbf89acf2d2393e65f78481838a72fc6fbcc35c.zip blt-adbf89acf2d2393e65f78481838a72fc6fbcc35c.tar.gz blt-adbf89acf2d2393e65f78481838a72fc6fbcc35c.tar.bz2 | |
add ds9 parser grid send
Diffstat (limited to 'ds9/library/grid.tcl')
| -rw-r--r-- | ds9/library/grid.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ds9/library/grid.tcl b/ds9/library/grid.tcl index ac32009..d7ecac5 100644 --- a/ds9/library/grid.tcl +++ b/ds9/library/grid.tcl @@ -1170,8 +1170,17 @@ proc GridCmdFontStyle {which value {cmd {}}} { } proc ProcessSendGridCmd {proc id param {sock {}} {fn {}}} { - global grid + if {1} { + global parse + set parse(proc) $proc + set parse(id) $id + + gridsend::YY_FLUSH_BUFFER + gridsend::yy_scan_string $param + gridsend::yyparse + } else { + global grid switch -- [lindex $param 0] { type { switch -- [lindex $param 1] { @@ -1336,3 +1345,4 @@ proc ProcessSendGridCmd {proc id param {sock {}} {fn {}}} { default {$proc $id [ToYesNo $grid(view)]} } } +} |