Posted to tcl by tomk at Tue Mar 10 00:24:29 GMT 2009view raw
- # 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]