diff options
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; } |