From 89e581e19c7787076128a0b9f209aa4d5acf6da6 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Sat, 21 May 2005 00:09:18 +0000
Subject: [PATCH] Fix for methods with similar names when showing list of names
 on error - bug #1191828. Patch from Jeroen Dobbelaere.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7203 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/tcl/swigtcl8.swg | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/Lib/tcl/swigtcl8.swg b/Lib/tcl/swigtcl8.swg
index fb6d430ef..5a280534d 100644
--- a/Lib/tcl/swigtcl8.swg
+++ b/Lib/tcl/swigtcl8.swg
@@ -605,7 +605,20 @@ SWIG_Tcl_MethodCommand(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_
     meth = cls->methods;
     while (meth && meth->name) {
       char *cr = (char *) Tcl_GetStringResult(interp);
-      if (!strstr(strchr(cr,':'), meth->name))
+      int meth_len = strlen(meth->name);
+      char* where = strchr(cr,':');
+      while(where) {
+        where = strstr(where, meth->name);
+        if(where) {
+          if(where[-1] == ' ' && (where[meth_len] == ' ' || where[meth_len]==0)) {
+            break;
+          } else {
+            where++;
+          }
+        }
+      }
+
+      if (!where)
         Tcl_AppendElement(interp, (char *) meth->name);
       meth++;
     }