Opened by GoodFella at 2007-06-05 17:25
User since
2007-01-09
192 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-01-09
192 Artikel
BenutzerIn
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:
Abgesehen davon ist der Dialog grottenhässlich :)
Weiss jemand ein bessere Möglichkeit? Vielleicht getOpenFile irgendwie modifizieren?\n\n
<!--EDIT|GoodFella|1181050001-->
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
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/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
<!--EDIT|GoodFella|1181050001-->