Re: font problem with Perl/Tk
Re: font problem with Perl/Tk
- Subject: Re: font problem with Perl/Tk
- From: Steve Lidie <email@hidden>
- Date: Thu, 15 Apr 2004 09:06:28 -0400
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 greek 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 email@hidden (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 | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/x11-users
Do not post admin requests to the list. They will be ignored.
_______________________________________________
x11-users mailing list | email@hidden
Help/Unsubscribe/Archives: http://www.lists.apple.com/mailman/listinfo/x11-users
Do not post admin requests to the list. They will be ignored.