Re: insight/339: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5

Re: insight/339: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5

[kseitz]

Synopsis: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5

Responsible-Changed-From-To: unassigned->kseitz
Responsible-Changed-By: kseitz
Responsible-Changed-When: Thu Jul  2 15:12:47 2009
Responsible-Changed-Why:
    mine
State-Changed-From-To: open->closed
State-Changed-By: kseitz
State-Changed-When: Thu Jul  2 15:12:47 2009
State-Changed-Why:
    duplicate of 340

http://sourceware.org/cgi-bin/gnatsweb.pl?cmd=view%20audit-trail&database=insight&pr=339

insight/339: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5

[nir_h84]

>Number:         339
>Category:       insight
>Synopsis:       looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Wed Mar 11 15:43:02 UTC 2009
>Closed-Date:
>Last-Modified:
>Originator:     nir_h84@hotmail.com
>Release:        6.8
>Organization:
>Environment:
Linux Slackware
Linux Obunto
>Description:
I compiled insight under slackware 12.2,
when I try to run it, it looks for tcl/tk 8.4 and fail to run.

k_Init failed: Can't find a usable tk.tcl in the following directories: 
    /usr/local/share/tk8.4 /usr/local/lib/tk8.4 /usr/lib/tk8.4 /usr/local/library /usr/library /usr/tk8.4.1/library /tk8.4.1/library

/usr/local/share/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               
}"                                                                
    (file "/usr/local/share/tk8.4/listbox.tcl" line 182)          
    invoked from within                                           
"source /usr/local/share/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 {[string equal $tcl_platform(platform) "macintosh"]} {        
        proc ::tk::SourceLibFile {file} {                            
            if {[catch {                                             
                namesp..."                                           
    (file "/usr/local/share/tk8.4/tk.tcl" line 393)                  
    invoked from within                                              
"source /usr/local/share/tk8.4/tk.tcl"                               
    ("uplevel" body line 1)                                          
    invoked from within
"uplevel #0 [list source $file]"
/usr/local/lib/tk8.4/tk.tcl: can't import command "mc": already exists
can't import command "mc": already exists
    while executing
"namespace import ::msgcat::mc"
    (in namespace eval "::tk::msgcat" script line 21)
    invoked from within
"namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [catch {package require msgcat}]} {
            # The msgcat package..."
    (in namespace eval "::tk" script line 3)
    invoked from within
"namespace eval ::tk {
    # Set up the msgcat commands
    namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [catch {p..."
    (file "/usr/local/lib/tk8.4/tk.tcl" line 20)
    invoked from within
"source /usr/local/lib/tk8.4/tk.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list source $file]"
/usr/lib/tk8.4/tk.tcl: can't import command "mc": already exists
can't import command "mc": already exists
    while executing
"namespace import ::msgcat::mc"
    (in namespace eval "::tk::msgcat" script line 21)
    invoked from within
"namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [catch {package require msgcat}]} {
            # The msgcat package..."
    (in namespace eval "::tk" script line 3)
    invoked from within
"namespace eval ::tk {
    # Set up the msgcat commands
    namespace eval msgcat {
        namespace export mc mcmax
        if {[interp issafe] || [catch {p..."
    (file "/usr/lib/tk8.4/tk.tcl" line 20)
    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.
>How-To-Repeat:
just install it on every OS that as tcl/tk 8.5 and the bug will be seen.
(I also googled it and found Obunto bug report on it)
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted: