BWidget-1.4.1/demo/demo.tcl says:
| cd [file dirname [info script]]
| variable DEMODIR [pwd]
| ..
| lappend ::auto_path [file dirname $DEMODIR]
I think you could use the line:
lappend auto_path [file join [file dirname [info script]] tcltk/BWidget]
If I am wrong or doing something wrong, please let me know.
--
MA Dunzi <tadalunch@s5.xrea.com>