I want to use characters from the Wingdings font that I have on my PC using chr(n) where n is the position.
These include numbers that are in positions 129 to 150. I can see these correctly in Word.
However, only the numbers in positions 129, 141, 143 and 145 are shown correctly in Perl.
The is demonstrated in the Perl code below.
(More can be seen in the font viewer that I posted in Cool Uses for Perl earlier this week)
(Curiously there are similar numeric characters in different positions in Wingdings2 that are shown correctly so I may use this font.)
Does any wiser Monk know how I can see the missing characters in the Wingdings font?
use Tk;
use strict;
my (%char_num, $jc, $jc_mod, %wg, %wg_res, $jrow, $jcol, $cou, $wing_s
+tr, $wing_num);
my ($size, $weight, $slant, $underline, $overstrike);
my $mw = MainWindow->new(-title => 'wingdings Test');
my $f = $mw->Frame->grid(-row => 0, -column => 0);
my $family = 'Wingdings';
$size = 18;
$jrow = 0;
$jcol = 0;
$wing_str = '';
$wing_num = '';
for ($jc = 129; $jc <= 150; $jc ++) {

    $wing_str .= chr($jc) . ' ';
    $wing_num .= $jc . ' ';
}

            $f->Label(-text => $wing_num, -justify => 'center', -bg =>
+ 'white', -font => [-size => 15])->grid(-row => $jrow, -column => $jc
+ol, -padx => 1);
$wg{Label}= $f->Label(-text => $wing_str, -justify => 'center', -bg =>
+ 'white')->grid(-row => $jrow+1, -column => $jcol, -padx => 1);
$wg{Entry} = $f->Entry(-textvariable => $wing_str, -width =>35, -justi
+fy => 'center')->grid(-row => $jrow + 2, -column => $jcol);
&apply_font;
MainLoop;
sub apply_font {
my $jwg;
foreach $jwg (sort {$a <=> $b} keys %wg) {
    $wg{$jwg}->configure(-font => 
               [-family => $family,
            -size => $size,
               ],
    );

}
}

[download]

In reply to Wingdings viewing problem in Tk application by merrymonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.