Set Directory Font in FileSelect

[Makena2016]

Hello. I'm using FileSelect in a PERL/TK program. However, the font size is too small. If I change the font size with the -font option, it only changes the font size for the list of files. It doesn't change the font size for the list of directories, or action buttons. There doesn't seem to be an option to change those fonts. Does anyone know how I can change those fonts? Here's the example code:

    my $MainWindow = MainWindow->new;
    my $fs = $MainWindow->FileSelect(-font => "Arial 24");
    $fs->Show;
    MainLoop;

If you run the above in a PERL script, the font size for the list of files will be large (Arial 24), but for everything else, it's tiny.

[beech]

See Tk::WidgetDump for figuring out widgets, slightly easier than reading the source (of Tk::FileSelect)

If you don't want all children to have same font size, select the child you want, use $fs->Subwidget('dir_entry')...

#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
use Tk::WidgetDump;
my $mw = Tk::MainWindow->new;
my $fs = $mw->FileSelect( -font => "Arial 24" );
FontForKids( $mw , "Arial 24" );
$mw->WidgetDump; 
$fs->Show;
sub FontForKids {
    my( $mw , $font ) = @_;
    my @kids = $mw->children ;
    while( @kids ){
        my $kid = shift @kids;
        push @kids, $kid->children;
        eval { $kid->configure( -font => $font ); 1 }
##        or warn $@;
    }
    return $mw;
}

[GotToBTru]

Put together a short, self-contained, correct example. Very difficult to troubleshoot a problem without knowing how you're putting things together.

Likely, the control you want is outside of Tk::FileSelect. It looks like it is chiefly concerned with selecting files, and not how they are displayed.