>
>I am not sure if Tk can handle Shift then a couple of clicks instead of
>shift+click, shift+click, ... maybe handle the Shift down event, then
>the clicks, then the Shift up event.
>
>Here too, I guess I would have to track the shift key down event first
>before the menu item, then track the shift key up event.
Some time ago I gave up on trying to bind together events based on
qualifier keys. For some reason I could never get that right. So, I
track them like below, and I just test for the global value of
either $controlkey or $altkey in an if statement. It lets me
deal with combos easily as well, just if...elseif...else... type
of thing inside a single bound event on, say a mouse click. Seems
to work pretty well for me. The shift key should work the same.
eric
In my main proc:
global controlkey
set controlkey 0
bind all <Key-Control_L> {
global controlkey
set controlkey 1
}
bind all <KeyRelease-Control_L> {
global controlkey
set controlkey 0
}
global altkey
set altkey 0
bind all <Key-Alt_L> {
global altkey
set altkey 1
}
bind all <KeyRelease-Alt_L> {
global altkey
set altkey 0
}
_______________________________________________
vtcl-user mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/vtcl-user
