Bugzilla Bug 232945

DEPEND=">=dev-lang/tcl-8.4
        >=dev-lang/tk-8.4
        >=dev-tcltk/tls-1.4.1
        media-libs/jpeg
        media-libs/libpng
        >=dev-tcltk/snack-2.2.10"

I was using ebuilds for tcl/tk 8.5.0, and then upgraded amsn from 0.97_rc1 to
0.97.1.  amsn would crash with the following error:

$ amsn
Error in startup script: extra characters after close-brace
    while executing
"set command [list  $self  {*}$Snit_optionInfo(configure-$option)  $option]
            "
    (procedure "snit::RT.CacheConfigureCommand" line 36)
    invoked from within
"snit::RT.CacheConfigureCommand  $type $selfns $win $self $option"
    (procedure "::snit::RT.method.configurelist" line 7)
    invoked from within
"::snit::RT.method.configurelist $type $selfns $win $self $args"
    (procedure "::snit::RT.method.configure" line 4)
    invoked from within
"$self configure -width $arrow1width"
    (procedure "::pixmapscrollbar::Snit_constructor" line 154)
    invoked from within
"::pixmapscrollbar::Snit_constructor ::pixmapscrollbar
::pixmapscrollbar::Snit_inst1 .plugins_log.ys .plugins_log.ys -command
{.plugins_log.info yview}"
    ("eval" body line 1)
    invoked from within
"eval [linsert $arglist 0  ${type}::Snit_constructor $type $selfns $instance
$instance]"
    (procedure "RT.ConstructInstance" line 9)
    invoked from within
"RT.ConstructInstance $type $selfns $name $args"
    (procedure "::snit::RT.widget.typemethod.create" line 53)
    invoked from within
"scrollbar $window.ys -command "$window.info yview""
    (procedure "::pluginslog::draw" line 12)
    invoked from within
"::pluginslog::draw"
    invoked from within
"if { $initialize_amsn == 1 } {
     ::pluginslog::draw
}"
    (file "pluginslog.tcl" line 210)
    invoked from within
"source pluginslog.tcl"
    ("uplevel" body line 27)
    invoked from within
"uplevel \#0 {

        # amsncore.tcl is already loaded but we'll re-source it here in case we
manually do reload_files
        source amsncore.tcl
        source audio.tc..."
    (procedure "reload_files" line 2)
    invoked from within
"reload_files"
    (file "/usr/bin/amsn" line 272)

Upgrading tcl/tk to ~ 8.5.1, then rebuilding amsn and its other deps solves the
issue.  Occurs with both amsn ~ 0.97 and ~ 0.97.1.

Reproducible: Always

Steps to Reproduce:
1.Have tcl/tk 8.5.0 installed.
2.Upgrade/Install amsn 0.97 / 0.97.1
3.Try to run it

Actual Results:  
Big tcl/tk error

Expected Results:  
amsn should start

same problem with amsn-0.97.2 :

dante@iris:~ % amsn
Application initialization failed: Can't find a usable tk.tcl in the following
directories: 
    /usr/lib64/tcl8.4/tk8.4 /usr/lib64/tk8.4 /usr/lib/tk8.4 /lib/tk8.4
/usr/library /library /tk8.4.18/library

/usr/lib64/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 "/usr/lib64/tk8.4/listbox.tcl" line 181)
    invoked from within
"source /usr/lib64/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/lib64/tk8.4/tk.tcl" line 407)
    invoked from within
"source /usr/lib64/tk8.4/tk.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list source $file]"
/usr/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 "/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.

Error in startup script: no event type or button # or keysym
    while executing
"bind Pixmapscroll <MouseWheel> {
        tk::ScrollByUnits %W v [expr {- (%D)}]
    }"
    invoked from within
"if {![catch {tk windowingsystem} wsystem] && $wsystem == "x11"} {
    bind Pixmapscroll <MouseWheel> {
        tk::ScrollByUnits %W v [expr {- (%D)}]
..."
    (file "pixmapscroll.tcl" line 717)
    invoked from within
"source [file join pixmapscroll.tcl]"
    ("package ifneeded" script)
    invoked from within
"package require pixmapscroll"
    invoked from within
"if { $initialize_amsn == 1 } {

        if {![::picture::Loaded]} {
                if { [OnDarwin] } {     
                        tk_messageBox -default ok -message "There's a problem
loading a..."
    (file "gui.tcl" line 4)
    invoked from within
"source gui.tcl         "
    ("uplevel" body line 23)
    invoked from within
"uplevel \#0 {

        # amsncore.tcl is already loaded but we'll re-source it here in case we
manually do reload_files
        source amsncore.tcl
        source audio.tc..."
    (procedure "reload_files" line 2)
    invoked from within
"reload_files"
    (file "/usr/bin/amsn" line 272)

Your issue is unrelated, you might want to try here:
https://bugs.gentoo.org/show_bug.cgi?id=225999

This issue relates to tcl/tk 8.5 which it does not look like you are using.

Chris, so is this fixed with current versions?

I cannot reproduce this problem, I am using amsn with tcl/tk 8.5 since months
without problems on three different gentoo systems

wouldn't know, i'm using amsn 0.97.2 with tcl/tk 8.5.5 now.  sorry.

it seems you are not using tcl-8.5, or you didn't rebuild amsn against the new
tcl-8.5. amsn is known to work fine with tcl 8.5.