Wie lade ich einen PFAD?: Gibt es "getOpenDir"? - #42611 (Graphische Oberflächen)

Gerry

2004-08-30 14:47

User since
2004-08-18
26 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

in diesem Forum gibt es schöne Beispiele dafür, wie man einen Dialog erstellt, um mittels "getOpenFile" eine DATEI zu laden. Ich verwende hierzu den unten angehängten Code um ein PERL-Programm auf der Platte zu lokalisieren und in ein TEXT Fenster zu laden und das klappt auch ganz gut.

Nun möchte ich aber keine DATEI sondern ein VERZEICHNIS lokalisieren und laden. Ich habe deshalb nach "getOpenDir" oder "getOpenDirectory" usw. gesucht, leider ohne Erfolg.

Wer kann mir sagen wie ich am besten ein DIRECTORY indentifizieren und dieses dann in einem TEXT Fenster anzeigen kann? Gibt es vielleicht ein fertiges Beispiel dafür?

Code: (dl )

# *****************************************************************************
# ** Sub LADE PROGRAMM  *******************************************************
# *****************************************************************************
sub Load_Perl_Prog {                                      
     my $file_typ = [                                     
                    ['PERL Program', '.pl' ],             
                    ['All Files',    '*'   ],             
                    ];                                    
     my $dn = $mw->getOpenFile(-filetypes=>$file_typ);    
     if (defined $dn and $dn ne '') {                     
        $laden_entry->delete(0, 'end');                   
        $laden_entry->insert('end', $dn);                 
     }                                                    
}