Tcl/Tk: problem s <KeyPress>

[Eduard Omasta]

  Dobry den.

  Ospravedlnujem sa za off topic, ale v comp.lang.tcl
na to nikto nereagoval, tak skusim stastie tu.
  Nedari sa mi prinutit okno typu `canvas', aby reagovalo
na udalosti typu <KeyPress>; pritom udalosti typu <ButtonPress>
obsluhuje dobre. Konkretne program

   #!/usr/bin/wish
   wm geometry . 300x300
   canvas .c -bg blue -height 200
   pack .c -side top
   
   bind . a {puts ". : a"}
   bind . <3> {puts ". : <3>"}
   
   bind .c b {puts ".c : b"}
   bind .c <3> {puts ".c : <3>"} 

reaguje nasledovne:

   udalost         okno          vypise

    <3>             .           . : <3> 
    <3>             .c          .c : <3>
                                . : <3>
     a          . alebo .c      . : a
     b          . alebo .c       nic

  Preco pri stlaceni klavesy `b' v okne `.c'
nedojde k vypisu `.c : b'? (Ak prehliadam
nejaku trivialitu, tak sa ospravedlnujem.)

(Pre uplnost: pouzivam Tcl/Tk ver. 8.0.4-29
pod RH 6.0.)
                            Eduard Omasta