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

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