diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-01 19:57:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-01 19:57:35 (GMT) |
| commit | 937d4937b89a059ae9d28c79d9f4bb642fd538cb (patch) | |
| tree | 8e016d2f5dc6f59adb17b9f9d706703b972c90f5 /generic/tkOldConfig.c | |
| parent | 8685a0c21a281fa3d40718cb68d9bcd5363c5c1c (diff) | |
| parent | 3fec8cb9880cf52be2f6434f4f18bb91bfd63609 (diff) | |
| download | tk-937d4937b89a059ae9d28c79d9f4bb642fd538cb.zip tk-937d4937b89a059ae9d28c79d9f4bb642fd538cb.tar.gz tk-937d4937b89a059ae9d28c79d9f4bb642fd538cb.tar.bz2 | |
Use the more efficient Tk_AllocColorFromObj()/Tk_Alloc3DBorderFromObj()/Tk_AllocCursorFromObj()/Tk_GetJustifyFromObj() in tkOldConfig.c.
Merge 8.6
Diffstat (limited to 'generic/tkOldConfig.c')
| -rw-r--r-- | generic/tkOldConfig.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c index c493e89..4fb27ab 100644 --- a/generic/tkOldConfig.c +++ b/generic/tkOldConfig.c @@ -431,7 +431,7 @@ DoConfig( if (nullValue) { newPtr = NULL; } else { - newPtr = Tk_GetColor(interp, tkwin, value); + newPtr = Tk_AllocColorFromObj(interp, tkwin, arg); if (newPtr == NULL) { return TCL_ERROR; } @@ -482,7 +482,7 @@ DoConfig( if (nullValue) { newBorder = NULL; } else { - newBorder = Tk_Get3DBorder(interp, tkwin, value); + newBorder = Tk_Alloc3DBorderFromObj(interp, tkwin, arg); if (newBorder == NULL) { return TCL_ERROR; } @@ -506,7 +506,7 @@ DoConfig( if (nullValue) { newCursor = NULL; } else { - newCursor = Tk_GetCursor(interp, tkwin, value); + newCursor = Tk_AllocCursorFromObj(interp, tkwin, arg); if (newCursor == NULL) { return TCL_ERROR; } @@ -522,7 +522,7 @@ DoConfig( break; } case TK_CONFIG_JUSTIFY: - if (Tk_GetJustify(interp, value, (Tk_Justify *)ptr) != TCL_OK) { + if (Tk_GetJustifyFromObj(interp, arg, (Tk_Justify *)ptr) != TCL_OK) { return TCL_ERROR; } break; |