For Programmers: Free Programming Magazines  


Home > Archive > PerlTk > April 2004 > Re: font problem with Perl/Tk









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Re: font problem with Perl/Tk
Steve Lidie

2004-04-15, 11:47 am


On Apr 14, 2004, at 9:54 PM, Bernard Giroux wrote:

> I searched the archives about this, but...
>
> I'm writing a small Perl/Tk application in which I use the symbol font
> to display gr letters. This script runs fine under linux, but the
> symbol characters do not display correctly under Apple's X11 (I rather
> have bitmap letters). xlsfonts gives me
>
> xlsfonts | grep symbol
> -adobe-symbol-medium-r-normal--0-0-100-100-p-0-adobe-fontspecific
> -adobe-symbol-medium-r-normal--0-0-75-75-p-0-adobe-fontspecific
> -adobe-symbol-medium-r-normal--10-100-75-75-p-61-adobe-fontspecific
> -adobe-symbol-medium-r-normal--11-80-100-100-p-61-adobe-fontspecific
> -adobe-symbol-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific
> -adobe-symbol-medium-r-normal--14-100-100-100-p-85-adobe-fontspecific
> -adobe-symbol-medium-r-normal--14-140-75-75-p-85-adobe-fontspecific
> -adobe-symbol-medium-r-normal--17-120-100-100-p-95-adobe-fontspecific
> -adobe-symbol-medium-r-normal--18-180-75-75-p-107-adobe-fontspecific
> -adobe-symbol-medium-r-normal--20-140-100-100-p-107-adobe-fontspecific
> -adobe-symbol-medium-r-normal--24-240-75-75-p-142-adobe-fontspecific
> -adobe-symbol-medium-r-normal--25-180-100-100-p-142-adobe-fontspecific
> -adobe-symbol-medium-r-normal--34-240-100-100-p-191-adobe-fontspecific
> -adobe-symbol-medium-r-normal--8-80-75-75-p-51-adobe-fontspecific
>
> I can see symbol characters in xfontsel. I also noticed that xfs is
> not running on my system.
>
> I have a pretty standard installation: Panther with X11 1.0 and the
> X11 sdk. I have fink on my machine, but if I recall correcly, I
> installed the Perl/Tk package manually (which I also did on the linux
> box).
>
> Any ideas? Could it be my Tk installation? From what I understand,
> Perl/Tk relies on X11 to display fonts.

I am not a font person, but a test case would help. What version of
Perl? What version of Tk?

That said, you really want to re-ask your question where Perl/Tk folks
hang out - either the mailing list ptk@lists.standord.edu (already CCed
above) or the newsgroup comp.lang.perl.tk.

However, this works for me on Panther with Perl 5.8.2 and Tk 804.026:

#!/usr/local/bin/perl -w
use Tk;
use strict;

my $mw = MainWindow->new;
$mw->geometry( '300x100' );
my $l = $mw->Label( -text => 'Hello world' )->pack;

while( my $font = <DATA> ) {
chomp $font;
$l->configure( -font => $font );
$l->idletasks;
$l->after( 1000 );
}

__DATA__
-adobe-symbol-medium-r-normal--0-0-100-100-p-0-adobe-fontspecific
-adobe-symbol-medium-r-normal--0-0-75-75-p-0-adobe-fontspecific
-adobe-symbol-medium-r-normal--10-100-75-75-p-61-adobe-fontspecific
-adobe-symbol-medium-r-normal--11-80-100-100-p-61-adobe-fontspecific
-adobe-symbol-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific
-adobe-symbol-medium-r-normal--14-100-100-100-p-85-adobe-fontspecific
-adobe-symbol-medium-r-normal--14-140-75-75-p-85-adobe-fontspecific
-adobe-symbol-medium-r-normal--17-120-100-100-p-95-adobe-fontspecific
-adobe-symbol-medium-r-normal--18-180-75-75-p-107-adobe-fontspecific
-adobe-symbol-medium-r-normal--20-140-100-100-p-107-adobe-fontspecific
-adobe-symbol-medium-r-normal--24-240-75-75-p-142-adobe-fontspecific
-adobe-symbol-medium-r-normal--25-180-100-100-p-142-adobe-fontspecific
-adobe-symbol-medium-r-normal--34-240-100-100-p-191-adobe-fontspecific
-adobe-symbol-medium-r-normal--8-80-75-75-p-51-adobe-fontspecific


Steve

>
> Thanks
>
> Bernard
>
> _____________________________________
> Bernard Giroux, ing., Ph.D.
> Associi de recherche - giophysique appliquie
>
> http://geo.polymtl.ca/~giroux
> ________________________________________
_______
> x11-users mailing list | x11-users@lists.apple.com
> Help/Unsubscribe/Archives:
> http://www.lists.apple.com/mailman/listinfo/x11-users
> Do not post admin requests to the list. They will be ignored.

-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu
Nick Ing-Simmons

2004-04-16, 8:37 am

Steve Lidie <sol0@lehigh.edu> writes:
>On Apr 14, 2004, at 9:54 PM, Bernard Giroux wrote:
>

This approach is "ok" for Tk800 which doesn't do Unicode.
For Tk804 although I think core tk's weird font fallback scheme
should find Gr glyphs in a symbol font you are probably better
off installing Gr fonts. (e.g. 8859-7

-*-*-*-*-*-*-*-*-*-*-*-*-iso8859-7

Many Japansese and Chinese fonts also have gr glyphs.

In Tk804 you are "expected" to use Unicode characters for gr glyphs.
So if you write 'S' you get 'S'. (If the specified font doesn't have an S it
it will use an normal font which does have 'S' glyph.)
if you want 'Σ' then write "\x{03a3}" or

use charnames ':full'; # see docs
and then
"\N{GREEK CAPITAL LETTER SIGMA}"

[color=darkred]
>
>I am not a font person, but a test case would help. What version of
>Perl? What version of Tk?
>
>That said, you really want to re-ask your question where Perl/Tk folks
>hang out - either the mailing list ptk@lists.standord.edu (already CCed
>above) or the newsgroup comp.lang.perl.tk.
>
>However, this works for me on Panther with Perl 5.8.2 and Tk 804.026:
>
>#!/usr/local/bin/perl -w
>use Tk;
>use strict;
>
>my $mw = MainWindow->new;
>$mw->geometry( '300x100' );
>my $l = $mw->Label( -text => 'Hello world' )->pack;
>
>while( my $font = <DATA> ) {
> chomp $font;
> $l->configure( -font => $font );
> $l->idletasks;
> $l->after( 1000 );
>}
>
>__DATA__
>-adobe-symbol-medium-r-normal--0-0-100-100-p-0-adobe-fontspecific
>-adobe-symbol-medium-r-normal--0-0-75-75-p-0-adobe-fontspecific
>-adobe-symbol-medium-r-normal--10-100-75-75-p-61-adobe-fontspecific
>-adobe-symbol-medium-r-normal--11-80-100-100-p-61-adobe-fontspecific
>-adobe-symbol-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific
>-adobe-symbol-medium-r-normal--14-100-100-100-p-85-adobe-fontspecific
>-adobe-symbol-medium-r-normal--14-140-75-75-p-85-adobe-fontspecific
>-adobe-symbol-medium-r-normal--17-120-100-100-p-95-adobe-fontspecific
>-adobe-symbol-medium-r-normal--18-180-75-75-p-107-adobe-fontspecific
>-adobe-symbol-medium-r-normal--20-140-100-100-p-107-adobe-fontspecific
>-adobe-symbol-medium-r-normal--24-240-75-75-p-142-adobe-fontspecific
>-adobe-symbol-medium-r-normal--25-180-100-100-p-142-adobe-fontspecific
>-adobe-symbol-medium-r-normal--34-240-100-100-p-191-adobe-fontspecific
>-adobe-symbol-medium-r-normal--8-80-75-75-p-51-adobe-fontspecific
>
>
>Steve
>
>
>-++**==--++**==--++**==--++**==--++**==--++**==--++**==
>This message was posted through the Stanford campus mailing list
>server. If you wish to unsubscribe from this mailing list, send the
>message body of "unsubscribe ptk" to majordomo@lists.stanford.edu


-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu
Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com