Imported Tk 8.6.9
This commit is contained in:
@@ -3378,7 +3378,7 @@ FontchooserConfigureCmd(
|
||||
if (hdPtr->fontObj) {
|
||||
Tcl_DecrRefCount(hdPtr->fontObj);
|
||||
}
|
||||
(void)Tcl_GetString(objv[i+1]);
|
||||
Tcl_GetString(objv[i+1]);
|
||||
if (objv[i+1]->length) {
|
||||
hdPtr->fontObj = objv[i+1];
|
||||
if (Tcl_IsShared(hdPtr->fontObj)) {
|
||||
@@ -3393,7 +3393,7 @@ FontchooserConfigureCmd(
|
||||
if (hdPtr->cmdObj) {
|
||||
Tcl_DecrRefCount(hdPtr->cmdObj);
|
||||
}
|
||||
(void)Tcl_GetString(objv[i+1]);
|
||||
Tcl_GetString(objv[i+1]);
|
||||
if (objv[i+1]->length) {
|
||||
hdPtr->cmdObj = objv[i+1];
|
||||
if (Tcl_IsShared(hdPtr->cmdObj)) {
|
||||
|
||||
Reference in New Issue
Block a user