Re: How to print a Euro symbol (€) in a PerlTk Label widget.

[zentara]

in reply to How to print a Euro symbol (€) in a PerlTk Label widget.

Here is another example:

#! /usr/bin/perl
use Tk;
use charnames ':full';

my $top = new MainWindow;

$top->Label(-bg=> 'white', 
                     -font =>['Arial',18,], -text =>"Euro sign: \x80")
+->pack;

$top->Label(-bg=> 'white', 
                    -text => "This is the euro sign: \N{EURO SIGN}")->
+pack;

$top->Label(-bg=> 'white', 
     -font => "-misc-fixed-bold-r-normal--13-120-75-75-c-70-iso8859-15
+",
    -text => "Euro sign: \x80")->pack;

MainLoop;

[Ba1rdsy]

Thanks very much, the

$top->Label(-bg=> 'white', 
                    -text => "This is the euro sign: \N{EURO SIGN}")->
+pack;

version did exactly what I was looking for!