2011年6月12日
itk widget
摘要： 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 阅读(199) 评论(0) 推荐(0) 编辑
Toplevel
摘要： 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 阅读(240) 评论(0) 推荐(0) 编辑