diff options
-rw-r--r-- | library/demos/unicodeout.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/demos/unicodeout.tcl b/library/demos/unicodeout.tcl index f7dfc77..b3c5fd0 100644 --- a/library/demos/unicodeout.tcl +++ b/library/demos/unicodeout.tcl @@ -134,7 +134,7 @@ addSample $w Russian \ if {[package vsatisfies [package provide Tcl] 8.7-]} { addSample $w Emoji \ "\U1F600\U1F4A9\U1F44D\U1F1F3\U1F1F1" -} elseif {[tk windowingsystem] ne "x11"} { +} elseif {([tk windowingsystem] ne "x11") || (![catch {tk::pkgconfig get fontsystem} fs] && ($fs eq "xft"))} { addSample $w Emoji \ "\uD83D\uDE00\uD83D\uDCA9\uD83D\uDC4D\uD83C\uDDF3\uD83C\uDDF1" } |