Import Tk 8.6.8
This commit is contained in:
@@ -314,7 +314,6 @@ Tk_FreeGC(
|
||||
gcPtr = Tcl_GetHashValue(idHashPtr);
|
||||
gcPtr->refCount--;
|
||||
if (gcPtr->refCount == 0) {
|
||||
Tk_FreeXId(gcPtr->display, (XID) XGContextFromGC(gcPtr->gc));
|
||||
XFreeGC(gcPtr->display, gcPtr->gc);
|
||||
Tcl_DeleteHashEntry(gcPtr->valueHashPtr);
|
||||
Tcl_DeleteHashEntry(idHashPtr);
|
||||
@@ -351,12 +350,6 @@ TkGCCleanup(
|
||||
entryPtr != NULL; entryPtr = Tcl_NextHashEntry(&search)) {
|
||||
gcPtr = Tcl_GetHashValue(entryPtr);
|
||||
|
||||
/*
|
||||
* This call is not needed, as it is only used on Unix to restore the
|
||||
* Id to the stack pool, and we don't want to use them anymore.
|
||||
* Tk_FreeXId(gcPtr->display, (XID) XGContextFromGC(gcPtr->gc));
|
||||
*/
|
||||
|
||||
XFreeGC(gcPtr->display, gcPtr->gc);
|
||||
Tcl_DeleteHashEntry(gcPtr->valueHashPtr);
|
||||
Tcl_DeleteHashEntry(entryPtr);
|
||||
|
||||
Reference in New Issue
Block a user