Ordner selektieren ähnlich wie getOpenFile? (Allgemeines zu Perl)

[thread]9067[/thread]

Ordner selektieren ähnlich wie getOpenFile?

GoodFella

2007-06-05 17:25

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

Habe das hier gefunden:

http://groups.google.de/group....d3a3b8d

..funktioniert leider nicht, er sagt mir jedesmal, es sei kein Verzeichnis, ist ja kein Wunder, das Modul hängt ja auch ein Sternchen an den Pfad ran. Klickt man nur auf Accept ohne etwas auszuwählen, dann enthält der Rückgabewert statt des aktuellen Vrz gar nichts.

Hier mein Testscript:

Code: (dl )

#!/usr/bin/perl

use Tk;
use Tk::FileSelect;
use strict;
use warnings;

my $mw = new MainWindow();
my $fs;
my $btn = $mw->Button( -text => 'Durchsuchen', -command => sub { $fs = $mw->FileSelect(-directory => '.', -verify    => ['-d']); print $fs->Show;  } )->pack(); 

MainLoop;

Abgesehen davon ist der Dialog grottenhässlich :)
Weiss jemand ein bessere Möglichkeit? Vielleicht getOpenFile irgendwie modifizieren?\n\n

GoodFella

2007-06-05 17:40

User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]

hat sich erledigt, Tk::DirSelect macht was ich will..

Code: (dl )

#!/usr/bin/perl

use Tk;
use Tk::DirSelect;
use strict;
use warnings;

my $main = new MainWindow();
my $ds = $main->DirSelect( -title => 'Ordner wählen', -width => 60, -height => 50);
my $btn = $main->Button( -text => 'Durchsuchen', -command => sub {  print $ds->Show('.'); exit;} )->pack();
MainLoop;

..Allerdings hätte ich mir Windows-Standard-Optik gewünscht..

View all threads created 2007-06-05 17:25.