diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-15 13:34:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-12-15 13:34:51 (GMT) |
commit | ebf7aa78ca18f687fe743101bc1457465a8ade04 (patch) | |
tree | 2df89698f16092565e1dbc66c0718880a7655642 /generic/tkConfig.c | |
parent | 458337a57e04538b5ccfc312e9c0cfc7da8cbbcd (diff) | |
download | tk-ebf7aa78ca18f687fe743101bc1457465a8ade04.zip tk-ebf7aa78ca18f687fe743101bc1457465a8ade04.tar.gz tk-ebf7aa78ca18f687fe743101bc1457465a8ade04.tar.bz2 |
Change Tk_FreeStyleFromObj (undocumented, nop) into a macro. So, stub-enabled extensions won't call this function any more.
Some code cleanup in tkConfig.c
Diffstat (limited to 'generic/tkConfig.c')
-rw-r--r-- | generic/tkConfig.c | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/generic/tkConfig.c b/generic/tkConfig.c index 7f35038..5639de4 100644 --- a/generic/tkConfig.c +++ b/generic/tkConfig.c @@ -849,11 +849,9 @@ DoObjConfig( if (nullOK && ObjectIsEmpty(valuePtr)) { valuePtr = NULL; newPixels = 0; - } else { - if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, - &newPixels) != TCL_OK) { - return TCL_ERROR; - } + } else if (Tk_GetPixelsFromObj(interp, tkwin, valuePtr, + &newPixels) != TCL_OK) { + return TCL_ERROR; } if (internalPtr != NULL) { *((int *) oldInternalPtr) = *((int *) internalPtr); @@ -867,11 +865,9 @@ DoObjConfig( if (nullOK && ObjectIsEmpty(valuePtr)) { valuePtr = NULL; newWin = NULL; - } else { - if (TkGetWindowFromObj(interp, tkwin, valuePtr, - &newWin) != TCL_OK) { - return TCL_ERROR; - } + } else if (TkGetWindowFromObj(interp, tkwin, valuePtr, + &newWin) != TCL_OK) { + return TCL_ERROR; } if (internalPtr != NULL) { *((Tk_Window *) oldInternalPtr) = *((Tk_Window *) internalPtr); @@ -1405,8 +1401,6 @@ Tk_RestoreSavedOptions( CLANG_ASSERT(internalPtr); switch (specPtr->type) { case TK_OPTION_BOOLEAN: - *((int *) internalPtr) = *((int *) ptr); - break; case TK_OPTION_INT: *((int *) internalPtr) = *((int *) ptr); break; @@ -1642,8 +1636,6 @@ FreeResources( if (internalFormExists) { Tk_FreeStyle(*((Tk_Style *) internalPtr)); *((Tk_Style *) internalPtr) = NULL; - } else if (objPtr != NULL) { - Tk_FreeStyleFromObj(objPtr); } break; case TK_OPTION_BITMAP: |