itk_component add

 itk_component add menu {
        menu $itk_interior.menu \
#             -label "aa" \   wrong
             -tearoff 0 \
             -borderwidth 1
        }

itk_component  a class, add a subclass menu

itk_component do not have option "lable"

=========

 $itk_component(menu) add cascade \
     -label "Session" \
     -menu $itk_component(sessionmenu)

$itk_component(menu)      a menu class which has label option

原文地址:https://www.cnblogs.com/greencolor/p/2116767.html