set option in class

class MessageInfo 

  itk_component add message {
            label $itk_interior.mesg -width 20
        } {
        usual
        keep -text
        }

MessageInfo .m -text "aaa"    // initial set message text as "aaa"

posted @ 2011-06-17 22:42  greencolor  阅读(131)  评论(0编辑  收藏  举报