Dataab

weixin_30925411

于 2011-05-30 14:33:00 发布

阅读量57

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/greencolor/archive/2011/05/30/2063288.html

本文详细介绍了如何利用itk库中的组件来构建一个具有交互性的用户界面，包括添加面板、标签和按钮等元素，并展示了如何通过设置属性来实现界面布局和功能。

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
}
}