"Konovalov, Vadim" <vkonovalov@xxxxxxxxxxxxxx> writes:
> > I guess that something must have changed in the Perl internals in
> > 5.8.7 because since that version Tk804.027 doesn't display accented
> > characters properly in Text and some other widget. The test case
> > attached creates a Text field with a few Czech characters in it.
>
> very interesting behaviour, indeed.
>
> I checked 5.8.6 built with ActiveState and it does not have such a problem,
> whereas 5.8.7 misbehaves.
We have now tracked down this problem and patched Tk for the upcoming
ActivePerl like this:
--- Tk.pm.~1~ Wed Nov 2 05:16:32 2005
+++ Tk.pm Wed Nov 2 05:16:32 2005
@@ -20,7 +20,7 @@
use Encode;
$Tk::encodeStopOnError = Encode::FB_QUIET();
-$Tk::encodeFallback = Encode::FB_PERLQQ(); # Encode::FB_DEFAULT();
+$Tk::encodeFallback = Encode::PERLQQ(); # Encode::FB_DEFAULT();
our %font_encoding = ('jis0208' => 'jis0208-raw',
'jis0212' => 'jis0212-raw',
End of Patch.
The problem is that FB_PERLQQ implies LEAVE_SRC for Encode-2.10 and
beyond, but Tk's encGlue.c wrappers depend on the source string to get
truncated.
Regards,
Gisle Aas,
ActiveState
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
|
