From 4f51fe6574a7d46ddb95bb85e1053e86c2fb805a Mon Sep 17 00:00:00 2001
From: Miller Puckette <millerpuckette@users.sourceforge.net>
Date: Sat, 20 Sep 2008 00:30:48 +0000
Subject: pd 0.42-0 test 05

svn path=/trunk/; revision=10301
---
 pd/src/t_tkcmd.c | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'pd/src/t_tkcmd.c')

diff --git a/pd/src/t_tkcmd.c b/pd/src/t_tkcmd.c
index bd6ff5a5..6d863c15 100644
--- a/pd/src/t_tkcmd.c
+++ b/pd/src/t_tkcmd.c
@@ -333,7 +333,7 @@ gotit: ;
 
 #ifdef STARTGUI
 
-/* #define DEBUGCONNECT */
+#define DEBUGCONNECT
 
 #ifdef DEBUGCONNECT
 static FILE *debugfd;
@@ -618,11 +618,19 @@ void pdgui_setname(char *s)
 int Pdtcl_Init(Tcl_Interp *interp)
 {
     const char *argv = Tcl_GetVar(interp, "argv", 0);
-    int portno, argno = 0;
-    if (argv && (portno = atoi(argv)) > 1)
+    int portno = 0, i;
+    if (argv)
+    {
+        for (i = 0; i < (int)strlen(argv) - 1; i++)
+            if (argv[i] >= '0' && argv[i] <= '9')
+        {
+            portno = atoi(argv+i);
+            break;
+        }
+    }
+    if (portno)
         pdgui_setsock(portno);
 #ifdef DEBUGCONNECT
-        pd_portno = portno;
     debugfd = fopen("/tmp/bratwurst", "w");
     fprintf(debugfd, "turning stderr back on\n");
     fflush(debugfd);
-- 
cgit v1.2.1