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

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;
[download]

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

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

Replies are listed 'Best First'.
Re^2: How to print a Euro symbol (€) in a PerlTk Label widget. by Ba1rdsy (Initiate) on Sep 05, 2012 at 07:42 UTC
Thanks very much, the `$top->Label(-bg=> 'white', -text => "This is the euro sign: \N{EURO SIGN}")-> +pack;` [download] version did exactly what I was looking for!	[reply] [d/l]

In Section Seekers of Perl Wisdom