This is the mail archive of the
insight@sources.redhat.com
mailing list for the Insight project.
[RFA] patch to find_iwidgets_library()
- To: insight at sources dot redhat dot com
- Subject: [RFA] patch to find_iwidgets_library()
- From: "Martin M. Hunt" <hunt at redhat dot com>
- Date: Wed, 18 Jul 2001 22:27:30 -0700
- Organization: Red Hat Inc
The patch fixes the common problem when someone checks out sources without
-P. Insight then incorrectly finds the iwidgets2 directory instead of the
iwidgets3.
2001-07-18 Martin M. Hunt <hunt@redhat.com>
* library/util.tcl (find_iwidgets_library): Look
for iwidgets3* so we don't accidently find iwidgets2.x.
Index: library/util.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/util.tcl,v
retrieving revision 1.7
diff -u -p -r1.7 util.tcl
--- util.tcl 2001/06/11 23:08:05 1.7
+++ util.tcl 2001/07/19 05:23:27
@@ -237,7 +237,7 @@ proc find_iwidgets_library {} {
set iwidgetsSrcDir [glob -nocomplain [file join \
[file dirname [file dirname $::tcl_library]] \
- itcl iwidgets*]]
+ itcl iwidgets3*]]
# Canonicalize the executable's directory name. It turns out that on
Solaris,
# info nameofexecutable returns /foo/bar/real_dir/./gdb when gdb is
launched from
@@ -258,7 +258,7 @@ proc find_iwidgets_library {} {
set iwidgetsBuildDir [glob -nocomplain [file join \
[file dirname $exec_name] \
- itcl iwidgets*]]
+ itcl iwidgets3*]]
set initFile [file join [lindex $iwidgetsBuildDir 0] \
unix iwidgets.tcl]
@@ -267,7 +267,7 @@ proc find_iwidgets_library {} {
# Check in "normal" installed place: "../../share/iwidgets*"
set iwidgetsBuildDir [glob -nocomplain [file join \
[file dirname [file dirname $exec_name]] \
- share iwidgets*]]
+ share iwidgets3*]]
set initFile [file join [lindex $iwidgetsBuildDir 0] iwidgets.tcl]
}
`Ý@