diff options
| author | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-04-01 06:21:24 +0000 |
|---|---|---|
| committer | usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2002-04-01 06:21:24 +0000 |
| commit | 1ead0ff3f197d43e44ffdeb93d8c5b0c9aa4a69c (patch) | |
| tree | 200419f954e1360d34b2a22d1bf759be75ed86a1 /ext/tcltklib/tcltklib.c | |
| parent | 0ebc5550c54c4f1376f2c6806b0ec2c1a94d9af1 (diff) | |
| download | ruby-1ead0ff3f197d43e44ffdeb93d8c5b0c9aa4a69c.tar.gz ruby-1ead0ff3f197d43e44ffdeb93d8c5b0c9aa4a69c.tar.xz ruby-1ead0ff3f197d43e44ffdeb93d8c5b0c9aa4a69c.zip | |
* ext/racc/cparse/cparse.c: prototype; call_scaniter().
* ext/sdbm/init.c: prototype; each_pair().
* ext/tcltklib/tcltklib.c: prototypes; _timer_for_tcl() and ip_ruby(),
Nobu's patch at [ruby-dev:14483].
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@2311 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 7acbacdd9..990fbc38a 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -64,6 +64,7 @@ static VALUE main_thread; static Tcl_TimerToken timer_token; /* timer callback */ +static void _timer_for_tcl _((ClientData)); static void _timer_for_tcl(clientData) ClientData clientData; @@ -90,6 +91,12 @@ _timer_for_tcl(clientData) rb_thread_schedule(); } +#if TCL_MAJOR_VERSION >= 8 +static int ip_ruby _((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST*)); +#else +static int ip_ruby _((ClientData, Tcl_Interp *, int, char **)); +#endif + /* execute Tk_MainLoop */ static VALUE lib_mainloop(self) |