Imported Tk 8.6.9
This commit is contained in:
@@ -172,9 +172,9 @@ ImageCreate(
|
||||
timPtr->interp = interp;
|
||||
timPtr->width = 30;
|
||||
timPtr->height = 15;
|
||||
timPtr->imageName = ckalloc((unsigned) (strlen(name) + 1));
|
||||
timPtr->imageName = ckalloc(strlen(name) + 1);
|
||||
strcpy(timPtr->imageName, name);
|
||||
timPtr->varName = ckalloc((unsigned) (strlen(varName) + 1));
|
||||
timPtr->varName = ckalloc(strlen(varName) + 1);
|
||||
strcpy(timPtr->varName, varName);
|
||||
Tcl_CreateObjCommand(interp, name, ImageObjCmd, timPtr, NULL);
|
||||
*clientDataPtr = timPtr;
|
||||
|
||||
Reference in New Issue
Block a user