Deutsch English Français Italiano |
<vt184l$bcn7$1@dont-email.me> View for Bookmarking (what is this?) Look up another Usenet article |
Path: ...!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail From: Manfred Stelzhammer <manfred@antispam.at> Newsgroups: comp.lang.tcl Subject: Re: bind Date: Mon, 7 Apr 2025 21:13:25 +0200 Organization: A noiseless patient Spider Lines: 65 Message-ID: <vt184l$bcn7$1@dont-email.me> References: <vt0vqv$77mg$1@dont-email.me> <vt118c$347u7$4@dont-email.me> <vt121i$77mg$2@dont-email.me> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Injection-Date: Mon, 07 Apr 2025 21:13:25 +0200 (CEST) Injection-Info: dont-email.me; posting-host="992311e4ad5a14ca53a9e27904dbd7d9"; logging-data="373479"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+ViShW1XWmUjunwClz2MRo0AlhpSwJ8Dg=" User-Agent: Mozilla Thunderbird Cancel-Lock: sha1:eEt3syqkqFwJsCenJ83hjqSc07U= In-Reply-To: <vt121i$77mg$2@dont-email.me> Content-Language: en-US Bytes: 2184 Hi Now I found the solution: I added a "focus .top.f". Now it works like expected. proc tuwas {K W} { puts "$K : $W" if {$W ne ".top.f"} { if {$K eq "b1"} { event generate .top.f <Button-1> } if {$K eq "Down"} { focus .top.f event generate .top.f <KeyPress-$K> } } } regards Manfred Am 07.04.25 um 19:29 schrieb Manfred Stelzhammer: > Thanks > > I changed the script: > > ## > proc tuwas {cmd W} { > puts "$cmd : $W" > > if {$W ne ".top.f"} { > if {$cmd eq "b1"} {event generate .top.f <Button-1> } > if {$cmd eq "down"} { > event generate .top.f <KeyPress-Down> > break > > } > > } > > } > ## > > But it doesn't change anything. > > > reagards > > Manfred > > Am 07.04.25 um 19:15 schrieb Harald Oehlmann: >> Consider to use "break" as last command of your binding script. >> This avoids to call any following binding scripts. >