2002-12-03 Martin M. Hunt <hunt@redhat.com>

	* library/pane.tcl: auto_mkindex cannot rebuild
	tclIndex because it does not recognize the namespace
	import in main.tcl.  To get it to work again, rename the
	following:
		body -> itcl::body
		configbody -> itcl::configbody
		class -> itcl::class
	* library/panedwindow.tcl: Ditto.

	* library/tclIndex: Regenerated.

	* library/pkgIndex.tcl: Regenerated.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 8a71599..2547efb 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,18 @@
+2002-12-03  Martin M. Hunt  <hunt@redhat.com>
+
+       * library/pane.tcl: auto_mkindex cannot rebuild
+       tclIndex because it does not recognize the namespace
+       import in main.tcl.  To get it to work again, rename the
+       following:
+               body -> itcl::body
+               configbody -> itcl::configbody
+               class -> itcl::class
+       * library/panedwindow.tcl: Ditto.
+
+       * library/tclIndex: Regenerated.
+
+       * library/pkgIndex.tcl: Regenerated.
+
 2002-11-26  Martin M. Hunt  <hunt@redhat.com>
 
        * Makefile.in: Remove Tix references.

diff --git a/libgui/library/pane.tcl b/libgui/library/pane.tcl
index 1cdaa35..5a0422e 100644 (file)
--- a/libgui/library/pane.tcl
+++ b/libgui/library/pane.tcl
@@ -43,7 +43,7 @@ itk::usual Pane {
 # ------------------------------------------------------------------
 #                               PANE
 # ------------------------------------------------------------------
-class cyg::Pane {
+itcl::class cyg::Pane {
   inherit itk::Widget
   
   constructor {args} {}
@@ -66,7 +66,7 @@ proc ::cyg::pane {pathName args} {
 # ------------------------------------------------------------------
 #                        CONSTRUCTOR
 # ------------------------------------------------------------------
-body cyg::Pane::constructor {args} {
+itcl::body cyg::Pane::constructor {args} {
   # 
   # Create the pane childsite.
   #
@@ -95,7 +95,7 @@ body cyg::Pane::constructor {args} {
 #
 # Specifies the minimum size that the pane may reach.
 # ------------------------------------------------------------------
-configbody cyg::Pane::minimum {
+itcl::configbody cyg::Pane::minimum {
   set pixels [winfo pixels $itk_component(hull) $itk_option(-minimum)]
   set $itk_option(-minimum) $pixels
 }
@@ -105,7 +105,7 @@ configbody cyg::Pane::minimum {
 #
 # Specifies the maximum size that the pane may reach.
 # ------------------------------------------------------------------
-configbody cyg::Pane::maximum {
+itcl::configbody cyg::Pane::maximum {
   set pixels [winfo pixels $itk_component(hull) $itk_option(-maximum)]
   set $itk_option(-maximum) $pixels
 }
@@ -116,7 +116,7 @@ configbody cyg::Pane::maximum {
 # Specifies the border distance between the pane and pane contents.
 # This is done by setting the borderwidth of the pane to the margin.
 # ------------------------------------------------------------------
-configbody cyg::Pane::margin {
+itcl::configbody cyg::Pane::margin {
   set pixels [winfo pixels $itk_component(hull) $itk_option(-margin)]
   set itk_option(-margin) $pixels
   $itk_component(childsite) configure -borderwidth $itk_option(-margin)
@@ -131,6 +131,6 @@ configbody cyg::Pane::margin {
 #
 # Return the pane child site path name.
 # ------------------------------------------------------------------
-body cyg::Pane::childSite {} {
+itcl::body cyg::Pane::childSite {} {
   return $itk_component(childsite)
 }

diff --git a/libgui/library/panedwindow.tcl b/libgui/library/panedwindow.tcl
index 7e724ed..c35030c 100644 (file)
--- a/libgui/library/panedwindow.tcl
+++ b/libgui/library/panedwindow.tcl
@@ -19,7 +19,7 @@ itk::usual PanedWindow {
 # ------------------------------------------------------------------
 #                            PANEDWINDOW
 # ------------------------------------------------------------------
-class cyg::PanedWindow {
+itcl::class cyg::PanedWindow {
   inherit itk::Widget
 
   constructor {args} {}
@@ -102,7 +102,7 @@ option add *PanedWindow.height 10 widgetDefault
 # ------------------------------------------------------------------
 #                        CONSTRUCTOR
 # ------------------------------------------------------------------
-body cyg::PanedWindow::constructor {args} {
+itcl::body cyg::PanedWindow::constructor {args} {
   itk_option add hull.width hull.height
 
   pack propagate $itk_component(hull) no
@@ -124,7 +124,7 @@ body cyg::PanedWindow::constructor {args} {
 # Specifies the orientation of the sashes.  Once the paned window
 # has been mapped, set the sash bindings and place the panes.
 # ------------------------------------------------------------------
-configbody cyg::PanedWindow::orient {
+itcl::configbody cyg::PanedWindow::orient {
   #puts "orient $_initialized"
   if {$_initialized} {
     set orient $itk_option(-orient)
@@ -150,7 +150,7 @@ configbody cyg::PanedWindow::orient {
 #
 # Specifies the width of the sash.
 # ------------------------------------------------------------------
-configbody cyg::PanedWindow::sashwidth {
+itcl::configbody cyg::PanedWindow::sashwidth {
   set pixels [winfo pixels $itk_component(hull) $itk_option(-sashwidth)]
   set itk_option(-sashwidth) $pixels
   
@@ -172,7 +172,7 @@ configbody cyg::PanedWindow::sashwidth {
 #
 # Specifies the color of the sash.
 # ------------------------------------------------------------------
-configbody cyg::PanedWindow::sashcolor {
+itcl::configbody cyg::PanedWindow::sashcolor {
   if {$_initialized} {
     for {set i 1} {$i < [llength $_panes]} {incr i} {
       $itk_component(sash$i) configure -background $itk_option(-sashcolor)
@@ -191,7 +191,7 @@ configbody cyg::PanedWindow::sashcolor {
 # requested tag, numerical index, or keyword "end".  Returns the pane's 
 # numerical index if found, otherwise error.
 # ------------------------------------------------------------------    
-body cyg::PanedWindow::index {index} {
+itcl::body cyg::PanedWindow::index {index} {
   if {[llength $_panes] > 0} {
     if {[regexp {(^[0-9]+$)} $index]} {
       if {$index < [llength $_panes]} {
@@ -220,7 +220,7 @@ body cyg::PanedWindow::index {index} {
 # without an index return a list of all the child site panes.  The 
 # list is ordered from the near side (left/top).
 # ------------------------------------------------------------------
-body cyg::PanedWindow::childsite {args} {
+itcl::body cyg::PanedWindow::childsite {args} {
   #puts "childsite $args ($_initialized)"
   
   if {[llength $args] == 0} {
@@ -244,7 +244,7 @@ body cyg::PanedWindow::childsite {args} {
 # pane constructor.  These include -margin, and -minimum.  The path 
 # of the pane is returned.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::add {tag args} {
+itcl::body cyg::PanedWindow::add {tag args} {
   itk_component add $tag {
     eval cyg::Pane $itk_interior.pane[incr _unique] $args
   } {
@@ -265,7 +265,7 @@ body cyg::PanedWindow::add {tag args} {
 # pane constructor.  These include -margin, -minimum.  The path of 
 # the pane is returned.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::insert {index tag args} {
+itcl::body cyg::PanedWindow::insert {index tag args} {
   itk_component add $tag {
     eval cyg::Pane $itk_interior.pane[incr _unique] $args
   } {
@@ -284,7 +284,7 @@ body cyg::PanedWindow::insert {index tag args} {
 #
 # Delete the specified pane.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::delete {index} {
+itcl::body cyg::PanedWindow::delete {index} {
   set index [index $index]
   set tag [lindex $_panes $index]
 
@@ -308,7 +308,7 @@ body cyg::PanedWindow::delete {index} {
 #
 # Remove the specified pane from the paned window. 
 # ------------------------------------------------------------------
-body cyg::PanedWindow::hide {index} {
+itcl::body cyg::PanedWindow::hide {index} {
   set index [index $index]
   set tag [lindex $_panes $index]
   
@@ -320,7 +320,7 @@ body cyg::PanedWindow::hide {index} {
   reset
 }
 
-body cyg::PanedWindow::replace {pane1 pane2} {
+itcl::body cyg::PanedWindow::replace {pane1 pane2} {
   set ind1 [lsearch -exact $_activePanes $pane1]
   if {$ind1 == -1} {
     error "$pane1 is not an active pane name."
@@ -338,7 +338,7 @@ body cyg::PanedWindow::replace {pane1 pane2} {
 #
 # Display the specified pane in the paned window.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::show {index} {
+itcl::body cyg::PanedWindow::show {index} {
   set index [index $index]
   set tag [lindex $_panes $index]
   
@@ -356,7 +356,7 @@ body cyg::PanedWindow::show {index} {
 # panes from the PanedWindow level.  The options may have any of the 
 # values accepted by the add method.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::paneconfigure {index args} {
+itcl::body cyg::PanedWindow::paneconfigure {index args} {
   set index [index $index]
   set tag [lindex $_panes $index]
   return [uplevel $itk_component($tag) configure $args]
@@ -367,7 +367,7 @@ body cyg::PanedWindow::paneconfigure {index args} {
 #
 # Redisplay the panes based on the default percentages of the panes.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::reset {} {
+itcl::body cyg::PanedWindow::reset {} {
   if {$_initialized && [llength $_panes]} {
     #puts RESET
     _setActivePanes
@@ -382,7 +382,7 @@ body cyg::PanedWindow::reset {} {
 #
 # Resets the active pane list.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_setActivePanes {} {
+itcl::body cyg::PanedWindow::_setActivePanes {} {
   set _prevActivePanes $_activePanes
   set _activePanes {}
   
@@ -399,7 +399,7 @@ body cyg::PanedWindow::_setActivePanes {} {
 # Performs operations necessary following a configure event.  This
 # includes placing the panes.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_eventHandler {width height} {
+itcl::body cyg::PanedWindow::_eventHandler {width height} {
   #puts "Event $width $height"
   set _width $width
   set _height $height
@@ -434,7 +434,7 @@ body cyg::PanedWindow::_eventHandler {width height} {
 #
 # _where($i) contains the relative position of the top of pane$i
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_resizeArray {} {
+itcl::body cyg::PanedWindow::_resizeArray {} {
   set numpanes 0
   set _rPixels 0
   set totalFrac 0.0
@@ -594,7 +594,7 @@ body cyg::PanedWindow::_resizeArray {} {
 # stored in protected variables for later access during the drag
 # handling routines.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_startDrag {num} {
+itcl::body cyg::PanedWindow::_startDrag {num} {
   #puts "startDrag $num"
   
   set _minsashmoved $num
@@ -608,7 +608,7 @@ body cyg::PanedWindow::_startDrag {num} {
 #
 # Ends the sash drag and drop operation.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_endDrag {where num} {
+itcl::body cyg::PanedWindow::_endDrag {where num} {
   #puts "endDrag $where $num"
 
   grab release $itk_component(sash$num)
@@ -625,7 +625,7 @@ body cyg::PanedWindow::_endDrag {where num} {
 #
 # Configure  action for sash.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_configDrag {where num} {
+itcl::body cyg::PanedWindow::_configDrag {where num} {
   set _sashloc($num) $where
 }
 
@@ -634,7 +634,7 @@ body cyg::PanedWindow::_configDrag {where num} {
 #
 # Motion action for sash.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_handleDrag {where num} {
+itcl::body cyg::PanedWindow::_handleDrag {where num} {
   #puts "handleDrag $where $num"
   _moveSash [expr $where + $_sashloc($num)] $num
   _placePanes [expr $_minsashmoved - 1] $_maxsashmoved
@@ -645,7 +645,7 @@ body cyg::PanedWindow::_handleDrag {where num} {
 #
 # Move the sash to the absolute pixel location
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_moveSash {where num {dir ""}} {
+itcl::body cyg::PanedWindow::_moveSash {where num {dir ""}} {
   #puts "moveSash $where $num"
   set _minsashmoved [expr ($_minsashmoved<$num)?$_minsashmoved:$num]
   set _maxsashmoved [expr ($_maxsashmoved>$num)?$_maxsashmoved:$num]
@@ -659,7 +659,7 @@ body cyg::PanedWindow::_moveSash {where num {dir ""}} {
 # Determines the new position for the sash.  Make sure the position does
 # not go past the minimum for the pane on each side of the sash.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_calcPos {where num {direction ""}} {
+itcl::body cyg::PanedWindow::_calcPos {where num {direction ""}} {
   set dir [expr $where - $_ploc($num)]
   #puts "calcPos $where $num $dir $direction"
   if {$dir == 0} { return }
@@ -742,7 +742,7 @@ body cyg::PanedWindow::_calcPos {where num {direction ""}} {
 #
 # Removes any previous sashes and creates new ones.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_makeSashes {} {
+itcl::body cyg::PanedWindow::_makeSashes {} {
   #
   # Remove any existing sashes.
   #
@@ -811,7 +811,7 @@ body cyg::PanedWindow::_makeSashes {} {
 #
 # Places the position of the sash
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_placeSash {i} {
+itcl::body cyg::PanedWindow::_placeSash {i} {
   if {[string compare $itk_option(-orient) "vertical"]} {
     place $itk_component(sash$i) -in $itk_component(hull) \
       -x 0 -relwidth 1 -rely $_where($i) -anchor w \
@@ -828,7 +828,7 @@ body cyg::PanedWindow::_placeSash {i} {
 #
 # Resets the panes of the window following movement of the sash.
 # ------------------------------------------------------------------
-body cyg::PanedWindow::_placePanes {{start 0} {end end} {forget 0}} {
+itcl::body cyg::PanedWindow::_placePanes {{start 0} {end end} {forget 0}} {
   #puts "placeplanes $start $end"
 
   if {!$_initialized} {

diff --git a/libgui/library/pkgIndex.tcl b/libgui/library/pkgIndex.tcl
index 322cfda..9193a88 100644 (file)
--- a/libgui/library/pkgIndex.tcl
+++ b/libgui/library/pkgIndex.tcl
@@ -8,4 +8,5 @@
 # script is sourced, the variable $dir must contain the
 # full path name of this file's directory.
 
-package ifneeded combobox 1.05 [list tclPkgSetup $dir combobox 1.05 {{combobox.tcl source ::combobox::combobox}}]
+package ifneeded combobox 1.05 [list source [file join $dir combobox.tcl]]
+package ifneeded debug 1.0 [list source [file join $dir debug.tcl]]

diff --git a/libgui/library/tclIndex b/libgui/library/tclIndex
index 812159c..f3ac40b 100644 (file)
--- a/libgui/library/tclIndex
+++ b/libgui/library/tclIndex
@@ -23,8 +23,23 @@ set auto_index(bind_widget_after_tag) [list source [file join $dir bindings.tcl]
 set auto_index(bind_widget_after_class) [list source [file join $dir bindings.tcl]]
 set auto_index(bind_plain_key) [list source [file join $dir bindings.tcl]]
 set auto_index(set_scroll_region) [list source [file join $dir canvas.tcl]]
-set auto_index(Checkframe) [list source [file join $dir cframe.tcl]]
 set auto_index(center_window) [list source [file join $dir center.tcl]]
+set auto_index(Checkframe) [list source [file join $dir cframe.tcl]]
+set auto_index(::combobox::combobox) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::build) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::setBindings) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::handleEvent) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::destroyHandler) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::find) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::select) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::computeGeometry) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::doInternalWidgetCommand) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::widgetProc) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::configure) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::vTrace) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::setValue) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::getBoolean) [list source [file join $dir combobox.tcl]]
+set auto_index(::combobox::widgetName) [list source [file join $dir combobox.tcl]]
 set auto_index(::debug::logfile) [list source [file join $dir debug.tcl]]
 set auto_index(::debug::trace_var) [list source [file join $dir debug.tcl]]
 set auto_index(::debug::remove_trace) [list source [file join $dir debug.tcl]]
@@ -64,8 +79,6 @@ set auto_index(::debug::methodExit) [list source [file join $dir debug.tcl]]
 set auto_index(defarray) [list source [file join $dir def.tcl]]
 set auto_index(defvar) [list source [file join $dir def.tcl]]
 set auto_index(defconst) [list source [file join $dir def.tcl]]
-set auto_index(send_mail) [list source [file join $dir internet.tcl]]
-set auto_index(open_url) [list source [file join $dir internet.tcl]]
 set auto_index(FONT_track_change) [list source [file join $dir font.tcl]]
 set auto_index(define_font) [list source [file join $dir font.tcl]]
 set auto_index(gensym) [list source [file join $dir gensym.tcl]]
@@ -74,6 +87,8 @@ set auto_index(add_hook) [list source [file join $dir hooks.tcl]]
 set auto_index(remove_hook) [list source [file join $dir hooks.tcl]]
 set auto_index(define_hook) [list source [file join $dir hooks.tcl]]
 set auto_index(run_hooks) [list source [file join $dir hooks.tcl]]
+set auto_index(send_mail) [list source [file join $dir internet.tcl]]
+set auto_index(open_url) [list source [file join $dir internet.tcl]]
 set auto_index(Labelledframe) [list source [file join $dir lframe.tcl]]
 set auto_index(lvarpush) [list source [file join $dir list.tcl]]
 set auto_index(lvarpop) [list source [file join $dir list.tcl]]
@@ -86,6 +101,41 @@ set auto_index(standard_look_and_feel) [list source [file join $dir looknfeel.tc
 set auto_index(compute_menu_width) [list source [file join $dir menu.tcl]]
 set auto_index(monochrome_p) [list source [file join $dir mono.tcl]]
 set auto_index(Multibox) [list source [file join $dir multibox.tcl]]
+set auto_index(::cyg::Pane) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::pane) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::Pane::constructor) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::Pane::minimum) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::Pane::maximum) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::Pane::margin) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::Pane::childSite) [list source [file join $dir pane.tcl]]
+set auto_index(::cyg::PanedWindow) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::panedwindow) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::constructor) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::orient) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::sashwidth) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::sashcolor) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::index) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::childsite) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::add) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::insert) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::delete) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::hide) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::replace) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::show) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::paneconfigure) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::reset) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_setActivePanes) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_eventHandler) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_resizeArray) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_startDrag) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_endDrag) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_configDrag) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_handleDrag) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_moveSash) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_calcPos) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_makeSashes) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_placeSash) [list source [file join $dir panedwindow.tcl]]
+set auto_index(::cyg::PanedWindow::_placePanes) [list source [file join $dir panedwindow.tcl]]
 set auto_index(parse_args) [list source [file join $dir parse_args.tcl]]
 set auto_index(canonical_path) [list source [file join $dir path.tcl]]
 set auto_index(GHOST_helper) [list source [file join $dir postghost.tcl]]
@@ -112,7 +162,6 @@ set auto_index(PRINT_text) [list source [file join $dir print.tcl]]
 set auto_index(PRINT_page) [list source [file join $dir print.tcl]]
 set auto_index(Sendpr) [list source [file join $dir sendpr.tcl]]
 set auto_index(::Sendpr::_restore) [list source [file join $dir sendpr.tcl]]
-set auto_index(bind_for_toplevel_only) [list source [file join $dir topbind.tcl]]
 set auto_index(TOOLBAR_button_enter) [list source [file join $dir toolbar.tcl]]
 set auto_index(TOOLBAR_button_leave) [list source [file join $dir toolbar.tcl]]
 set auto_index(TOOLBAR_button_down) [list source [file join $dir toolbar.tcl]]
@@ -120,61 +169,12 @@ set auto_index(TOOLBAR_button_up) [list source [file join $dir toolbar.tcl]]
 set auto_index(TOOLBAR_maybe_init) [list source [file join $dir toolbar.tcl]]
 set auto_index(TOOLBAR_command) [list source [file join $dir toolbar.tcl]]
 set auto_index(standard_toolbar) [list source [file join $dir toolbar.tcl]]
+set auto_index(bind_for_toplevel_only) [list source [file join $dir topbind.tcl]]
 set auto_index(extract_label_info) [list source [file join $dir ulset.tcl]]
+set auto_index(Validated_entry) [list source [file join $dir ventry.tcl]]
 set auto_index(Widgetframe) [list source [file join $dir wframe.tcl]]
 set auto_index(WINGRAB_disable) [list source [file join $dir wingrab.tcl]]
 set auto_index(WINGRAB_disable_except) [list source [file join $dir wingrab.tcl]]
 set auto_index(WINGRAB_enable) [list source [file join $dir wingrab.tcl]]
 set auto_index(WINGRAB_enable_all) [list source [file join $dir wingrab.tcl]]
 set auto_index(ide_grab_support) [list source [file join $dir wingrab.tcl]]
-set auto_index(Validated_entry) [list source [file join $dir ventry.tcl]]
-set auto_index(::combobox::combobox) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::build) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::setBindings) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::handleEvent) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::destroyHandler) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::find) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::select) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::computeGeometry) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::doInternalWidgetCommand) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::widgetProc) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::configure) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::vTrace) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::setValue) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::getBoolean) [list source [file join $dir combobox.tcl]]
-set auto_index(::combobox::widgetName) [list source [file join $dir combobox.tcl]]
-set auto_index(::cyg::Pane) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::pane) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::Pane::constructor) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::Pane::minimum) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::Pane::maximum) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::Pane::margin) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::Pane::childSite) [list source [file join $dir pane.tcl]]
-set auto_index(::cyg::PanedWindow) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::panedwindow) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::constructor) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::orient) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::sashwidth) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::sashcolor) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::index) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::childsite) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::add) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::insert) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::delete) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::hide) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::replace) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::show) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::paneconfigure) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::reset) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_setActivePanes) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_eventHandler) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_resizeArray) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_startDrag) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_endDrag) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_configDrag) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_handleDrag) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_moveSash) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_caclPos) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_makeSashes) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_placeSash) [list source [file join $dir panedwindow.tcl]]
-set auto_index(::cyg::PanedWindow::_placePanes) [list source [file join $dir panedwindow.tcl]]