registerComponent announceExist

puts $itk_component(button)
    .pw.pane0.childsite.bluce.n.canvas.notebook.cs.page1.cs.h.hutch.c.control.entryring.start.b


registerComponent $itk_component(button)

  DCS::ComponentGateExtension::registerComponent { args } {
    foreach component $args {
        if {[lsearch $listOfComponents $component] < 0} {
            lappend listOfComponents $component
        }
    }
}


eval itk_initialize $args
announceExist

posted @ 2012-08-04 15:30  greencolor  阅读(161)  评论(0)  编辑  收藏  举报