197,199c197,199
<             $path bindText <ButtonRelease-1>          ""
<             $path bindText <Shift-ButtonRelease-1>    ""
<             $path bindText <Control-ButtonRelease-1>  ""
---
>             $path bindText <Button-1>          ""
>             $path bindText <Shift-Button-1>    ""
>             $path bindText <Control-Button-1>  ""
201,203c201,203
<             $path bindImage <ButtonRelease-1>         ""
<             $path bindImage <Shift-ButtonRelease-1>   ""
<             $path bindImage <Control-ButtonRelease-1> ""
---
>             $path bindImage <Button-1>         ""
>             $path bindImage <Shift-Button-1>   ""
>             $path bindImage <Control-Button-1> ""
217,219c217,219
<             $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 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]
221,223c221,223
<             $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 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]
