[Tcl-bugs] [ tktoolkit-Bugs-669759 ] image destruction on <Destroy> crashes

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

Bugs item #669759, was opened at 2003-01-17 15:01
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=112997&aid=669759&group_id=12997

Category: 39. Image Basics
Group: 8.4.1
Status: Open
Resolution: None
Priority: 7
Submitted By: Vince Darley (vincentdarley)
Assigned to: Nobody/Anonymous (nobody)
Summary: image destruction on <Destroy> crashes

Initial Comment:
This script crashes WinTk (debug or non-dbug build) on
Windows 2000.


# script
image create photo splash -file [file join $tk_library
images logo100.gif]

canvas .c -width 100 -height 100
.c create image 0 0 -image splash -anchor nw

bind . <Destroy> {catch {image delete splash}}
update

destroy .
# end script

The crash occurs here:

static void
DeleteImage(masterPtr)
    ImageMaster *masterPtr;	/* Pointer to main data
structure for image. */
{
    Image *imagePtr;
    Tk_ImageType *typePtr;

    typePtr = masterPtr->typePtr;
    masterPtr->typePtr = NULL;
    if (typePtr != NULL) {
	for (imagePtr = masterPtr->instancePtr; imagePtr != NULL;
		imagePtr = imagePtr->nextPtr) {
	   (*typePtr->freeProc)(imagePtr->instanceData,
		   imagePtr->display);

with 'typePtr' being garbage.

Vince.


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

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