diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-15 21:52:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-15 21:52:17 (GMT) |
| commit | 7d9ab4e8bbc99150a6c6e1bba9913da381c45ddc (patch) | |
| tree | 2c7a5eb3bdf7e37f55b3d721e814b40205661495 /library/demos | |
| parent | 21c80c279f1a6edee55718c40818e5a3f59e1dfb (diff) | |
| download | tk-7d9ab4e8bbc99150a6c6e1bba9913da381c45ddc.zip tk-7d9ab4e8bbc99150a6c6e1bba9913da381c45ddc.tar.gz tk-7d9ab4e8bbc99150a6c6e1bba9913da381c45ddc.tar.bz2 | |
Let's add some Emoji to the widget demo, but encoded in UTF-16 so Tcl 8.6.10 can handle it. Works at least on Windows.
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/unicodeout.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl index faa9f90..a8b5bbb 100644 --- a/library/demos/unicodeout.tcl +++ b/library/demos/unicodeout.tcl @@ -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 \ + "\uD83D\uDE00\uD83D\uDCA9\uD83D\uDC4D\uD83C\uDDF3\uD83C\uDDF1" ## We're done processing, so change things back to normal running... destroy $w.wait |