From: patthoyts Date: Mon, 9 Feb 2004 14:37:33 +0000 (+0000) Subject: oops. Only need event source for win32 X-Git-Tag: root-dev-2~1 X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=0f7ac11184da0f981ec99d608acbcd784a5b35de;p=tcludp oops. Only need event source for win32 --- diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c index fe3ce65..4d853aa 100644 --- a/generic/udp_tcl.c +++ b/generic/udp_tcl.c @@ -142,6 +142,8 @@ Udp_Init(Tcl_Interp *interp) if (Udp_WinHasSockets(interp) != TCL_OK) { return TCL_ERROR; } + + Tcl_CreateEventSource(UDP_SetupProc, UDP_CheckProc, NULL); #endif Tcl_CreateCommand(interp, "udp_open", udpOpen , @@ -151,8 +153,6 @@ Udp_Init(Tcl_Interp *interp) Tcl_CreateCommand(interp, "udp_peek", udpPeek , (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL); - Tcl_CreateEventSource(UDP_SetupProc, UDP_CheckProc, NULL); - r = Tcl_PkgProvide(interp, TCLUDP_PACKAGE_NAME, TCLUDP_PACKAGE_VERSION); return r; }