Anonymous

grid [entry .e]
focus .e
event generate .e <<KeyPress-a>> -warp 1
lmap k [split Hello\ World ""] {lmap t Press\ Release {event generate .e <Key$t-$k>}}

#lmap k [split Hello\ World ""] {event generate . <Key> -keysym $k}

#lmap k [split Hello\ World ""] {event generate . <$k>}


set L {}

bind . <KeyPress> {
lappend L KeyPress-%K 
}

bind . <KeyRelease> {
lappend L Release-%K 
}

#tk_messageBox -message $L