1. Forum
  2. Usenet
  3. COMP.LANG.TCL

  • bind

    From Manfred Stelzhammer@21:1/5 to All on Mon Apr 7 18:51:42 2025
    Hi

    I have a small script.

    #### script start

    toplevel .top
    pack [frame .top.f]
    pack [entry .top.f.en]
    bind .top <Button-1> "tuwas b1 %W"
    bind .top <Down> "tuwas down %W"

    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 <Down> }
    }

    }

    #### script end

    If I press the mouse-button on .top.f.en I get two outputs:
    b1 : .top.f.en
    b1 : .top.f

    That's was I expected.

    If I on .top.f.en and I press <Down> I get many (501) outputs:
    down : .top.f.en
    down : .top.f.en
    down : .top.f.en

    I get an error: "error: too many nested evaluations (infinite loop?)"


    I expected I get:
    down : .top.f.en
    down : .top.f

    If I press <Down> on .top.f the proc tuwas should generate a event on
    .top.f not on .top.f.en

    Why this different behavior?
    What do I wrong?

    reagards

    Manfred




    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Manfred Stelzhammer@21:1/5 to All on Mon Apr 7 19:29:22 2025
    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.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Harald Oehlmann@21:1/5 to All on Mon Apr 7 19:15:55 2025
    Am 07.04.2025 um 18:51 schrieb Manfred Stelzhammer:
    Hi

    I have a small script.

    #### script start

    toplevel .top
    pack [frame .top.f]
    pack [entry .top.f.en]
    bind .top <Button-1> "tuwas b1 %W"
    bind .top <Down> "tuwas down %W"

    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 <Down> }
        }

    }

    #### script end

    If I press the mouse-button on .top.f.en I get two outputs:
        b1 : .top.f.en
        b1 : .top.f

    That's was I expected.

    If I on .top.f.en and I press <Down> I get many (501) outputs:
        down : .top.f.en
        down : .top.f.en
        down : .top.f.en

    I get an error: "error: too many nested evaluations (infinite loop?)"


    I expected I get:
        down : .top.f.en
        down : .top.f

    If I press <Down> on .top.f the proc tuwas should generate a event
    on .top.f not on .top.f.en

    Why this different behavior?
    What do I wrong?

    reagards

    Manfred




    Consider to use "break" as last command of your binding script.
    This avoids to call any following binding scripts.

    Harald

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Manfred Stelzhammer@21:1/5 to All on Mon Apr 7 21:13:25 2025
    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.


    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)