Proposed fix for bug [15c685a976].

1 files changed, 0 insertions, 31 deletions

diff --git a/library/tearoff.tcl b/library/tearoff.tcl
index 244b2a5..d11b2b0 100644
--- a/library/tearoff.tcl
+++ b/library/tearoff.tcl
@@ -145,35 +145,4 @@ proc ::tk::MenuDup {src dst type} {
 	}
 	eval $cmd
     }
-
-    # Duplicate the binding tags and bindings from the source menu.
-
-    set tags [bindtags $src]
-    set srcLen [string length $src]
-
-    # Copy tags to x, replacing each substring of src with dst.
-
-    while {[set index [string first $src $tags]] >= 0} {
-	append x [string range $tags 0 $index-1]$dst
-	set tags [string range $tags $index+$srcLen end]
-    }
-    append x $tags
-
-    bindtags $dst $x
-
-    foreach event [bind $src] {
-	unset x
-	set script [bind $src $event]
-	set eventLen [string length $event]
-
-	# Copy script to x, replacing each substring of event with dst.
-
-	while {[set index [string first $event $script]] >= 0} {
-	    append x [string range $script 0 $index-1]$dst
-	    set script [string range $script $index+$eventLen end]
-	}
-	append x $script
-
-	bind $dst $event $x
-    }
 }