diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-07-06 07:21:26 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-07-06 07:21:26 +0000 |
| commit | 64e7ed11fda266dbbd72e6b80acd310149b1ec71 (patch) | |
| tree | f5320945b9bfd9fc19b133335a7be45076fe03e9 /ext/tcltklib/tcltklib.c | |
| parent | 71898e529579cd40593098e619ed16346a861a50 (diff) | |
| download | ruby-64e7ed11fda266dbbd72e6b80acd310149b1ec71.tar.gz ruby-64e7ed11fda266dbbd72e6b80acd310149b1ec71.tar.xz ruby-64e7ed11fda266dbbd72e6b80acd310149b1ec71.zip | |
matz
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@816 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 93f7745f2..f2e4a2294 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -4,12 +4,13 @@ * Oct. 24, 1997 Y. Matsumoto */ +#include "ruby.h" +#include "rubysig.h" +#undef EXTERN /* avoid conflict with tcl.h of tcl8.2 or before */ #include <stdio.h> #include <string.h> #include <tcl.h> #include <tk.h> -#include "ruby.h" -#include "rubysig.h" #ifdef __MACOS__ # include <tkMac.h> @@ -228,11 +229,11 @@ ip_new(self) /* add ruby command to the interpreter */ #if TCL_MAJOR_VERSION >= 8 DUMP1("Tcl_CreateObjCommand(\"ruby\")"); - Tcl_CreateObjCommand(ptr->ip, "ruby", ip_ruby, (ClientData *)NULL, + Tcl_CreateObjCommand(ptr->ip, "ruby", ip_ruby, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); #else DUMP1("Tcl_CreateCommand(\"ruby\")"); - Tcl_CreateCommand(ptr->ip, "ruby", ip_ruby, (ClientData *)NULL, + Tcl_CreateCommand(ptr->ip, "ruby", ip_ruby, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); #endif |