diff options
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/pagesetup.tcl | 15 | ||||
| -rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 8 insertions, 9 deletions
diff --git a/ds9/library/pagesetup.tcl b/ds9/library/pagesetup.tcl index 0b1f3db..79ecae0 100644 --- a/ds9/library/pagesetup.tcl +++ b/ds9/library/pagesetup.tcl @@ -188,15 +188,12 @@ proc ProcessPSPageSetupCmd {varname iname} { } proc ProcessSendPSPageSetupCmd {proc id param {sock {}} {fn {}}} { - global ps + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [string tolower $param] { - orientation - - orient {$proc $id "$ps(orient)\n"} - pagescale - - scale {$proc $id "$ps(scale)\n"} - pagesize - - size {$proc $id "$ps(size)\n"} - } + pagesetupsend::YY_FLUSH_BUFFER + pagesetupsend::yy_scan_string $param + pagesetupsend::yyparse } diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 810c0db..29e11c7 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -320,6 +320,8 @@ source $ds9(root)/library/rotateparser.tcl source $ds9(root)/library/rotatelex.tcl source $ds9(root)/library/pagesetupparser.tcl source $ds9(root)/library/pagesetuplex.tcl +source $ds9(root)/library/pagesetupsendparser.tcl +source $ds9(root)/library/pagesetupsendlex.tcl source $ds9(root)/library/panparser.tcl source $ds9(root)/library/panlex.tcl source $ds9(root)/library/pansendparser.tcl |