[MACTCL] rt click menu over a Table

[Robert K. <ro...@cr...>]

Can someone tell me  what is going wrong here. I am trying to bind to 
control-click
to open a menu in a Tktable/Table and it continues to catch the 
button-release in the
table and select the cell beneath the menu element selected. the code below 
stops it
by modifying the defautl bind for Table's ButtonRelease-1, but isn't there a 
standard way of
managing rt click popup menu where I shouldn't have to play with binding of 
Table? Thanks
for any help. I ran this with wish 8.5.7.

package require Tktable
toplevel .t
table .t.t -variable var
pack .t.t
menu .t.m
.t.m add command -label First -command {puts "first..."}
.t.m add command -label Second -command {puts "second..."}
.t.m add command -label Third -command {tk_messageBox -message "third..."}
set bindCmd [bind Table <ButtonRelease-1>]
append cmd "if {\[info exists menuOpen\]} \{"
append cmd $bindCmd
append cmd "\}"
puts "new bind cmd for Table's ButtonRelease-1 = $cmd"
bind Table <ButtonRelease-1> $cmd
bind .t.t <Control-Button-1> {
   set menuOpen 1
   tk_popup .t.m %X %Y
   unset menuOpen
   break
}