Tk Source Code

I am attaching a transcript of a core dump found in the
Tk 8.4a5 from May 7, 2002 snapshot stored at
activestate.com's ftp site.

When running the following program:
#!/bin/sh
# the next line restarts using wish \
exec /usr/tcl84/bin/wish "$0" "$@"

package require Iwidgets

button .exit_bt -text "Exit" -command "destroy ."

iwidgets::combobox .combo -textfont {Helvetica -12 bold}

pack .exit_bt

and pressing the resulting button, I get a core dump.
The stack trace included appears to be pointing to Tk
from what I can tell.

Tcl/Tk from CVS head
Compiled with Sun's C compiler under SPARC Solaris 2.6.
Running on CDE wm Solaris 8 Sun Blade.

Logged In: YES 
user_id=72656

corrected for 8.4.2.

Logged In: YES 
user_id=72656

I get this stack trace in 8.4b2:

#0  0x6973646c in ?? ()
#1  0x08183c22 in Tcl_EventuallyFree (clientData=0x833f478, 
    freeProc=0x80b3b80 <DeleteImage>)
    
at /home/jeffh/cvs/tcl/tcl8.4/unix/../generic/tclPreserve.c:313
#2  0x080b3ccb in EventuallyDeleteImage 
(masterPtr=0x833f478)
    at /home/jeffh/cvs/tk/tk8.4/unix/../generic/tkImage.c:943
#3  0x080b3d27 in TkDeleteAllImages (mainPtr=0x8223098)
    at /home/jeffh/cvs/tk/tk8.4/unix/../generic/tkImage.c:977
#4  0x0805f7e0 in Tk_DestroyWindow (tkwin=0x8222eb8)
    at /home/jeffh/cvs/tk/tk8.4/unix/../generic/tkWindow.c:1455
#5  0x080e4d2c in Tk_DestroyObjCmd 
(clientData=0x8222eb8, interp=0x81ed0e8, 
    objc=2, objv=0x81edd9c)
    at /home/jeffh/cvs/tk/tk8.4/unix/../generic/tkCmds.c:470
#6  0x0811c62c in TclEvalObjvInternal (interp=0x81ed0e8, 
objc=2, 
    objv=0x81edd9c, command=0x0, length=0, flags=0)
    at /home/jeffh/cvs/tcl/tcl8.4/unix/../generic/tclBasic.c:3027
   .....

which I don't really get because it should call DeleteImage.  I 
tried to create just two buttons (one with image) to see if that 
caused the problem, but that wasn't it, so I wonder if it may 
be partially due to the destroy bindings done on iwidgets itk 
shells.

File Added - 23131: bug.tk