2000-10-23 Fernando Nasser <fnasser@cygnus.com>

        * util.tcl (find_iwidgets_library): Use the directories that were
        actually searched in the error message.

diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog
index 4eb8ec0..d15d583 100644 (file)
--- a/gdb/gdbtk/library/ChangeLog
+++ b/gdb/gdbtk/library/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-23  Fernando Nasser  <fnasser@cygnus.com>
+
+       * util.tcl (find_iwidgets_library): Use the directories that were
+       actually searched in the error message.
+
 2000-10-13  Fernando Nasser  <fnasser@cygnus.com>
 
        With Steven Johnson <sbjohnson@ozemail.com.au>

diff --git a/gdb/gdbtk/library/util.tcl b/gdb/gdbtk/library/util.tcl
index 97c9b27..5d32e04 100644 (file)
--- a/gdb/gdbtk/library/util.tcl
+++ b/gdb/gdbtk/library/util.tcl
@@ -282,10 +282,8 @@ proc find_iwidgets_library {} {
       }
     } else {
       append errMsg "\nCould not find in-place versions of the Iwidgets files\n"
-      append errMsg "Looked at: [file join [file dirname\
-                     [file dirname $::tcl_library]] itcl iwidgets*]\n"
-      append errMsg "and: [file join [file dirname \
-                    [info nameofexecutable]] itcl iwidgets*]\n"
+      append errMsg "Looked at: $iwidgetsSrcDir\n"
+      append errMsg "and: $iwidgetsBuildDir\n"
     }
 
   }