Tk UCS-2LE:code point too high

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Dear monks

I know Tk is not capable of showinf all Unicode charachters. That's okay for me. hat I want to avoid is that my GUI doesn't break if a string contains a unicode character which is not supported. This is a working example:

use strict;
use warnings;
use utf8;
use Tk;

my $mw = MainWindow->new;
my $text = "&#128578;"; 

$mw->Label(-text => $text)->pack;

MainLoop;
[download]

If I would know all unsupported characters I could perform a substitution and delete them... but I don't know them. In $text I'd like to have only supported characters. Any idea?

Comment on Tk UCS-2LE:code point too high Download Code

Replies are listed 'Best First'.
Re: Tk UCS-2LE:code point too high by Kordaff (Scribe) on Jun 30, 2016 at 22:45 UTC
You might try this instead: `my $text="\x{1F642}";` [download] Using the hex version of the decimal value 128578 does seem to work. -- Kordaff	[reply] [d/l]
Re^2: Tk UCS-2LE:code point too high by Anonymous Monk on Jul 01, 2016 at 09:43 UTC
I tried with several Perl versions and both values break the GUI	[reply]
Re^3: Tk UCS-2LE:code point too high by hippo (Archbishop) on Jul 01, 2016 at 10:34 UTC
I tried with several Perl versions and both values break the GUI Applying Kordaff's suggestion to your code works perfectly for me. ie. `#!/usr/bin/perl use strict; use warnings; use Tk; my $mw = MainWindow->new; my $text = "\x{1F642}"; $mw->Label(-text => $text)->pack; MainLoop;` [download] This produces a window with the smiley char. I'm using Tk 804.032 on perl 5.20.3.	[reply] [d/l]
Re^4: Tk UCS-2LE:code point too high (Tk not support it) by Anonymous Monk on Jul 01, 2016 at 20:42 UTC
Re: Tk UCS-2LE:code point too high by kcott (Archbishop) on Jul 01, 2016 at 13:41 UTC
Take a look at the charnames pragma and, in particular, its charnames::viacode(code) function, which might achieve what you're after: `$unsupported_character = ! defined charnames::viacode($your_code)` [download] — Ken	[reply] [d/l]