system font

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

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

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->Lis
tbox(-font => $font)->pack->insert("end", @INC);MainLoop;'
>
> Regards,
>         Slaven
>

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