193,194c193,194
<             $path _bindText  <Button-1> ""
<             $path _bindImage <Button-1> ""
---
>             $path bindText  <Button-1> ""
>             $path bindImage <Button-1> ""
197,203c197,203
<             $path _bindText <ButtonRelease-1>          ""
<             $path _bindText <Shift-ButtonRelease-1>    ""
<             $path _bindText <Control-ButtonRelease-1>  ""
< 
<             $path _bindImage <ButtonRelease-1>         ""
<             $path _bindImage <Shift-ButtonRelease-1>   ""
<             $path _bindImage <Control-ButtonRelease-1> ""
---
>             $path bindText <Button-1>          ""
>             $path bindText <Shift-Button-1>    ""
>             $path bindText <Control-Button-1>  ""
> 
>             $path bindImage <Button-1>         ""
>             $path bindImage <Shift-Button-1>   ""
>             $path bindImage <Control-Button-1> ""
209,210c209,210
<             $path _bindText  <Button-1> [list ListBox::_mouse_select $path set]
<             $path _bindImage <Button-1> [list ListBox::_mouse_select $path set]
---
>             $path bindText  <Button-1> [list ListBox::_mouse_select $path set]
>             $path bindImage <Button-1> [list ListBox::_mouse_select $path set]
217,223c217,223
<             $path _bindText <ButtonRelease-1>          [list $cmd $path n %x %y]
<             $path _bindText <Shift-ButtonRelease-1>    [list $cmd $path s %x %y]
<             $path _bindText <Control-ButtonRelease-1>  [list $cmd $path c %x %y]
< 
<             $path _bindImage <ButtonRelease-1>         [list $cmd $path n %x %y]
<             $path _bindImage <Shift-ButtonRelease-1>   [list $cmd $path s %x %y]
<             $path _bindImage <Control-ButtonRelease-1> [list $cmd $path c %x %y]
---
>             $path bindText <Button-1>          [list $cmd $path n %x %y]
>             $path bindText <Shift-Button-1>    [list $cmd $path s %x %y]
>             $path bindText <Control-Button-1>  [list $cmd $path c %x %y]
> 
>             $path bindImage <Button-1>         [list $cmd $path n %x %y]
>             $path bindImage <Shift-Button-1>   [list $cmd $path s %x %y]
>             $path bindImage <Control-Button-1> [list $cmd $path c %x %y]
422c422
< 		    -tags [list img imgbind i:$item]
---
> 		    -tags [list img i:$item]
464c464
< #  Command ListBox::_bindText
---
> #  Command ListBox::bindText
466c466
< proc ListBox::_bindText { path event script {tag click} } {
---
> proc ListBox::bindText { path event script } {
472c472
<     $path.c bind $tag $event $script
---
>     $path.c bind "click" $event $script
475,480d474
< # ----------------------------------------------------------------------------
< #  Command ListBox::bindText
< # ----------------------------------------------------------------------------
< proc ListBox::bindText { path event script } {
<     _bindText $path $event $script clickbind
< }
483c477
< #  Command ListBox::_bindImage
---
> #  Command ListBox::bindImage
485c479
< proc ListBox::_bindImage { path event script {tag img} } {
---
> proc ListBox::bindImage { path event script } {
491c485
<     $path.c bind $tag $event $script
---
>     $path.c bind "img" $event $script
494,499d487
< # ----------------------------------------------------------------------------
< #  Command ListBox::bindImage
< # ----------------------------------------------------------------------------
< proc ListBox::bindImage { path event script } {
<     _bindImage $path $event $script imgbind
< }
743,744d730
<         set idi [$path.c find withtag i:$item]
<         if { $idi == "" } { set idi $idn }
746c732
<         ListBox::_see $path $idi left
---
>         ListBox::_see $path $idn left
1016c1002
<         -tags   [list item n:$item click clickbind]]
---
>         -tags   [list item n:$item click]]
1021c1007
<         set tags  [list box b:$item click clickbind]
---
>         set tags  [list box b:$item click]
1031c1017
<             -image $img -anchor w -tags [list img imgbind i:$item]
---
>             -image $img -anchor w -tags [list img i:$item]
1137c1123
<             set tags [list sel s:$item click clickbind]
---
>             set tags [list sel s:$item click]
