my $Dir = $main->Frame(....);
my $DirDialog = $Dir->FileDialog(-Title=>'A title',
                                 -Create=>0,
                                 -SelDir=>1);
my $DirDialog->configure(-FPat=>'*',
                         -ShowAll=>'NO');
my $DirName = $DirDialog->Show(-Path => $APathName);