Attachment "listbox-1.9.0.diff3" to
ticket [3000293fff]
added by
oehhar
2010-05-12 14:15:13.
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]
