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