From ca7d098e0e1ce1ee8fe60f1e693085d811756a52 Mon Sep 17 00:00:00 2001 From: hunt Date: Tue, 3 Dec 2002 22:03:15 +0000 Subject: [PATCH] 2002-12-03 Martin M. Hunt * 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. --- libgui/ChangeLog | 15 ++++++ libgui/library/pane.tcl | 12 ++--- libgui/library/panedwindow.tcl | 54 ++++++++++---------- libgui/library/pkgIndex.tcl | 3 +- libgui/library/tclIndex | 110 ++++++++++++++++++++--------------------- 5 files changed, 105 insertions(+), 89 deletions(-) diff --git a/libgui/ChangeLog b/libgui/ChangeLog index 8a71599c6f..2547efb771 100644 --- a/libgui/ChangeLog +++ b/libgui/ChangeLog @@ -1,3 +1,18 @@ +2002-12-03 Martin M. Hunt + + * 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 * Makefile.in: Remove Tix references. diff --git a/libgui/library/pane.tcl b/libgui/library/pane.tcl index 1cdaa359e7..5a0422e1d3 100644 --- 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 7e724ed10a..c35030c352 100644 --- 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 322cfda212..9193a88448 100644 --- 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 812159caa4..f3ac40b552 100644 --- 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]] -- 2.11.0