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

posted @ 2011-07-26 03:03  greencolor  阅读(145)  评论(0)  编辑  收藏  举报