Tk Source Code

Artifact ee1f1a3a50201d3fcb252597d906d79fa26b73fb:

Attachment "exttest.tcl" to ticket [797404ff] added by kennykb 2004-05-01 03:41:12.

---

grid [text .t -width 80 -height 25]
bind .t <Any-Key> { showKey Key %K %s %k }
bind .t <Any-KeyRelease> { showKey KeyRelease %K %s %k }
focus .t
proc showKey { action keysym state keycode } {

    set bit 1
    set string {}
    foreach name {
	Shift Lock Control Mod1 Mod2 Mod3 Mod4 Mod5
	B1 B2 B3 B4 B5 - - Any Meta Alt Extended
    } {
	if { $state & $bit } {
	    append string $name -
	}
	set bit [expr { $bit << 1 }]
    }
    append string $action - $keysym { } ( $keycode ) \n
    .t insert end $string
    .t see end
    return -code break
}