diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-08 18:23:59 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-08 18:23:59 (GMT) |
commit | f5bce74eabb0a4389fc885baf0b15a1a89655b86 (patch) | |
tree | 26bf556a75ea7f08fe76323b0500803d4de3f389 /ds9/library/util.tcl | |
parent | 86654caa76c90695a985bb5f0dbbcc683411354e (diff) | |
download | blt-f5bce74eabb0a4389fc885baf0b15a1a89655b86.zip blt-f5bce74eabb0a4389fc885baf0b15a1a89655b86.tar.gz blt-f5bce74eabb0a4389fc885baf0b15a1a89655b86.tar.bz2 |
add ds9 iconify parser
Diffstat (limited to 'ds9/library/util.tcl')
-rw-r--r-- | ds9/library/util.tcl | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/ds9/library/util.tcl b/ds9/library/util.tcl index 7e2d948..c6273e6 100644 --- a/ds9/library/util.tcl +++ b/ds9/library/util.tcl @@ -1523,8 +1523,15 @@ proc ProcessIconifyCmd {varname iname} { upvar $varname var upvar $iname i - global ds9 + global debug + if {$debug(tcl,parser)} { + iconify::YY_FLUSH_BUFFER + iconify::yy_scan_string [lrange $var $i end] + iconify::yyparse + incr i [expr $iconify::yycnt-1] + } else { + global ds9 switch -- [string tolower [lindex $var $i]] { yes - true - @@ -1542,6 +1549,17 @@ proc ProcessIconifyCmd {varname iname} { } } } +} + +proc IconifyCmd {which} { + global ds9 + + if {$which} { + wm iconify $ds9(top) + } else { + wm deiconify $ds9(top) + } +} proc ProcessSendIconifyCmd {proc id param} { global ds9 |