diff options
| -rw-r--r-- | library/demos/unicodeout.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl index faa9f90..9cd3661 100644 --- a/library/demos/unicodeout.tcl +++ b/library/demos/unicodeout.tcl @@ -22,8 +22,8 @@ label $w.msg -font $font -wraplength 4i -anchor w -justify left \ below depends largely on what character sets you have installed,\ and what you see for characters that are not present varies greatly\ between platforms as well. The strings are written in Tcl using\ - UNICODE characters using the \\uXXXX escape so as to do so in a\ - portable fashion." + UNICODE characters using the \\uXXXX (or \\UXXXXXX) escape so as to\ + do so in a portable fashion." pack $w.msg -side top ## See Code / Dismiss buttons @@ -131,6 +131,8 @@ addSample $w Japanese \ addSample $w Korean "\uB300\uD55C\uBBFC\uAD6D\uC758 \uD55C\uAE00" addSample $w Russian \ "\u0420\u0443\u0441\u0441\u043A\u0438\u0439 \u044F\u0437\u044B\u043A" +addSample $w Emoji \ + "\U1F600\U1F4A9\U1F44D\U1F1F3\U1F1F1" ## We're done processing, so change things back to normal running... destroy $w.wait |