diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-06-27 17:35:55 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-06-27 17:35:55 (GMT) |
commit | 8d809bef8bf9b81b2f7561e8a3ec9c65174408d5 (patch) | |
tree | 82c546ee4ae08c3fc3686cd53e7aa7de3cc8e8d8 | |
parent | 30b42b0f079c5ad56dea6fbb3f077d9049e66c52 (diff) | |
download | blt-8d809bef8bf9b81b2f7561e8a3ec9c65174408d5.zip blt-8d809bef8bf9b81b2f7561e8a3ec9c65174408d5.tar.gz blt-8d809bef8bf9b81b2f7561e8a3ec9c65174408d5.tar.bz2 |
rm debug print statements
-rw-r--r-- | ds9/library/analysis.tcl | 1 | ||||
-rw-r--r-- | ds9/library/hv.tcl | 7 | ||||
-rw-r--r-- | ds9/library/hvsup.tcl | 4 | ||||
-rwxr-xr-x | ds9/win/Makefile.in | 2 |
4 files changed, 0 insertions, 14 deletions
diff --git a/ds9/library/analysis.tcl b/ds9/library/analysis.tcl index bc3bc04..011d393 100644 --- a/ds9/library/analysis.tcl +++ b/ds9/library/analysis.tcl @@ -55,7 +55,6 @@ proc ClearAnalysis {} { if {$ianalysis(menu,count) == 0} { return } - puts stderr $ianalysis(menu,count) # delete cascade menus for {set ii 0} {$ii<$ianalysis(menu,hmenu,count)} {incr ii} { diff --git a/ds9/library/hv.tcl b/ds9/library/hv.tcl index 9117f26..80da8a6 100644 --- a/ds9/library/hv.tcl +++ b/ds9/library/hv.tcl @@ -32,7 +32,6 @@ proc HV {varname title url {init {}} {sync 0}} { set mb $var(mb) # see if we already have a window visible - if {[winfo exists $w]} { raise $w } else { @@ -241,12 +240,6 @@ proc HV {varname title url {init {}} {sync 0}} { # a blank page, all seems ok $var(widget) clear $var(widget) parse "<html>\n<body>\n<form method=\"get\" action=\"foo\">\n</form>\n</body>\n</html>" - - global debug - if {$debug(tcl,idletasks)} { - puts stderr "HV" - } - update idletasks } selection handle $w [list HVExportSelection $varname] diff --git a/ds9/library/hvsup.tcl b/ds9/library/hvsup.tcl index f64b799..ca0f0bf 100644 --- a/ds9/library/hvsup.tcl +++ b/ds9/library/hvsup.tcl @@ -1344,7 +1344,6 @@ proc HVParseXPASet {varname} { global $varname global ds9 - puts stderr "HVParseXPASet: [HVParseMimeParam $varname paramlist]" global debug if {$debug(tcl,hv)} { puts stderr "HVParseXPASet: [HVParseMimeParam $varname paramlist]" @@ -1352,12 +1351,9 @@ proc HVParseXPASet {varname} { if {[info exists var(xpa,target)]} { set target $var(xpa,target) - puts stderr a } else { set target [HVParseMimeParam $varname target] - puts stderr b } - puts stderr "[HVParseMimeParam $varname target]" if {$target == "$ds9(title)" || $target == "DS9:*" || diff --git a/ds9/win/Makefile.in b/ds9/win/Makefile.in index ecf295a..14e7ed7 100755 --- a/ds9/win/Makefile.in +++ b/ds9/win/Makefile.in @@ -9,8 +9,6 @@ datarootdir = @datarootdir@ datadir = @datadir@ mandir = @mandir@ -TCLSH_PROG = @TCLSH_PROG@ - TCL_VERSION = @TCL_VERSION@ TCL_LIB_SPEC = @TCL_LIB_SPEC@ TCL_STUB_LIB_SPEC= @TCL_STUB_LIB_SPEC@ |