* util.tcl (find_iwidgets_library): Use the directories that were
actually searched in the error message.
+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>
}
} 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"
}
}