Tk - bind по коду клавиши

>некрасиво совершенно

proc ctl_key_callback {W k} {
    global ckey
    if {[array names ckey $W,$k]!=""} {
        eval $ckey($W,$k)
    }
}

proc ctl_key_bind {path kcode cmd} {
    global ckey
    bind $path <Control-Key> {ctl_key_callback %W %k}
    set ckey($path,$kcode) $cmd
}

ctl_key_bind . 83 {puts 83}
ctl_key_bind . 65 {puts 65}

Так красиво?

Сочетание Ctrl+буква -- это код от "\x01" (Ctrl+A) по "\x1A" (Ctrl+Z).
Этот код не зависит от регистра и раскладки. Я не знаю, можно ли его
повесить напрямую на bind. У меня сделано так:

bind .path <KeyPress> {kbd_ctl %A}

proc kbd_ctl {sym} {

  #Ctrl+D.
  if {$sym == "\x04"} {do something}

  #Прочие сочетания кнопок обрабатываются аналогично.
  }