Jun 29, 2009

wish - tcl/tk on Build 117 does not work correct

On OpenSolaris - Build 117, the tcl/tk wish installation does not work.
The program secpanel ( a GUI for ssh management ) does not work.
Starting wish on a commandline issues the following error:

bash-3.2$ wish
Application initialization failed: Can't find a usable tk.tcl in the following directories:
/usr/lib/tcl8.4/tk8.4 /usr/lib/tk8.4 /lib/tk8.4 /usr/library /library /tk8.4.18/library

/usr/lib/tk8.4/tk.tcl: no event type or button # or keysym
no event type or button # or keysym
while executing
"bind Listbox {
%W yview scroll [expr {- (%D / 120) * 4}] units
invoked from within
"if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} {
bind Listbox {
%W yview scroll [expr {- (%D)}] uni..."
(file "/usr/lib/tk8.4/listbox.tcl" line 181)
invoked from within
"source /usr/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 "/usr/lib/tk8.4/tk.tcl" line 407)
invoked from within
"source /usr/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.

Something with the installation during the upgrade must have failed.