Index: rebind.tcl
===================================================================
RCS file: /home/cvs/tktest/rebind.tcl,v
retrieving revision 1.10
diff -r1.10 rebind.tcl
132,135c132,133
<     if {[string equal Menu [winfo class $w]]} {
< # puts "MENU- ..$w.."
<       if {[string first # $w] < 1} {
<       # puts "ADDING BINDING for $w [string first # $w]"
---
>     if {[string equal Menu [winfo class $w]] &&
>         ([string first # $w] < 1)} {
138a137,138
>         bind Menu <ButtonRelease> "tk::MenuEscape $w"
> #        bind Menu <ButtonPress> "WinMenuPress Menu %W %x %y"
140d139
<       }
186a186
> 
201c201
< 
---
> # puts "WinMenuLeave: $win $W $X $Y"
216c216
< # puts "WINMENUPRESS: $win -- $W -- $X -- $Y"
---
> #  puts "WINMENUPRESS: $win -- $W -- $X -- $Y"
243c243
< # puts "MOTION: $win $W $X $Y"
---
> # puts "WinMenuMotion: $win $W $X $Y"
659c659
< # puts "CB__RD: [info exists db__rd(actionID)] -- $tag -- $event -- $percentFields -- $args --    "
---
> #  puts "CB__RD: [info level] [info exists db__rd(actionID)] -- $tag -- $event -- $percentFields -- $args --    "
718a719
> 
898,899c899,902
< proc bgerror {msg} {global errorInfo
<     puts "ERROR(replay): $msg ==> $errorInfo"}
---
> proc bgerror {msg} {
>     global errorInfo
>     puts "ERROR(replay): $msg ==> $errorInfo"
> }
