class Dataab {
inherit ::itk::Widget
constructor { args } {
itk_component add pw_v {
iwidgets::panedwindow $itk_interior.pw \
-orient vertical
} {
}
itk_component add label {
label $itk_interior.l1 -text "Data "
}
## From here we will test to add a new button, and then to see what happen
itk_component add buttontest {
button $itk_interior.hutch -text "Start Pro" -command "exec pro" -width 8
}
$itk_component(pw_v) add left -minimum 50 -margin 2
$itk_component(pw_v) add right -minimum 50 -margin 2
set leftSite [$itk_component(pw_v) childsite 0]
set rightSite [$itk_component(pw_v) childsite 1]
$itk_component(pw_v) fraction 50 50
pack $itk_component(label)
pack $itk_component(pw_v) -side top -expand 1 -fill both
pack $itk_component(buttontest)
eval itk_initialize $args
return
}
}
Dataab
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:TickleSharp
下一篇:bash example
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论