Tk::SimpleFileSelect - Legacy-Dialog zur Dateiauswahl

Tk::SimpleFileSelect ist das gleiche wie der Dateidialog getOpenFile(). Das Widget ist als Alternative zu Tk::FileSelect gedacht, mit dem Unterschied, dass das Widget Tk::SimpleFileSelect nicht prüft, ob die ausgewählte Datei existiert.


Beispiel

Nachfolgendes Beispiel startet ein MainWindow und ruft sofort den Dialog aus (ohne Klick auf einen Button). Das Ergebnis wird in der Konsole angezeigt.

#!perl

use strict;
use warnings;
use utf8;
use Tk;
use Tk::SimpleFileSelect;

my $mw = Tk::MainWindow->new;

my $fs = $mw->SimpleFileSelect();
my $file = $fs->Show();

print "selected file: " . $file;

$mw->MainLoop();
exit(0);

So sieht der Dateidialog Tk::SimpleFileSelect aus

Top