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