Posted to tcl by tomk at Tue Mar 10 00:24:29 GMT 2009view pretty

# Configure event bindings (0=underline off)
${mbar} configure -bind {
    exit    2 Cntl+Q  Control-Key-q
    cut     3 Cntl+X  Control-Key-x
    copy    1 Cntl+C  Control-Key-c
    paste   1 Cntl+V  Control-Key-v
    apple   1 Cntl+A  Control-Key-a
    about   1
    debug   1 Cntl+D
} 
puts [${mbar} cget -bind]