diff options
author | treectrl <treectrl> | 2002-12-21 22:00:44 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2002-12-21 22:00:44 (GMT) |
commit | dedecd6dafa359709d55f9eeed932020f791f5aa (patch) | |
tree | 85824e880d739213feb7486a02af38a59d9a6d54 | |
parent | 2c0368d012fd32b985f702d4461ac40d0e39f4f4 (diff) | |
download | tktreectrl-dedecd6dafa359709d55f9eeed932020f791f5aa.zip tktreectrl-dedecd6dafa359709d55f9eeed932020f791f5aa.tar.gz tktreectrl-dedecd6dafa359709d55f9eeed932020f791f5aa.tar.bz2 |
Replace puts with dbwin.
-rw-r--r-- | demo.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -384,7 +384,7 @@ bind .f2.f1.t <ButtonPress-3> { bind TreeCtrlXXX <ButtonPress-1> { focus %W set id [%W identify %x %y] - puts "identify: $id" + dbwin "identify: $id\n" if {$id ne "" && [lindex $id 0] eq "item"} { foreach {where item arg1 arg2} $id {} if {$arg1 eq "button"} { @@ -455,7 +455,7 @@ proc DemoSet {cmd file} { set clicks [clock clicks] uplevel #0 $cmd set clicks [expr {[clock clicks] - $clicks}] - puts "set list in [ClicksToSeconds $clicks] seconds ($clicks clicks)" + dbwin "set list in [ClicksToSeconds $clicks] seconds ($clicks clicks)\n" .f2.f1.t xview moveto 0 .f2.f1.t yview moveto 0 update |