摘要：
option add *TextDisplay.wrap none widgetDefaultoption add *TextDisplay.textBackground ivory widgetDefaultoption add *TextDisplay.width 40 widgetDefaultoption add *TextDisplay.height 10 widgetDefaultclass TextDisplay { inherit itk::Widget constructor {args} { itk_component add text { text $itk_interi 阅读全文
posted @ 2011-06-12 11:32
greencolor
阅读(210)
评论(0)
推荐(0)
摘要：
option add *MessageInfo.title "Notice" widgetDefaultclass MessageInfo { inherit itk::Toplevel constructor {args} { itk_component add dismiss { button $itk_interior.dismiss -text "Dismiss" -command "destroy $itk_component(hull)" } pack $itk_component(dismiss) -side botto 阅读全文
posted @ 2011-06-12 11:31
greencolor
阅读(250)
评论(0)
推荐(0)
浙公网安备 33010602011771号