Strange tk wish issue with Mac OS X 10.5.6

[Frank Schima]

I'm seeing a strange error when I try to run wish - I checked and  
it's /opt/local/bin/wish8.4. Note that I'm running tk 8.4.19 in order  
to also run blt [1].

This error started when I updated to 10.5.6. Before that it has worked  
just fine. I've since reinstalled Xcode 3.1.2. and Xquartz 2.3.1. I've  
also reinstalled my tk 8.4.19 port (many times). Any ideas? I have  
checked and /opt/local/lib/tk8.4/tk/tcl does exist.

{{{
$ wish
Application initialization failed: Can't find a usable tk.tcl in the  
following directories:
     /opt/local/lib/tcl8.4/tk8.4 /opt/local/lib/tcl8.4/tk8.4/Resources/ 
Scripts /opt/local/lib/tk8.4 /opt/local/lib/tk8.4/Resources/Scripts / 
opt/lib/tk8.4 /opt/local/library /opt/library /opt/tk8.4.19/library / 
tk8.4.19/library

/opt/local/lib/tk8.4/tk.tcl: no event type or button # or keysym
no event type or button # or keysym
     while executing
"bind Listbox <MouseWheel> {
         %W yview scroll [expr {- (%D / 120) * 4}] units
     }"
     invoked from within
"if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq  
"aqua"} {
     bind Listbox <MouseWheel> {
         %W yview scroll [expr {- (%D)}] uni..."
     (file "/opt/local/lib/tk8.4/listbox.tcl" line 181)
     invoked from within
"source /opt/local/lib/tk8.4/listbox.tcl"
     (in namespace eval "::" script line 1)
     invoked from within
"namespace eval :: [list source [file join $::tk_library $file.tcl]]"
     (procedure "SourceLibFile" line 2)
     invoked from within
"SourceLibFile listbox"
     (in namespace eval "::tk" script line 4)
     invoked from within
"namespace eval ::tk {
	SourceLibFile button
	SourceLibFile entry
	SourceLibFile listbox
	SourceLibFile menu
	SourceLibFile panedwindow
	SourceLibFile ..."
     invoked from within
"if {$::tk_library ne ""} {
     if {$tcl_platform(platform) eq "macintosh"} {
	proc ::tk::SourceLibFile {file} {
	    if {[catch {
		namespace eval :: ..."
     (file "/opt/local/lib/tk8.4/tk.tcl" line 407)
     invoked from within
"source /opt/local/lib/tk8.4/tk.tcl"
     ("uplevel" body line 1)
     invoked from within
"uplevel #0 [list source $file]"


This probably means that tk wasn't installed properly.
}}}


[1] <http://trac.macports.org/ticket/14488>


Cheers!
Frank