diff options
| author | fvogel <fvogelnew1@free.fr> | 2023-06-04 17:18:27 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2023-06-04 17:18:27 (GMT) |
| commit | a0d9703131628d169c2b9abcc842d058a3899a91 (patch) | |
| tree | 832dbdfebddecaa689090bd446570a42c5873077 /library | |
| parent | 399eacbc0271601773bf04e62ef4bd9a2d13033f (diff) | |
| parent | 3813048adc609662006a24942ac3f05c76f6ae79 (diff) | |
| download | tk-a0d9703131628d169c2b9abcc842d058a3899a91.zip tk-a0d9703131628d169c2b9abcc842d058a3899a91.tar.gz tk-a0d9703131628d169c2b9abcc842d058a3899a91.tar.bz2 | |
Merge implementation of TIP #658 - Attach identifiers to Tk menu entries, following positive vote from the TCT. Thanks to the author, Schelte Bron!
Diffstat (limited to 'library')
| -rw-r--r-- | library/tearoff.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tearoff.tcl b/library/tearoff.tcl index 856f8a2..63d4f43 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -140,7 +140,7 @@ proc ::tk::MenuDup {src dst type} { set last [$src index last] if {$last >= 0} { for {set i [$src cget -tearoff]} {$i <= $last} {incr i} { - set cmd [list $dst add [$src type $i]] + set cmd [list $dst add [$src type $i] [$src id $i]] foreach option [$src entryconfigure $i] { lappend cmd [lindex $option 0] [lindex $option 4] } |