diff options
author | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-10-04 13:42:00 +0000 |
---|---|---|
committer | yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2008-10-04 13:42:00 +0000 |
commit | 642e08187927b2debaa0d84a112123043f0f7912 (patch) | |
tree | b7023daf3123ff37d9095bd0f19931c5bc58de56 /ext/tk/stubs.c | |
parent | ae7ea3332b07c83ee050c88cd902070689fd582f (diff) | |
download | ruby-642e08187927b2debaa0d84a112123043f0f7912.tar.gz |
* dln.c: Ruby no longer supports MacOS 9 or before.
* eval.c: ditto.
* eval_intern.h: ditto.
* ext/extmk.rb: ditto.
* ext/tk/sample/tkextlib/treectrl/demo.rb: ditto.
* ext/tk/stubs.c: ditto.
* file.c: ditto.
* hash.c: ditto.
* include/ruby/defines.h: ditto.
* ruby.c: ditto.
* signal.c: ditto.
* vm_core.h: ditto.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@19680 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/stubs.c')
-rw-r--r-- | ext/tk/stubs.c | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/ext/tk/stubs.c b/ext/tk/stubs.c index 4388fb294d..e7ef79dda8 100644 --- a/ext/tk/stubs.c +++ b/ext/tk/stubs.c @@ -11,25 +11,6 @@ /*------------------------------*/ -#ifdef __MACOS__ -# include <tkMac.h> -# include <Quickdraw.h> - -static int call_macinit = 0; - -static void -_macinit() -{ - if (!call_macinit) { - tcl_macQdPtr = &qd; /* setup QuickDraw globals */ - Tcl_MacSetEventProc(TkMacConvertEvent); /* setup event handler */ - call_macinit = 1; - } -} -#endif - -/*------------------------------*/ - static int nativethread_checked = 0; static void @@ -320,10 +301,6 @@ ruby_tk_stubs_init(tcl_ip) if (!Tk_InitStubs(tcl_ip, (char *)"8.1", 0)) return FAIL_Tk_InitStubs; - -#ifdef __MACOS__ - _macinit(); -#endif } return TCLTK_STUBS_OK; @@ -359,10 +336,6 @@ ruby_tk_stubs_safeinit(tcl_ip) if (!Tk_InitStubs(tcl_ip, (char *)"8.1", 0)) return FAIL_Tk_InitStubs; - -#ifdef __MACOS__ - _macinit(); -#endif } return TCLTK_STUBS_OK; @@ -517,9 +490,6 @@ ruby_tk_stubs_init(tcl_ip) return FAIL_Tk_Init; if (!call_tk_stubs_init) { -#ifdef __MACOS__ - _macinit(); -#endif call_tk_stubs_init = 1; } @@ -539,9 +509,6 @@ ruby_tk_stubs_safeinit(tcl_ip) return FAIL_Tk_Init; if (!call_tk_stubs_init) { -#ifdef __MACOS__ - _macinit(); -#endif call_tk_stubs_init = 1; } |