From cf40220fdf64f3dab5c005570e1ff0ceb74cc5d5 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sun, 16 Oct 2005 02:36:45 +0000
Subject: 	* library/menu.tcl (::tk::MenuUnpost): remove leftover ] from 
 string equal mods of 2005-07-25. (sowadsky)

---
 ChangeLog        | 5 +++++
 library/menu.tcl | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e2ec590..39e1a44 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-15  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* library/menu.tcl (::tk::MenuUnpost): remove leftover ] from
+	string equal mods of 2005-07-25. (sowadsky)
+
 2005-10-14  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
 	* win/tkWinSend.c:    Avoid using tcl internal headers and fix to 
diff --git a/library/menu.tcl b/library/menu.tcl
index 5589475..311f14d 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -4,7 +4,7 @@
 # It also implements keyboard traversal of menus and implements a few
 # other utility procedures related to menus.
 #
-# RCS: @(#) $Id: menu.tcl,v 1.22 2005/07/25 09:06:00 dkf Exp $
+# RCS: @(#) $Id: menu.tcl,v 1.23 2005/10/16 02:36:45 hobbs Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -426,7 +426,7 @@ proc ::tk::MenuUnpost menu {
 		$parent postcascade none
 		GenerateMenuSelect $parent
 		set type [$parent cget -type]
-		if {$type eq "menubar" || $type eq "tearoff"]} {
+		if {$type eq "menubar" || $type eq "tearoff"} {
 		    break
 		}
 		set menu $parent
-- 
cgit v0.12