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]