getting font info?

[ngoc]

Hi
I have an application, I want to switch between large, small and system
defined font. How can I get system defined font? I mean, how can I write
perl code to get system defined font?

 

[ngoc]

Under most circumstances, Perl writes ASCII (or UTF8) characters to
standard output, a file, or some device. How these characters are
rendered depends upon the output device, not Perl. The font of
characters displayed on your screen is determined by the window
application (e.g. xterm), the window manager, and the operating system.
You have specified none of these.

Yes,
my $default_font = $mw->X11Font();
$list->configure(-font => $default_font);

does not work.