This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[patch] libgui package cleanup
- From: "Martin M. Hunt" <hunt at redhat dot com>
- To: "insight at sources dot redhat dot com" <insight at sources dot redhat dot com>
- Date: 03 Dec 2002 14:23:37 -0800
- Subject: [patch] libgui package cleanup
Needed for future work.
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.
Index: panedwindow.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/panedwindow.tcl,v
retrieving revision 1.4
diff -p -r1.4 panedwindow.tcl
*** panedwindow.tcl 3 Jul 2002 20:32:39 -0000 1.4
--- panedwindow.tcl 3 Dec 2002 22:02:11 -0000
*************** itk::usual PanedWindow {
*** 19,25 ****
# ------------------------------------------------------------------
# PANEDWINDOW
# ------------------------------------------------------------------
! class cyg::PanedWindow {
inherit itk::Widget
constructor {args} {}
--- 19,25 ----
# ------------------------------------------------------------------
# PANEDWINDOW
# ------------------------------------------------------------------
! itcl::class cyg::PanedWindow {
inherit itk::Widget
constructor {args} {}
*************** option add *PanedWindow.height 10 widget
*** 102,108 ****
# ------------------------------------------------------------------
# CONSTRUCTOR
# ------------------------------------------------------------------
! body cyg::PanedWindow::constructor {args} {
itk_option add hull.width hull.height
pack propagate $itk_component(hull) no
--- 102,108 ----
# ------------------------------------------------------------------
# CONSTRUCTOR
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::constructor {args} {
itk_option add hull.width hull.height
pack propagate $itk_component(hull) no
*************** body cyg::PanedWindow::constructor {args
*** 124,130 ****
# 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 {
#puts "orient $_initialized"
if {$_initialized} {
set orient $itk_option(-orient)
--- 124,130 ----
# Specifies the orientation of the sashes. Once the paned window
# has been mapped, set the sash bindings and place the panes.
# ------------------------------------------------------------------
! itcl::configbody cyg::PanedWindow::orient {
#puts "orient $_initialized"
if {$_initialized} {
set orient $itk_option(-orient)
*************** configbody cyg::PanedWindow::orient {
*** 150,156 ****
#
# Specifies the width of the sash.
# ------------------------------------------------------------------
! configbody cyg::PanedWindow::sashwidth {
set pixels [winfo pixels $itk_component(hull) $itk_option(-sashwidth)]
set itk_option(-sashwidth) $pixels
--- 150,156 ----
#
# Specifies the width of the sash.
# ------------------------------------------------------------------
! itcl::configbody cyg::PanedWindow::sashwidth {
set pixels [winfo pixels $itk_component(hull) $itk_option(-sashwidth)]
set itk_option(-sashwidth) $pixels
*************** configbody cyg::PanedWindow::sashwidth {
*** 172,178 ****
#
# Specifies the color of the sash.
# ------------------------------------------------------------------
! configbody cyg::PanedWindow::sashcolor {
if {$_initialized} {
for {set i 1} {$i < [llength $_panes]} {incr i} {
$itk_component(sash$i) configure -background $itk_option(-sashcolor)
--- 172,178 ----
#
# Specifies the color of the sash.
# ------------------------------------------------------------------
! 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)
*************** configbody cyg::PanedWindow::sashcolor {
*** 191,197 ****
# requested tag, numerical index, or keyword "end". Returns the pane's
# numerical index if found, otherwise error.
# ------------------------------------------------------------------
! body cyg::PanedWindow::index {index} {
if {[llength $_panes] > 0} {
if {[regexp {(^[0-9]+$)} $index]} {
if {$index < [llength $_panes]} {
--- 191,197 ----
# requested tag, numerical index, or keyword "end". Returns the pane's
# numerical index if found, otherwise error.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::index {index} {
if {[llength $_panes] > 0} {
if {[regexp {(^[0-9]+$)} $index]} {
if {$index < [llength $_panes]} {
*************** body cyg::PanedWindow::index {index} {
*** 220,226 ****
# 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} {
#puts "childsite $args ($_initialized)"
if {[llength $args] == 0} {
--- 220,226 ----
# without an index return a list of all the child site panes. The
# list is ordered from the near side (left/top).
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::childsite {args} {
#puts "childsite $args ($_initialized)"
if {[llength $args] == 0} {
*************** body cyg::PanedWindow::childsite {args}
*** 244,250 ****
# pane constructor. These include -margin, and -minimum. The path
# of the pane is returned.
# ------------------------------------------------------------------
! body cyg::PanedWindow::add {tag args} {
itk_component add $tag {
eval cyg::Pane $itk_interior.pane[incr _unique] $args
} {
--- 244,250 ----
# pane constructor. These include -margin, and -minimum. The path
# of the pane is returned.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::add {tag args} {
itk_component add $tag {
eval cyg::Pane $itk_interior.pane[incr _unique] $args
} {
*************** body cyg::PanedWindow::add {tag args} {
*** 265,271 ****
# pane constructor. These include -margin, -minimum. The path of
# the pane is returned.
# ------------------------------------------------------------------
! body cyg::PanedWindow::insert {index tag args} {
itk_component add $tag {
eval cyg::Pane $itk_interior.pane[incr _unique] $args
} {
--- 265,271 ----
# pane constructor. These include -margin, -minimum. The path of
# the pane is returned.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::insert {index tag args} {
itk_component add $tag {
eval cyg::Pane $itk_interior.pane[incr _unique] $args
} {
*************** body cyg::PanedWindow::insert {index tag
*** 284,290 ****
#
# Delete the specified pane.
# ------------------------------------------------------------------
! body cyg::PanedWindow::delete {index} {
set index [index $index]
set tag [lindex $_panes $index]
--- 284,290 ----
#
# Delete the specified pane.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::delete {index} {
set index [index $index]
set tag [lindex $_panes $index]
*************** body cyg::PanedWindow::delete {index} {
*** 308,314 ****
#
# Remove the specified pane from the paned window.
# ------------------------------------------------------------------
! body cyg::PanedWindow::hide {index} {
set index [index $index]
set tag [lindex $_panes $index]
--- 308,314 ----
#
# Remove the specified pane from the paned window.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::hide {index} {
set index [index $index]
set tag [lindex $_panes $index]
*************** body cyg::PanedWindow::hide {index} {
*** 320,326 ****
reset
}
! body cyg::PanedWindow::replace {pane1 pane2} {
set ind1 [lsearch -exact $_activePanes $pane1]
if {$ind1 == -1} {
error "$pane1 is not an active pane name."
--- 320,326 ----
reset
}
! itcl::body cyg::PanedWindow::replace {pane1 pane2} {
set ind1 [lsearch -exact $_activePanes $pane1]
if {$ind1 == -1} {
error "$pane1 is not an active pane name."
*************** body cyg::PanedWindow::replace {pane1 pa
*** 338,344 ****
#
# Display the specified pane in the paned window.
# ------------------------------------------------------------------
! body cyg::PanedWindow::show {index} {
set index [index $index]
set tag [lindex $_panes $index]
--- 338,344 ----
#
# Display the specified pane in the paned window.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::show {index} {
set index [index $index]
set tag [lindex $_panes $index]
*************** body cyg::PanedWindow::show {index} {
*** 356,362 ****
# panes from the PanedWindow level. The options may have any of the
# values accepted by the add method.
# ------------------------------------------------------------------
! body cyg::PanedWindow::paneconfigure {index args} {
set index [index $index]
set tag [lindex $_panes $index]
return [uplevel $itk_component($tag) configure $args]
--- 356,362 ----
# panes from the PanedWindow level. The options may have any of the
# values accepted by the add method.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::paneconfigure {index args} {
set index [index $index]
set tag [lindex $_panes $index]
return [uplevel $itk_component($tag) configure $args]
*************** body cyg::PanedWindow::paneconfigure {in
*** 367,373 ****
#
# Redisplay the panes based on the default percentages of the panes.
# ------------------------------------------------------------------
! body cyg::PanedWindow::reset {} {
if {$_initialized && [llength $_panes]} {
#puts RESET
_setActivePanes
--- 367,373 ----
#
# Redisplay the panes based on the default percentages of the panes.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::reset {} {
if {$_initialized && [llength $_panes]} {
#puts RESET
_setActivePanes
*************** body cyg::PanedWindow::reset {} {
*** 382,388 ****
#
# Resets the active pane list.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_setActivePanes {} {
set _prevActivePanes $_activePanes
set _activePanes {}
--- 382,388 ----
#
# Resets the active pane list.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_setActivePanes {} {
set _prevActivePanes $_activePanes
set _activePanes {}
*************** body cyg::PanedWindow::_setActivePanes {
*** 399,405 ****
# Performs operations necessary following a configure event. This
# includes placing the panes.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_eventHandler {width height} {
#puts "Event $width $height"
set _width $width
set _height $height
--- 399,405 ----
# Performs operations necessary following a configure event. This
# includes placing the panes.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_eventHandler {width height} {
#puts "Event $width $height"
set _width $width
set _height $height
*************** body cyg::PanedWindow::_eventHandler {wi
*** 434,440 ****
#
# _where($i) contains the relative position of the top of pane$i
# ------------------------------------------------------------------
! body cyg::PanedWindow::_resizeArray {} {
set numpanes 0
set _rPixels 0
set totalFrac 0.0
--- 434,440 ----
#
# _where($i) contains the relative position of the top of pane$i
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_resizeArray {} {
set numpanes 0
set _rPixels 0
set totalFrac 0.0
*************** body cyg::PanedWindow::_resizeArray {} {
*** 594,600 ****
# stored in protected variables for later access during the drag
# handling routines.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_startDrag {num} {
#puts "startDrag $num"
set _minsashmoved $num
--- 594,600 ----
# stored in protected variables for later access during the drag
# handling routines.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_startDrag {num} {
#puts "startDrag $num"
set _minsashmoved $num
*************** body cyg::PanedWindow::_startDrag {num}
*** 608,614 ****
#
# Ends the sash drag and drop operation.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_endDrag {where num} {
#puts "endDrag $where $num"
grab release $itk_component(sash$num)
--- 608,614 ----
#
# Ends the sash drag and drop operation.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_endDrag {where num} {
#puts "endDrag $where $num"
grab release $itk_component(sash$num)
*************** body cyg::PanedWindow::_endDrag {where n
*** 625,631 ****
#
# Configure action for sash.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_configDrag {where num} {
set _sashloc($num) $where
}
--- 625,631 ----
#
# Configure action for sash.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_configDrag {where num} {
set _sashloc($num) $where
}
*************** body cyg::PanedWindow::_configDrag {wher
*** 634,640 ****
#
# Motion action for sash.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_handleDrag {where num} {
#puts "handleDrag $where $num"
_moveSash [expr $where + $_sashloc($num)] $num
_placePanes [expr $_minsashmoved - 1] $_maxsashmoved
--- 634,640 ----
#
# Motion action for sash.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_handleDrag {where num} {
#puts "handleDrag $where $num"
_moveSash [expr $where + $_sashloc($num)] $num
_placePanes [expr $_minsashmoved - 1] $_maxsashmoved
*************** body cyg::PanedWindow::_handleDrag {wher
*** 645,651 ****
#
# Move the sash to the absolute pixel location
# ------------------------------------------------------------------
! 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]
--- 645,651 ----
#
# Move the sash to the absolute pixel location
# ------------------------------------------------------------------
! 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]
*************** body cyg::PanedWindow::_moveSash {where
*** 659,665 ****
# 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 ""}} {
set dir [expr $where - $_ploc($num)]
#puts "calcPos $where $num $dir $direction"
if {$dir == 0} { return }
--- 659,665 ----
# 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.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_calcPos {where num {direction ""}} {
set dir [expr $where - $_ploc($num)]
#puts "calcPos $where $num $dir $direction"
if {$dir == 0} { return }
*************** body cyg::PanedWindow::_calcPos {where n
*** 742,748 ****
#
# Removes any previous sashes and creates new ones.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_makeSashes {} {
#
# Remove any existing sashes.
#
--- 742,748 ----
#
# Removes any previous sashes and creates new ones.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_makeSashes {} {
#
# Remove any existing sashes.
#
*************** body cyg::PanedWindow::_makeSashes {} {
*** 811,817 ****
#
# Places the position of the sash
# ------------------------------------------------------------------
! 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 \
--- 811,817 ----
#
# Places the position of the sash
# ------------------------------------------------------------------
! 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 \
*************** body cyg::PanedWindow::_placeSash {i} {
*** 828,834 ****
#
# Resets the panes of the window following movement of the sash.
# ------------------------------------------------------------------
! body cyg::PanedWindow::_placePanes {{start 0} {end end} {forget 0}} {
#puts "placeplanes $start $end"
if {!$_initialized} {
--- 828,834 ----
#
# Resets the panes of the window following movement of the sash.
# ------------------------------------------------------------------
! itcl::body cyg::PanedWindow::_placePanes {{start 0} {end end} {forget 0}} {
#puts "placeplanes $start $end"
if {!$_initialized} {
Index: pane.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/pane.tcl,v
retrieving revision 1.2
diff -p -r1.2 pane.tcl
*** pane.tcl 8 Sep 2001 22:34:46 -0000 1.2
--- pane.tcl 3 Dec 2002 22:02:11 -0000
*************** itk::usual Pane {
*** 43,49 ****
# ------------------------------------------------------------------
# PANE
# ------------------------------------------------------------------
! class cyg::Pane {
inherit itk::Widget
constructor {args} {}
--- 43,49 ----
# ------------------------------------------------------------------
# PANE
# ------------------------------------------------------------------
! itcl::class cyg::Pane {
inherit itk::Widget
constructor {args} {}
*************** proc ::cyg::pane {pathName args} {
*** 66,72 ****
# ------------------------------------------------------------------
# CONSTRUCTOR
# ------------------------------------------------------------------
! body cyg::Pane::constructor {args} {
#
# Create the pane childsite.
#
--- 66,72 ----
# ------------------------------------------------------------------
# CONSTRUCTOR
# ------------------------------------------------------------------
! itcl::body cyg::Pane::constructor {args} {
#
# Create the pane childsite.
#
*************** body cyg::Pane::constructor {args} {
*** 95,101 ****
#
# Specifies the minimum size that the pane may reach.
# ------------------------------------------------------------------
! configbody cyg::Pane::minimum {
set pixels [winfo pixels $itk_component(hull) $itk_option(-minimum)]
set $itk_option(-minimum) $pixels
}
--- 95,101 ----
#
# Specifies the minimum size that the pane may reach.
# ------------------------------------------------------------------
! itcl::configbody cyg::Pane::minimum {
set pixels [winfo pixels $itk_component(hull) $itk_option(-minimum)]
set $itk_option(-minimum) $pixels
}
*************** configbody cyg::Pane::minimum {
*** 105,111 ****
#
# Specifies the maximum size that the pane may reach.
# ------------------------------------------------------------------
! configbody cyg::Pane::maximum {
set pixels [winfo pixels $itk_component(hull) $itk_option(-maximum)]
set $itk_option(-maximum) $pixels
}
--- 105,111 ----
#
# Specifies the maximum size that the pane may reach.
# ------------------------------------------------------------------
! itcl::configbody cyg::Pane::maximum {
set pixels [winfo pixels $itk_component(hull) $itk_option(-maximum)]
set $itk_option(-maximum) $pixels
}
*************** configbody cyg::Pane::maximum {
*** 116,122 ****
# 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 {
set pixels [winfo pixels $itk_component(hull) $itk_option(-margin)]
set itk_option(-margin) $pixels
$itk_component(childsite) configure -borderwidth $itk_option(-margin)
--- 116,122 ----
# Specifies the border distance between the pane and pane contents.
# This is done by setting the borderwidth of the pane to the 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)
*************** configbody cyg::Pane::margin {
*** 131,136 ****
#
# Return the pane child site path name.
# ------------------------------------------------------------------
! body cyg::Pane::childSite {} {
return $itk_component(childsite)
}
--- 131,136 ----
#
# Return the pane child site path name.
# ------------------------------------------------------------------
! itcl::body cyg::Pane::childSite {} {
return $itk_component(childsite)
}
Index: pkgIndex.tcl
===================================================================
RCS file: /cvs/src/src/libgui/library/pkgIndex.tcl,v
retrieving revision 1.2
diff -p -r1.2 pkgIndex.tcl
*** pkgIndex.tcl 8 Sep 2001 22:34:46 -0000 1.2
--- pkgIndex.tcl 3 Dec 2002 22:02:11 -0000
***************
*** 8,11 ****
# 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}}]
--- 8,12 ----
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
! package ifneeded combobox 1.05 [list source [file join $dir combobox.tcl]]
! package ifneeded debug 1.0 [list source [file join $dir debug.tcl]]
Index: tclIndex
===================================================================
RCS file: /cvs/src/src/libgui/library/tclIndex,v
retrieving revision 1.4
diff -p -r1.4 tclIndex
*** tclIndex 8 Sep 2001 22:34:46 -0000 1.4
--- tclIndex 3 Dec 2002 22:02:11 -0000
*************** set auto_index(bind_widget_after_tag) [l
*** 23,30 ****
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(::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]]
--- 23,45 ----
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(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]]
*************** set auto_index(::debug::methodExit) [lis
*** 64,71 ****
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]]
--- 79,84 ----
*************** set auto_index(add_hook) [list source [f
*** 74,79 ****
--- 87,94 ----
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]]
*************** set auto_index(standard_look_and_feel) [
*** 86,91 ****
--- 101,141 ----
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]]
*************** set auto_index(PRINT_text) [list source
*** 112,118 ****
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]]
--- 162,167 ----
*************** set auto_index(TOOLBAR_button_up) [list
*** 120,180 ****
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(extract_label_info) [list source [file join $dir ulset.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]]
--- 169,180 ----
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]]