From 48da249c544e0129893b0f687c3323de37b98755 Mon Sep 17 00:00:00 2001 From: fnasser Date: Mon, 23 Oct 2000 21:46:06 +0000 Subject: [PATCH] 2000-10-23 Fernando Nasser * util.tcl (find_iwidgets_library): Use the directories that were actually searched in the error message. --- gdb/gdbtk/library/ChangeLog | 5 +++++ gdb/gdbtk/library/util.tcl | 6 ++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/gdb/gdbtk/library/ChangeLog b/gdb/gdbtk/library/ChangeLog index 4eb8ec0339..d15d583ec2 100644 --- a/gdb/gdbtk/library/ChangeLog +++ b/gdb/gdbtk/library/ChangeLog @@ -1,3 +1,8 @@ +2000-10-23 Fernando Nasser + + * util.tcl (find_iwidgets_library): Use the directories that were + actually searched in the error message. + 2000-10-13 Fernando Nasser With Steven Johnson diff --git a/gdb/gdbtk/library/util.tcl b/gdb/gdbtk/library/util.tcl index 97c9b277e2..5d32e040d7 100644 --- 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" } } -- 2.11.0