For Programmers: Free Programming Magazines  


Home > Archive > PerlTk > August 2004 > system font









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 system font
ngoc

2004-08-18, 3:56 am

Hi
I make an application that have default system font option.

use Tk::X11Font;
my $default_font = $mw->X11Font();
$list_box->configure(-font => $default_font);

it do not work

output of print $default_font is

-baekmuk-batangbdf-bold-r-normal--10-100-75-75-m-100-ksc5601.1987-0

Thanks
ngoc

Slaven Rezic

2004-08-18, 8:57 pm

ngoc <ngoc@yahoo.no> writes:

> Hi
> I make an application that have default system font option.
>
> use Tk::X11Font;
> my $default_font = $mw->X11Font();
> $list_box->configure(-font => $default_font);
>
> it do not work
>
> output of print $default_font is
>
> -baekmuk-batangbdf-bold-r-normal--10-100-75-75-m-100-ksc5601.1987-0
>


Can you specify "can't work"? This works for me (Tk800.024, FreeBSD
4.9):

perl -MTk -MTk::X11Font -e '$mw=tkinit;$font= $mw->X11Font(); $mw->Listbox(-font => $font)->pack->insert("end", @INC);MainLoop;'

Regards,
Slaven

--
Slaven Rezic - slaven <at> rezic <dot> de
BBBike - route planner for cyclists in Berlin
WWW version: http://www.bbbike.de
Perl/Tk version for Unix and Windows: http://bbbike.sourceforge.net
ngoc

2004-08-19, 3:57 am

When I choose system font, nothing is displayed. But when I choose two
fonts below, it displays the content as expected.
$fixed_font_large='-adobe-courier-medium-r-normal-*-16-*-*-*-*-*-iso8859-1';
$fixed_font_small='-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-iso8859-1'

The same with your script.
I test on my Linux Redhat WS 3. It does not show the content of @INC
I change @INC to 'test'. It does not show 'test' neither.
Thanks
ngoc
Slaven Rezic wrote:
> ngoc <ngoc@yahoo.no> writes:
>
>
>
>
> Can you specify "can't work"? This works for me (Tk800.024, FreeBSD
> 4.9):
>
> perl -MTk -MTk::X11Font -e '$mw=tkinit;$font= $mw->X11Font(); $mw->Listbox(-font => $font)->pack->insert("end", @INC);MainLoop;'
>
> Regards,
> Slaven
>


Ala Qumsieh

2004-08-19, 4:04 pm

ngoc wrote:

> When I choose system font, nothing is displayed. But when I choose two
> fonts below, it displays the content as expected.
> $fixed_font_large='-adobe-courier-medium-r-normal-*-16-*-*-*-*-*-iso8859-1';
> $fixed_font_small='-adobe-courier-medium-r-normal-*-12-*-*-*-*-*-iso8859-1'
>
> The same with your script.
> I test on my Linux Redhat WS 3. It does not show the content of @INC
> I change @INC to 'test'. It does not show 'test' neither.


I get a similar behaviour. With the default font, nothing appears. But,
it seems that the font is transparent since I can select the first few
lines in the Listbox. I tested on Linux RedHat 7.2 and on Solaris 5.8.

--Ala
Sponsored Links







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

Copyright 2008 codecomments.com