Opened by Gerry at 2004-08-30 14:47
User since
2004-08-18
26 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-08-18
26 Artikel
BenutzerIn
Hallo renee,
danke für den Hinweis auf "Use::Filebasename". Hiermit habe ich zumindest mal eine (wenn auch unschöne) Umgehung meines Problemes. Dieser Code hier liefert nun tatsächlich den PFAD zurück, obwohl ich erst eine DATEI in diesem PFAD auswählen muss:
PS: Dein Codeschnipsel habe ich auch schon gesehen und er bietet eben auch kein WINDOWS LOOK AND FEEL ... aber es wäre besser als nichts "vernünftiges" zu haben. Sollte ich bei meiner Suche auf einen "echten" DIR OPEN Dialog stoßen, so poste ich das Ding hier rein ....
danke für den Hinweis auf "Use::Filebasename". Hiermit habe ich zumindest mal eine (wenn auch unschöne) Umgehung meines Problemes. Dieser Code hier liefert nun tatsächlich den PFAD zurück, obwohl ich erst eine DATEI in diesem PFAD auswählen muss:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# *****************************************************************************
# ** Sub LADE PATH ************************************************************
# *****************************************************************************
sub Load_Path {
my $file_typ = [
['PERL Program', '.pl' ],
['All Files', '*' ],
];
my $dn = $mw->getOpenFile(-filetypes=>$file_typ);
my $file = $dn;
my $dn = dirname($file);
print "Pfad ist: $dn";
if (defined $dn and $dn ne '') {
$laden_entry->delete(0, 'end');
$laden_entry->insert('end', $dn);
}
}
PS: Dein Codeschnipsel habe ich auch schon gesehen und er bietet eben auch kein WINDOWS LOOK AND FEEL ... aber es wäre besser als nichts "vernünftiges" zu haben. Sollte ich bei meiner Suche auf einen "echten" DIR OPEN Dialog stoßen, so poste ich das Ding hier rein ....