diff options
| author | marc_culler <marc.culler@gmail.com> | 2021-01-27 22:03:23 (GMT) |
|---|---|---|
| committer | marc_culler <marc.culler@gmail.com> | 2021-01-27 22:03:23 (GMT) |
| commit | dafd0980f12d3583ecd80f68fe51edcee80c8d6f (patch) | |
| tree | 82588840c922ed8ce0b65f344eac5742c9c3c0c3 /library/demos | |
| parent | 4217fc75a760adc1460dca79f42f888a5e391975 (diff) | |
| parent | 04c6a58439791bd97566416b916a55094218cff2 (diff) | |
| download | tk-dafd0980f12d3583ecd80f68fe51edcee80c8d6f.zip tk-dafd0980f12d3583ecd80f68fe51edcee80c8d6f.tar.gz tk-dafd0980f12d3583ecd80f68fe51edcee80c8d6f.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/demos')
| -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 fbb0069..70e8cfd 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} {Does almost nothing also} {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} \ |