Good idea, zentara. I thought for sure I could take the "chfont" test script and plug in my problem characters-codes to see if they displayed properly.
But before I had a chance to try that, I ran the code you attached and, lo and behold -- it has similar problems:
- worked on Windows (except for the "\xA9" appearing when run on each OS)
- had problems on Solaris 2.6, Solaris 2.8, and Linux with four of the Asian characters appearing as "\x{54ea}", "\x{60a8}", "\x{4f60}", and "\x{4efd}" instead of the Asian character.
I couldn't find chfont.pl in the Tk directories (ActivePerl distribution) on Linux nor Solaris 2.8. But I did run the widget demo on both Linux and Solaris 2.8. The Traditional Chinese, Hebrew, Japanese, and Korean fonts appeared properly. I think the Russian appeared okay. Some of the Greek characters appeared okay and some didn't. But none of the Arabic and Simplified Chinese characters appeared properly.
Looking at its code, it specified a helvetica font like I was using.
(UPDATE: I've discovered this doesn't run by itself. You need to run widget and choose the "Labels and Unicode Text" demo. And not just any perl's widget, but ActivePerl's 5.8.x widget. I couldn't find a Unicode Text demo in CPAN's perl 5.8.5)
# unicodeout.pl
use vars qw/$TOP/;
use subs qw/unicodeadd/;
sub unicodeout {
# This demonstration script shows how you can produce output (in l
+abel
# widgets) using many different alphabets.
my($demo) = @_;
$TOP = $MW->WidgetDemo(
-name => $demo,
-text => 'This is a sample of Perl/Tk\'s support for langu
+ages that use non-Western character sets. However, what you will act
+ually seebelow depends largely on what character sets you have instal
+led, and what you see for characters that are not present varies grea
+tly between platforms as well. The strings are written in Perl Unico
+de characters using the \\x{XXXX} escape sequence so as to do so in a
+ portable fashion.',
-title => 'Unicode Label Demonstration',
-iconname => 'unicodeout',
);
my $unicode_wait = $TOP->Label(
-text => 'Please wait while loading fonts...',
-font => 'Helvetica 12 italic',
)->pack;
$TOP->update;
# Processing when some characters are missing might take a while,
+so make
# sure we're displaying something in the meantime.
$TOP->Busy;
unicodeadd $TOP, 'Arabic',
"\x{FE94}\x{FEF4}\x{FE91}\x{FEAE}\x{FECC}\x{FEDF}\x{FE8D}\x{FE94}\
+x{FEE4}\x{FEE0}\x{FEDC}\x{FEDF}\x{FE8D}";
unicodeadd $TOP, "Trad. Chinese", "\x{4E2D}\x{570B}\x{7684}\x{6F22
+}\x{5B57}";
unicodeadd $TOP, "Simpl. Chinese", "\x{6C49}\x{8BED}";
unicodeadd $TOP, 'Greek',
"\x{0395}\x{03BB}\x{03BB}\x{03B7}\x{03BD}\x{03B9}\x{03BA}\x{03AE}\
+x{03B3}\x{03BB}\x{03CE}\x{03C3}\x{03C3}\x{03B1}";
unicodeadd $TOP, 'Hebrew',
"\x{05DD}\x{05D9}\x{05DC}\x{05E9}\x{05D5}\x{05E8}\x{05D9}\x{05DC}\
+x{05D9}\x{05D0}\x{05E8}\x{05E9}\x{05D9}";
unicodeadd $TOP, 'Japanese',
"\x{65E5}\x{672C}\x{8A9E}\x{306E}\x{3072}\x{3089}\x{304C}\x{306A}\
+x{6F22}\x{5B57}\x{3068}\x{30AB}\x{30BF}\x{30AB}\x{30CA}";
unicodeadd $TOP, 'Korean',
"\x{B300}\x{D55C}\x{BBFC}\x{AD6D}\x{C758}\x{D55C}\x{AE00}";
unicodeadd $TOP, 'Russian',
"\x{0420}\x{0443}\x{0441}\x{0441}\x{043A}\x{0438}\x{0439}\x{044F}\
+x{0437}\x{044B}\x{043A}";
# We're done processing, so change things back to normal running.
$unicode_wait->destroy;
$TOP->Unbusy;
} # end unicodeout
sub unicodeadd {
my ($w, $language, @args) = @_;
my $sample = join('', @args);
my $l1 = $w->Label(-text => "$language: ", qw/-anchor nw -pady 0/)
+;
my $l2 = $w->Label(-text => $sample, qw/-anchor nw -width 30 -pady
+ 0/);
$l1->grid($l1, $l2, qw/-sticky ew -pady 0/);
$l1->gridConfigure(qw/-padx 1m/);
} # end unicodeadd
1;
| [reply]
[d/l] |
I think its time you posted this on the newsgroup comp.lang.perl.tk where the international experts read.
I'm not really a human, but I play one on earth.
flash japh
| [reply] |