From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 21384 invoked by alias); 3 Dec 2002 22:22:12 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 21375 invoked from network); 3 Dec 2002 22:22:10 -0000 Received: from unknown (HELO mx1.redhat.com) (66.187.233.31) by sources.redhat.com with SMTP; 3 Dec 2002 22:22:10 -0000 Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254]) by mx1.redhat.com (8.11.6/8.11.6) with ESMTP id gB3LvBP01146 for ; Tue, 3 Dec 2002 16:57:11 -0500 Received: from pobox.corp.redhat.com (pobox.corp.redhat.com [172.16.52.156]) by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gB3MM9D13534 for ; Tue, 3 Dec 2002 17:22:09 -0500 Received: from dragon (romulus-int.sfbay.redhat.com [172.16.27.46]) by pobox.corp.redhat.com (8.11.6/8.11.6) with ESMTP id gB3MM7925473 for ; Tue, 3 Dec 2002 17:22:07 -0500 Subject: [patch] libgui package cleanup From: "Martin M. Hunt" To: "insight@sources.redhat.com" Content-Type: multipart/mixed; boundary="=-0L3mDZU3ygOWGmz7Z40D" Date: Tue, 03 Dec 2002 14:22:00 -0000 Message-Id: <1038954218.1186.57.camel@Dragon> Mime-Version: 1.0 X-SW-Source: 2002-q4/txt/msg00148.txt.bz2 --=-0L3mDZU3ygOWGmz7Z40D Content-Type: text/plain Content-Transfer-Encoding: 7bit Content-length: 434 Needed for future work. 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. --=-0L3mDZU3ygOWGmz7Z40D Content-Disposition: attachment; filename=p Content-Transfer-Encoding: quoted-printable Content-Type: text/x-patch; name=p; charset=UTF-8 Content-length: 39053 Index: panedwindow.tcl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =20=20 constructor {args} {} --- 19,25 ---- # ------------------------------------------------------------------ # PANEDWINDOW # ------------------------------------------------------------------ ! itcl::class cyg::PanedWindow { inherit itk::Widget =20=20 constructor {args} {} *************** option add *PanedWindow.height 10 widget *** 102,108 **** # ------------------------------------------------------------------ # CONSTRUCTOR # ------------------------------------------------------------------ ! body cyg::PanedWindow::constructor {args} { itk_option add hull.width hull.height =20=20 pack propagate $itk_component(hull) no --- 102,108 ---- # ------------------------------------------------------------------ # CONSTRUCTOR # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::constructor {args} { itk_option add hull.width hull.height =20=20 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 =20=20=20=20 --- 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 =20=20=20=20 *************** 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=20 # numerical index if found, otherwise error. # ------------------------------------------------------------------=20= =20=20=20 ! 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=20 # numerical index if found, otherwise error. # ------------------------------------------------------------------=20= =20=20=20 ! 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=20 # list is ordered from the near side (left/top). # ------------------------------------------------------------------ ! body cyg::PanedWindow::childsite {args} { #puts "childsite $args ($_initialized)" =20=20=20=20 if {[llength $args] =3D=3D 0} { --- 220,226 ---- # without an index return a list of all the child site panes. The=20 # list is ordered from the near side (left/top). # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::childsite {args} { #puts "childsite $args ($_initialized)" =20=20=20=20 if {[llength $args] =3D=3D 0} { *************** body cyg::PanedWindow::childsite {args}=20 *** 244,250 **** # pane constructor. These include -margin, and -minimum. The path=20 # 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=20 # 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=20 # 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=20 # 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] =20=20 --- 284,290 ---- # # Delete the specified pane. # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::delete {index} { set index [index $index] set tag [lindex $_panes $index] =20=20 *************** body cyg::PanedWindow::delete {index} { *** 308,314 **** # # Remove the specified pane from the paned window.=20 # ------------------------------------------------------------------ ! body cyg::PanedWindow::hide {index} { set index [index $index] set tag [lindex $_panes $index] =20=20=20=20 --- 308,314 ---- # # Remove the specified pane from the paned window.=20 # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::hide {index} { set index [index $index] set tag [lindex $_panes $index] =20=20=20=20 *************** body cyg::PanedWindow::hide {index} { *** 320,326 **** reset } =20=20 ! body cyg::PanedWindow::replace {pane1 pane2} { set ind1 [lsearch -exact $_activePanes $pane1] if {$ind1 =3D=3D -1} { error "$pane1 is not an active pane name." --- 320,326 ---- reset } =20=20 ! itcl::body cyg::PanedWindow::replace {pane1 pane2} { set ind1 [lsearch -exact $_activePanes $pane1] if {$ind1 =3D=3D -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] =20=20=20=20 --- 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] =20=20=20=20 *************** body cyg::PanedWindow::show {index} { *** 356,362 **** # panes from the PanedWindow level. The options may have any of the=20 # 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=20 # 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 {} =20=20=20=20 --- 382,388 ---- # # Resets the active pane list. # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::_setActivePanes {} { set _prevActivePanes $_activePanes set _activePanes {} =20=20=20=20 *************** 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" =20=20=20=20 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" =20=20=20=20 set _minsashmoved $num *************** body cyg::PanedWindow::_startDrag {num}=20 *** 608,614 **** # # Ends the sash drag and drop operation. # ------------------------------------------------------------------ ! body cyg::PanedWindow::_endDrag {where num} { #puts "endDrag $where $num" =20=20 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" =20=20 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 } =20=20 --- 625,631 ---- # # Configure action for sash. # ------------------------------------------------------------------ ! itcl::body cyg::PanedWindow::_configDrag {where num} { set _sashloc($num) $where } =20=20 *************** 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=20 *** 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 =3D=3D 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 =3D=3D 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" =20=20 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" =20=20 if {!$_initialized} { Index: pane.tcl =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 =20=20=20=20 constructor {args} {} --- 43,49 ---- # ------------------------------------------------------------------ # PANE # ------------------------------------------------------------------ ! itcl::class cyg::Pane { inherit itk::Widget =20=20=20=20 constructor {args} {} *************** proc ::cyg::pane {pathName args} { *** 66,72 **** # ------------------------------------------------------------------ # CONSTRUCTOR # ------------------------------------------------------------------ ! body cyg::Pane::constructor {args} { #=20 # Create the pane childsite. # --- 66,72 ---- # ------------------------------------------------------------------ # CONSTRUCTOR # ------------------------------------------------------------------ ! itcl::body cyg::Pane::constructor {args} { #=20 # 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 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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. =20=20 ! package ifneeded combobox 1.05 [list tclPkgSetup $dir combobox 1.05 {{com= bobox.tcl source ::combobox::combobox}}] --- 8,12 ---- # script is sourced, the variable $dir must contain the # full path name of this file's directory. =20=20 ! 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 =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 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 bind= ings.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 bind= ings.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 combobo= x.tcl]] + set auto_index(::combobox::build) [list source [file join $dir combobox.t= cl]] + set auto_index(::combobox::setBindings) [list source [file join $dir comb= obox.tcl]] + set auto_index(::combobox::handleEvent) [list source [file join $dir comb= obox.tcl]] + set auto_index(::combobox::destroyHandler) [list source [file join $dir c= ombobox.tcl]] + set auto_index(::combobox::find) [list source [file join $dir combobox.tc= l]] + 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 jo= in $dir combobox.tcl]] + set auto_index(::combobox::widgetProc) [list source [file join $dir combo= box.tcl]] + set auto_index(::combobox::configure) [list source [file join $dir combob= ox.tcl]] + set auto_index(::combobox::vTrace) [list source [file join $dir combobox.= tcl]] + set auto_index(::combobox::setValue) [list source [file join $dir combobo= x.tcl]] + set auto_index(::combobox::getBoolean) [list source [file join $dir combo= box.tcl]] + set auto_index(::combobox::widgetName) [list source [file join $dir combo= box.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 pan= e.tcl]] + set auto_index(::cyg::Pane::minimum) [list source [file join $dir pane.tc= l]] + set auto_index(::cyg::Pane::maximum) [list source [file join $dir pane.tc= l]] + 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 panedwind= ow.tcl]] + set auto_index(::cyg::panedwindow) [list source [file join $dir panedwind= ow.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 p= anedwindow.tcl]] + set auto_index(::cyg::PanedWindow::sashwidth) [list source [file join $di= r panedwindow.tcl]] + set auto_index(::cyg::PanedWindow::sashcolor) [list source [file join $di= r panedwindow.tcl]] + set auto_index(::cyg::PanedWindow::index) [list source [file join $dir pa= nedwindow.tcl]] + set auto_index(::cyg::PanedWindow::childsite) [list source [file join $di= r panedwindow.tcl]] + set auto_index(::cyg::PanedWindow::add) [list source [file join $dir pane= dwindow.tcl]] + set auto_index(::cyg::PanedWindow::insert) [list source [file join $dir p= anedwindow.tcl]] + set auto_index(::cyg::PanedWindow::delete) [list source [file join $dir p= anedwindow.tcl]] + set auto_index(::cyg::PanedWindow::hide) [list source [file join $dir pan= edwindow.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 pan= edwindow.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 pa= nedwindow.tcl]] + set auto_index(::cyg::PanedWindow::_setActivePanes) [list source [file jo= in $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 $d= ir 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 $di= r 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 $d= ir 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=20 *** 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.tc= l]] - set auto_index(bind_for_toplevel_only) [list source [file join $dir topbi= nd.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=20 *** 120,180 **** set auto_index(TOOLBAR_maybe_init) [list source [file join $dir toolbar.t= cl]] 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 wingr= ab.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.t= cl]] 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 combobo= x.tcl]] - set auto_index(::combobox::build) [list source [file join $dir combobox.t= cl]] - set auto_index(::combobox::setBindings) [list source [file join $dir comb= obox.tcl]] - set auto_index(::combobox::handleEvent) [list source [file join $dir comb= obox.tcl]] - set auto_index(::combobox::destroyHandler) [list source [file join $dir c= ombobox.tcl]] - set auto_index(::combobox::find) [list source [file join $dir combobox.tc= l]] - 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 jo= in $dir combobox.tcl]] - set auto_index(::combobox::widgetProc) [list source [file join $dir combo= box.tcl]] - set auto_index(::combobox::configure) [list source [file join $dir combob= ox.tcl]] - set auto_index(::combobox::vTrace) [list source [file join $dir combobox.= tcl]] - set auto_index(::combobox::setValue) [list source [file join $dir combobo= x.tcl]] - set auto_index(::combobox::getBoolean) [list source [file join $dir combo= box.tcl]] - set auto_index(::combobox::widgetName) [list source [file join $dir combo= box.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 pan= e.tcl]] - set auto_index(::cyg::Pane::minimum) [list source [file join $dir pane.tc= l]] - set auto_index(::cyg::Pane::maximum) [list source [file join $dir pane.tc= l]] - 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 panedwind= ow.tcl]] - set auto_index(::cyg::panedwindow) [list source [file join $dir panedwind= ow.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 p= anedwindow.tcl]] - set auto_index(::cyg::PanedWindow::sashwidth) [list source [file join $di= r panedwindow.tcl]] - set auto_index(::cyg::PanedWindow::sashcolor) [list source [file join $di= r panedwindow.tcl]] - set auto_index(::cyg::PanedWindow::index) [list source [file join $dir pa= nedwindow.tcl]] - set auto_index(::cyg::PanedWindow::childsite) [list source [file join $di= r panedwindow.tcl]] - set auto_index(::cyg::PanedWindow::add) [list source [file join $dir pane= dwindow.tcl]] - set auto_index(::cyg::PanedWindow::insert) [list source [file join $dir p= anedwindow.tcl]] - set auto_index(::cyg::PanedWindow::delete) [list source [file join $dir p= anedwindow.tcl]] - set auto_index(::cyg::PanedWindow::hide) [list source [file join $dir pan= edwindow.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 pan= edwindow.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 pa= nedwindow.tcl]] - set auto_index(::cyg::PanedWindow::_setActivePanes) [list source [file jo= in $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 $d= ir 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 $di= r 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 $d= ir 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.t= cl]] 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 topbi= nd.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 wingr= ab.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.t= cl]] set auto_index(ide_grab_support) [list source [file join $dir wingrab.tcl= ]] --=-0L3mDZU3ygOWGmz7Z40D--