From pyeatt@cs.ttu.edu  Wed Feb  4 18:53:00 2009
From: pyeatt@cs.ttu.edu (Dr. Larry D. Pyeatt)
Date: Wed, 04 Feb 2009 18:53:00 -0000
Subject: insight/334: Insight fails to run on system with tcl8.5
Message-ID: <20090204185301.6182.qmail@sourceware.org>

The following reply was made to PR insight/334; it has been noted by GNATS.

From: "Dr. Larry D. Pyeatt" <pyeatt@cs.ttu.edu>
To: insight-gnats@sources.redhat.com
Cc:  
Subject: Re: insight/334: Insight fails to run on system with tcl8.5
Date: Wed, 04 Feb 2009 12:49:09 -0600

 Same problem on Debian.  Version 6.7.1 works, but 6.8 and the
 current developer sources don't.
 
 -- 
 Larry D. Pyeatt, PhD.
 Associate Chair, Computer Science
 Texas Tech University                 "We cannot avoid POMDPs, however,
 larry.pyeatt@ttu.edu                   because the real world is one."
 http://www.cs.ttu.edu/~pyeatt             -Russell and Norvig, 2nd ed.


From kseitz@sources.redhat.com  Wed Feb  4 19:11:00 2009
From: kseitz@sources.redhat.com (kseitz@sources.redhat.com)
Date: Wed, 04 Feb 2009 19:11:00 -0000
Subject: insight/334: Insight fails to run on system with tcl8.5
Message-ID: <20090204191129.17093.qmail@sourceware.org>

Synopsis: Insight fails to run on system with tcl8.5

Responsible-Changed-From-To: unassigned->kseitz
Responsible-Changed-By: kseitz
Responsible-Changed-When: Wed Feb  4 19:11:29 2009
Responsible-Changed-Why:
    mine
State-Changed-From-To: open->analyzed
State-Changed-By: kseitz
State-Changed-When: Wed Feb  4 19:11:29 2009
State-Changed-Why:
    Any chance that someone can look into this a bit? I have two fedora 10 boxes with tcl 8.5 on them, and it runs on all of them. My guess is that there is something wrong with the set_lib_paths_script in gdbtk_init (in generic/gdbtk.c), but this is only a guess since I cannot reproduce this here...

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


From shihhuangti@163.com  Mon Feb 16 09:33:00 2009
From: shihhuangti@163.com (shihhuangti@163.com)
Date: Mon, 16 Feb 2009 09:33:00 -0000
Subject: insight/335: I can't input any character into almost all the windows, such as the watch windows.
Message-ID: <20090216093136.5467.qmail@sourceware.org>


>Number:         335
>Category:       insight
>Synopsis:       I can't input any character into almost all the windows, such as the watch windows.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon Feb 16 09:33:02 UTC 2009
>Closed-Date:
>Last-Modified:
>Originator:     shihhuangti@163.com
>Release:        6.8
>Organization:
>Environment:
SUSE X64 EServer 10 SP2
>Description:
I compile the gdb insight from the source(ver 6.8), e\verything is OK, but that I can't input any character into almost all the windows, such as the watch windows, only the console windows functions normally.
>How-To-Repeat:
the synopsis occurs every time when the insight is started.
>Fix:

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


From nir_h84@hotmail.com  Wed Mar 11 15:33:00 2009
From: nir_h84@hotmail.com (nir_h84@hotmail.com)
Date: Wed, 11 Mar 2009 15:33:00 -0000
Subject: insight/336: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
Message-ID: <20090311153115.18139.qmail@sourceware.org>


>Number:         336
>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:33:01 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:


From nir_h84@hotmail.com  Wed Mar 11 15:43:00 2009
From: nir_h84@hotmail.com (nir_h84@hotmail.com)
Date: Wed, 11 Mar 2009 15:43:00 -0000
Subject: insight/339: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
Message-ID: <20090311153344.22922.qmail@sourceware.org>


>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:


From nir_h84@hotmail.com  Wed Mar 11 15:43:00 2009
From: nir_h84@hotmail.com (nir_h84@hotmail.com)
Date: Wed, 11 Mar 2009 15:43:00 -0000
Subject: insight/338: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
Message-ID: <20090311153329.22877.qmail@sourceware.org>


>Number:         338
>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:


From nir_h84@hotmail.com  Wed Mar 11 15:43:00 2009
From: nir_h84@hotmail.com (nir_h84@hotmail.com)
Date: Wed, 11 Mar 2009 15:43:00 -0000
Subject: insight/337: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
Message-ID: <20090311153255.22635.qmail@sourceware.org>


>Number:         337
>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:01 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:


From nir_h84@hotmail.com  Wed Mar 11 15:43:00 2009
From: nir_h84@hotmail.com (nir_h84@hotmail.com)
Date: Wed, 11 Mar 2009 15:43:00 -0000
Subject: insight/340: looking for tcl/tk ver 8.4 altough compiling in OS with tcl/tk 8.5
Message-ID: <20090311153402.22985.qmail@sourceware.org>


>Number:         340
>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:03 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: