$itk_component(sessionmenu) add separator
$itk_component(sessionmenu) add -label "Add images..." \
-underline 4 \
-command [code $this addImages]
$itk_component(sessionmenu) add separator
转载于:https://www.cnblogs.com/greencolor/archive/2011/07/26/2116773.html