#1 Draw bug on iwidgets::hierarchy

[Anonymous]

Hello,
I encounter problem while using the hierarchy widgets:
sometimes unwanted icons were displayed on the last
line of the text widget. I work on HP11.0, and the
problem occurs with each version of tcl I tried.

I found that when the icons are display in this way,
the draw method have been called twice, and the second
is executed in the middle of the first. I delete the
update call after the mouse cursor changement and it
seems now to work well.

Ragmax,
VRAG01@motorola.com

itcl::body ::iwidgets::Hierarchy::draw {{when -now}} {
if {$when == "-eventually"} {
if {$_pending == ""} {
set _pending [after idle [itcl::code $this
draw -now]]
}
return
} elseif {$when != "-now"} {
error "bad when option \"$when\": should be
-eventually or -now"
}
$itk_component(list) configure -state normal
-cursor watch

## this update allow the draw function to be called
again
#update

$itk_component(list) delete 1.0 end
catch {unset _images}
set _markers ""

_drawLevel "" ""

foreach {name index} $_markers {
$itk_component(list) mark set $name $index
}

$itk_component(list) configure -state disabled
-cursor $itk_option(-cursor)
set _pending ""

}