diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-01 20:00:44 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-09-01 20:00:44 (GMT) |
commit | b4b7f52054d30a5cfac6365dfc2a82c78c985b98 (patch) | |
tree | e9e05484548c89e97805281600a58065239393f8 /generic/tkOldConfig.c | |
parent | ba55435ab5f963d6001b001cfae3d1581003a67f (diff) | |
parent | 937d4937b89a059ae9d28c79d9f4bb642fd538cb (diff) | |
download | tk-b4b7f52054d30a5cfac6365dfc2a82c78c985b98.zip tk-b4b7f52054d30a5cfac6365dfc2a82c78c985b98.tar.gz tk-b4b7f52054d30a5cfac6365dfc2a82c78c985b98.tar.bz2 |
Use the more efficient Tk_AllocColorFromObj()/Tk_Alloc3DBorderFromObj()/Tk_AllocCursorFromObj()/Tk_GetJustifyFromObj() in tkOldConfig.c.
Doc update
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 ab47898..bcfe172 100644 --- a/generic/tkOldConfig.c +++ b/generic/tkOldConfig.c @@ -406,7 +406,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; } @@ -457,7 +457,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; } @@ -481,7 +481,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; } @@ -497,7 +497,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; |