Bug ID 1083828
Summary tcl/tk wish crashes
Classification openSUSE
Product openSUSE Distribution
Version Leap 42.3
Hardware Other
OS Other
Status NEW
Severity Normal
Priority P5 - None
Component Basesystem
Assignee bnc-team-screening@forge.provo.novell.com
Reporter reinhard.hennig@freenet.de
QA Contact qa-bugs@suse.de
Found By ---
Blocker ---

Created attachment 762585 [details]
A Screenshot of thhe snippet being startet from the commandline

wish crashes with sigsegv (11) when including Iwidgets
(iwidgets::extfileselectionbox)
actual version of tcl and tk (8.6.7) lead to the error: using older versions
8.6.1 it works fine:
Here is sample code:

#!/bin/bash
# restart using wish \
exec wish "$0" -- "$@"
# initializing
set DOCDIR $env(HOME)

proc ChooseWin { dir } {
toplevel .choosewin
iwidgets::extfileselectionbox .choosewin.fsb -width 8i -height 6i \
                -dirslabel "Directories" \
                -fileslabel "Files" \
                -selectionlabel "Please select" \
                -directory $dir \
                -selectforeground white \
                -selectbackground red \
                -highlightthickness 2 \
                -selectfilecommand {
                        .choosewin.fsb configure -selectionlabel "your choice"
                }
pack .choosewin.fsb -fill both -expand yes
}

# ------------------------------------- Main
-----------------------------------
package require Iwidgets
. configure -bg grey 
button .button -text "push me 4 search" \
        -fg black -bg grey80  \
        -command  {
                if { ![winfo exists .choosewin ] } {
                        ChooseWin $DOCDIR
                }
        }
pack .button
##end

pushing the button normally opens a fileselectiondialog in a new window. Using
actual versions of tk and tcl on OpenSuSE 42.2 and OpenSuSE 42.3 are causing
crashes (wish collapses at signal 11).  I've also done strace -fp on the wish
procid showing SigSegV. I think it's a bug that should be reported. It happens
on OpenSuSE 42.2 and OpenSuSE 42.3.


You are receiving this mail because: