The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

Filedialog

$fd=Paw::Filedialog::new([$height], [$width], [$name], [$dir]);

Parameter

     $height    => Anzahl der Reihen [optional]

     $width     => Anzahl der Spalten [optional]

     $name      => Name des Widgets [optional]

     $dir       => Das Verzeichnis in dem der Filedialog starten soll
                   ("." default) [optional]

Wen der Filedialog mit dem "Ok-Button" verlassen wird, so gibt er ein Array aller markierten Filenamen zurueck.

Beispiel

     $fd=Paw::Filedialog::new(dir=>"/etc");

set_dir($path)

Setzt das Verzeichnis in dem der Filedialog starten soll

Beisiel

     $fd->set_dir();       # start in "."
     $fd->set_dir("/etc"); # start in "/etc"

get_dir($scalar)

Gibt den Pfad zurueck in dem sich die Filedialogbox befindet.

Beispiel

     $path=$fd->get_dir();  #$path = "/etc" (for example).

draw()

Stellt die Filedialogbox am Schirm da. Wenn die Box ueber ``Ok'' geschlossen wird, so gibt sie ein Array aller markierten Filenamen (ohne Pfad) zurueck. Wird die Box ueber ``Cancel'' verlassen, erfolgt keine Rueckgabe der marktierten Files.

Beispiel

     @files=$fd->draw();

set_border([``shade''])

aktiviert den Rahmen der Box. Optional auch mit Schatten.

Beispiel

     $box->set_border("shade"); or $win->set_border();