Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

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

by zentara (Archbishop)
on Sep 04, 2012 at 16:42 UTC ( #991653=note: print w/ replies, xml ) Need Help??


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;

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
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;
    version did exactly what I was looking for!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://991653]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (11)
As of 2014-10-20 08:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (73 votes), past polls