From c06743f01e38f370da655675db332e995eb710e2 Mon Sep 17 00:00:00 2001 From: nobu Date: Thu, 3 Mar 2005 09:47:30 +0000 Subject: * ext/tk/tcltklib.c (ip_rbUpdateCommand, ip_rb_threadUpdateCommand): get rid of warnings with Tcl/Tk 8.3 or former. git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@8059 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 5 ++++- ext/tk/tcltklib.c | 4 ++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 86476bf92..80ee4cc17 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,4 @@ -Thu Mar 3 18:44:18 2005 Nobuyoshi Nakada +Thu Mar 3 18:47:18 2005 Nobuyoshi Nakada * {bcc32,win32,wince}/Makefile.sub (config.h): check if affected when makefiles are modified. @@ -17,6 +17,9 @@ Thu Mar 3 18:44:18 2005 Nobuyoshi Nakada * bcc32/Makefile.sub (post-install-ext): remove debug information files after installation. + * ext/tk/tcltklib.c (ip_rbUpdateCommand, ip_rb_threadUpdateCommand): + get rid of warnings with Tcl/Tk 8.3 or former. + Thu Mar 3 11:49:51 2005 Kouhei Sutou * sample/rss/tdiary_plugin/rss-recent.rb: added site information. diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index 905d96929..ff374b07d 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -2909,7 +2909,7 @@ ip_rbUpdateCommand(clientData, interp, objc, objv) flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; } else if (objc == 2) { - if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions, + if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)updateOptions, "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; } @@ -3060,7 +3060,7 @@ ip_rb_threadUpdateCommand(clientData, interp, objc, objv) flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; } else if (objc == 2) { - if (Tcl_GetIndexFromObj(interp, objv[1], updateOptions, + if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)updateOptions, "option", 0, &optionIndex) != TCL_OK) { return TCL_ERROR; } -- cgit