remove debug messages
This commit is contained in:
parent
99f31e4535
commit
f2fd7e6e48
|
|
@ -2910,7 +2910,7 @@ proc myload_set_colors2 {} {
|
||||||
set pattern $j
|
set pattern $j
|
||||||
set color $dircolor($j)
|
set color $dircolor($j)
|
||||||
set len [string length [regexp -inline $pattern $dir1]]
|
set len [string length [regexp -inline $pattern $dir1]]
|
||||||
puts "len=$len\npattern=$pattern\nname=$name\n\n\n"
|
# puts "len=$len\npattern=$pattern\nname=$name\n\n\n"
|
||||||
if { $len > $maxlen } {
|
if { $len > $maxlen } {
|
||||||
.load.l.paneright.list itemconfigure $i -foreground $color -selectforeground $color
|
.load.l.paneright.list itemconfigure $i -foreground $color -selectforeground $color
|
||||||
set maxlen $len
|
set maxlen $len
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue