accelerator

set newSessionAccelerator "Control-N"  

  $itk_component(sessionmenu) add command \
 -label New \
 -underline 0 \
 -accelerator $newSessionAccelerator \
 -command [code $this newSession]