diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-05-29 21:27:31 (GMT) |
commit | b8395e8e32cccb75565a170160772857087901de (patch) | |
tree | 2494425c02897874ba1a957a51224522c4a2e10a /ds9/library/debug.tcl | |
parent | 41505b4129a005e96c6afc3344ccf61097884fbd (diff) | |
download | blt-b8395e8e32cccb75565a170160772857087901de.zip blt-b8395e8e32cccb75565a170160772857087901de.tar.gz blt-b8395e8e32cccb75565a170160772857087901de.tar.bz2 |
update parsers
Diffstat (limited to 'ds9/library/debug.tcl')
-rw-r--r-- | ds9/library/debug.tcl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/ds9/library/debug.tcl b/ds9/library/debug.tcl index 3706199..4ee3892 100644 --- a/ds9/library/debug.tcl +++ b/ds9/library/debug.tcl @@ -23,7 +23,6 @@ proc DebugDef {} { set debug(tcl,http) 0 set debug(tcl,ftp) 0 set debug(tcl,xpa) 0 - set debug(tcl,parser) 1 set debug(tcl,image) 0 set debug(tksao,ast) 0 @@ -98,8 +97,6 @@ proc DebugMenu {} { -variable debug(tcl,ftp) $ds9(mb).debug.tcl add checkbutton -label {XPA} \ -variable debug(tcl,xpa) - $ds9(mb).debug.tcl add checkbutton -label {TclParser} \ - -variable debug(tcl,parser) $ds9(mb).debug.tcl add checkbutton -label {IMAGE} \ -variable debug(tcl,image) @@ -196,10 +193,6 @@ proc ProcessDebugTclCmd {varname iname} { http {set debug(tcl,http) 1} ftp {set debug(tcl,ftp) 1} xpa {set debug(tcl,xpa) 1} - tclparser { - incr i - set debug(tcl,parser) [FromYesNo [lindex $var $i]] - } image { set debug(tcl,hv) 1 set debug(tcl,http) 1 |