Hi,
I have a nice issue: Small tcl program lets "wish" crash (sigsegv) on leap 42.2 and 42.3 with tk-8.6.7-5.3.2.x86_64 and tcl-8.6.7-5.3.1.x86_64

using older versions (tk-8.6.1-4.22.x86_64 ,tcl-8.6.1-4.21.x86_64.rpm) this small code snippet will run without any failures displaying a fileopen-dialog:


##=begin====
#!/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" -font "-*-helvetica-bold-r-*-*-15-150-*-*-*-*-iso10646-1" \
-fg black -bg grey80 \
-command {
if { ![winfo exists .choosewin ] } {
ChooseWin $DOCDIR
}
}
pack .button
##====end====

I think I should file a bug report..