From 9c0e19a3be2288db79e2502e5fa450c3e20a668d Mon Sep 17 00:00:00 2001 From: Guenter Geiger Date: Fri, 9 May 2003 16:04:00 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r610, which included commits to RCS files with non-trunk default branches. svn path=/trunk/; revision=611 --- pd/src/t_tkcmd.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'pd/src/t_tkcmd.c') diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c index a862beda..ff12a284 100644 --- a/pd/src/t_tkcmd.c +++ b/pd/src/t_tkcmd.c @@ -23,17 +23,17 @@ #include #include #endif -#ifdef NT +#ifdef MSW #include #include #endif -#ifdef NT +#ifdef MSW #pragma warning( disable : 4305 ) /* uncast const double to float */ #pragma warning( disable : 4244 ) /* uncast double to float */ #pragma warning( disable : 4101 ) /* unused local variables */ #endif -#ifdef NT +#ifdef MSW #include "tk.h" #endif @@ -66,7 +66,7 @@ void pdgui_sethost(char *name) static void pdgui_sockerror(char *s) { -#ifdef NT +#ifdef MSW int err = WSAGetLastError(); #endif #ifdef UNIX @@ -173,7 +173,7 @@ void pdgui_setupsocket(void) #else int retry = 1; #endif -#ifdef NT +#ifdef MSW short version = MAKEWORD(2, 0); WSADATA nobby; @@ -345,16 +345,16 @@ void pdgui_startup(Tcl_Interp *interp) /* add our own TK commands */ - Tcl_CreateCommand(interp, "pd", pdCmd, (ClientData)NULL, + Tcl_CreateCommand(interp, "pd", (Tcl_CmdProc*)pdCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); #ifndef UNIX - Tcl_CreateCommand(interp, "pd_pollsocket", pd_pollsocketCmd, + Tcl_CreateCommand(interp, "pd_pollsocket",(Tcl_CmdProc*) pd_pollsocketCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL); #endif pdgui_setupsocket(); /* read in the startup file */ -#if !defined(NT) && !defined(MACOSX) +#if !defined(MSW) && !defined(MACOSX) pdgui_evalfile("pd.tk"); #endif } -- cgit v1.2.1