diff options
| -rw-r--r-- | generic/tkWindow.c | 11 | ||||
| -rw-r--r-- | tests/window.test | 4 |
2 files changed, 3 insertions, 12 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index a55c867..0c60321 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -1133,12 +1133,10 @@ Tk_CreateWindowFromPath( /* * Strip the parent's name out of pathName (it's everything up to the last - * dot). There are three tricky parts: (a) must copy the parent's name + * dot). There are two tricky parts: (a) must copy the parent's name * somewhere else to avoid modifying the pathName string (for large names, * space for the copy will have to be malloc'ed); (b) must special-case - * the situation where the parent is "."; (c) the parent's name cannot be - * only 1 character long because it should include both a leading dot and - * at least one additional character. + * the situation where the parent is ".". */ p = strrchr(pathName, '.'); @@ -1157,11 +1155,6 @@ Tk_CreateWindowFromPath( if (numChars == 0) { *p = '.'; p[1] = '\0'; - } else if (numChars == 1) { - Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "bad window path name \"%s\"", pathName)); - Tcl_SetErrorCode(interp, "TK", "VALUE", "WINDOW_PATH", NULL); - return NULL; } else { strncpy(p, pathName, (size_t) numChars); p[numChars] = '\0'; diff --git a/tests/window.test b/tests/window.test index f02db3e..fea695a 100644 --- a/tests/window.test +++ b/tests/window.test @@ -39,9 +39,7 @@ test window-1.1 {Tk_CreateWindowFromPath procedure, parent dead} -setup { while executing "button .t.b -text hello" (command bound to event)}} -test window-1.2 {Tk_CreateWindowFromPath procedure, pathname starting with two dots} -body { - label ..mylabel -} -returnCodes error -result {bad window path name "..mylabel"} + # Most of the tests below don't produce meaningful results; they # will simply dump core if there are bugs. |