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 | d1375688cdde3d094984f7f3a7bffe57306a0bca (patch) | |
| tree | f5320945b9bfd9fc19b133335a7be45076fe03e9 /ext/tcltklib | |
| parent | a60db057a2a8456f8f5b59a6c5805e25d1d47d34 (diff) | |
matz
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@816 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib')
| -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 93f7745f28..f2e4a22945 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 |