diff options
| author | marc_culler <marc.culler@gmail.com> | 2021-01-27 20:38:50 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2021-01-27 20:38:50 (GMT) |
| commit | 4924d7ef707ae1f08e43f05195a9d9454fc9966a (patch) | |
| tree | e65b7653b023d99a6e11dd89e6fedbf12321a68b /library/demos/menu.tcl | |
| parent | 0d82ed4dd499eafdf6d5af7fa6836610ba307d15 (diff) | |
| download | tk-4924d7ef707ae1f08e43f05195a9d9454fc9966a.zip tk-4924d7ef707ae1f08e43f05195a9d9454fc9966a.tar.gz tk-4924d7ef707ae1f08e43f05195a9d9454fc9966a.tar.bz2 | |
Fix [bdcab85b9c]: Aqua crash when non-BMP characters are used in a menu label
Diffstat (limited to 'library/demos/menu.tcl')
| -rw-r--r-- | library/demos/menu.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index 62991f3..244361d 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -134,6 +134,8 @@ menu $m -tearoff 0 foreach i {{An entry} {Another entry} {Does nothing} {Does almost nothing} {Make life meaningful}} { $m add command -label $i -command [list puts "You invoked \"$i\""] } +set emojiLabel [encoding convertfrom utf-8 "\xF0\x9F\x98\x8D Make friends"] +$m add command -label $emojiLabel -command [list puts "Menu labels can include non-BMP characters."] $m entryconfigure "Does almost nothing" -bitmap questhead -compound left \ -command [list \ tk_dialog $w.compound {Compound Menu Entry} \ |