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.
>