Path: ...!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Helmut Giese <hgiese@ratiosoft.com>
Newsgroups: comp.lang.tcl
Subject: How to simulate a 'shift click'
Date: Sun, 25 Aug 2024 17:55:07 +0200
Organization: ratiosoft
Lines: 38
Message-ID: <9bkmcjtdlvvv4o5vpvq2hobtmt3413okto@4ax.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 25 Aug 2024 17:55:07 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="64491b887b473344a7ffe3e212eaabca";
	logging-data="2061137"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1+U1NXbxiArX9ixydGq2Blz"
Cancel-Lock: sha1:EyVBpPZe7KkhNVopGBl2QT068jQ=
X-Newsreader: Forte Free Agent 1.93/32.576 English (American)
Bytes: 2064

Hello out there,
I can simulate a simple click but fail at a 'shift click'.
Below is what I tried:
	---
package require Tk
foreach ch [winfo children "."] {destroy $ch}

# create a test app
set btn [ttk::button .btn -text "Press me"]
pack $btn
# add some bindings
bind $btn <Button-1> {puts "Simple click"}
bind $btn <Shift-Button-1> {puts "Shift click"}

focus $btn
set x [winfo x $btn] ; set y [winfo y $btn]
# place the mouse
event generate "." <Motion>  -x [incr x 50] -y [incr y 10] -warp 1

event generate $btn <ButtonPress-1>
after 100 ; event generate $btn <ButtonRelease-1>

# now a 'shift click'
if 1 {
event generate $btn <KeyPress> -keysym Shift_L
} else {
event generate $btn <Key-Shift_L>   
}
event generate $btn <ButtonPress-1>
after 100 ; event generate $btn <ButtonRelease-1>
event generate $btn <KeyRelease> -keysym Shift_L
	---
All I ever get is twice 'Simple click' - no matter whether I use
<Key-Shift_L>  or the longer form, wether I generate the keypress for
$btn or  ".". I am out of ideas what to try next.
Any help will be greatly appreciated
Helmut.
PS: This is on Windows with Tcl 8.6.10