[Tcl-bugs] [ tktoolkit-Bugs-630533 ] TkpCloseDisplay panic

[<no...@so...>]

Bugs item #630533, was opened at 2002-10-29 11:00
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=630533&group_id=12997

Category: 67. Unix Window Operations
Group: 8.4.1
Status: Open
Resolution: None
Priority: 8
Submitted By: Don Porter (dgp)
Assigned to: Joe English (jenglish)
Summary: TkpCloseDisplay panic

Initial Comment:

On Linux/Alpha,  with Tcl/Tk 8.4.1:

#FILE panic.tcl
proc Die { win } {
    if {![string equal . $win]} { return }
    exit
}
bind . <Destroy> {Die %W}
#END FILE panic.tcl

$ wish8.4 panic.tcl
<Use the [x] of the wm to close the . window>
input contexts not freed before XCloseIM
Abort

Now for the really weird part, compare with:

#FILE nopanic.tcl
proc Die { win } {
    if {. ne $win} { return }
    exit
}
bind . <Destroy> {Die %W}
#END FILE nopanic.tcl

$ wish8.4 panic.tcl
<Same [x] wm close as before works fine>

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=630533&group_id=12997