Directory Selection Dialog?: Verzeichnis über Dialogfenster wählen (Graphische Oberflächen)

bony

2004-04-30 19:42

User since
2004-04-30
18 Artikel
BenutzerIn

Hallo,

gibt es eigentlich eine Möglichkeit, einen "Directory Selection Dialog" aufzurufen, ähnlich dem "File Selection Dialog"-Beispiel unter /perl/bin/widget, bzw. /perl/site/lib/TK/demos/widget_lib/filebox.pl?
Man klickt also einen Browse-Button und erhält nun über ein Popup die Möglichkeit ein Verzeichnis auszuwählen, um den Pfad in ein Textfeld zu übernehmen.

Christoph

renee

2004-04-30 19:45

User since
2003-08-04
14371 Artikel
ModeratorIn

schon mal probiert -SelDir => 1 zu setzen beim FileDialog??

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

renee

2004-04-30 19:47

User since
2003-08-04
14371 Artikel
ModeratorIn

Oder Du benutzt TK::DirTree (siehe http://www.perltk.org/articles/filedialogs/filedialogs.html)

Sogar mit Beispiel: http://www.perltk.org/articles/filedialogs/dirtree.pl.txt\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

ptk

2004-04-30 20:21

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Oder mit modernen Tks (>= 804.026): $mw->chooseDirectory.

bony

2004-04-30 20:40

User since
2004-04-30
18 Artikel
BenutzerIn

Danke für die schnellen Antworten!

Quote
schon mal probiert -SelDir => 1 zu setzen beim FileDialog??

Leider weiß ich nicht genau, wo ich diesen Schalter setzen muss.
Bin ganz neu in TK - vielleicht sollte ich mich einfach noch genauer einlesen.

TK::DirTree habe ich mir auch schon überlegt, gefällt mir aber nicht so sehr.

Das mit den modernen TKs muss ich mal abchecken, danke.

Crian

2004-05-03 13:59

User since
2003-08-04
5870 Artikel
ModeratorIn

Naja, so ein Aufruf sieht ja irgendwie so aus:

Code: (dl )

                    my $typen = [
                        ['txt-Format',    '.txt'                          ],
                        ['out-Format',    '.out'                          ],
                        ['xml-Format',    '.xml'                          ],
                        ['XXXXX-Dateien', ['.txt', '.out', '.xml', '.ana']],
                        ['Alle',          '*'                             ],
                    ];
                    my $dn = $mw->getOpenFile(-filetypes  => $typen,
                                              -initialdir => '.',
                                             );

                    if (defined $dn and $dn ne "") {
                        $Konfig{quelle}  = $dn;
                        $Konfig{maxsize} = -s $Konfig{quelle};
                        $mw->update();
                    }

Und da, wo hier initialdir etc. angegeben wird, kannst Du entsprechend auch andere Optionen setzen.\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

bony

2004-05-03 14:13

User since
2004-04-30
18 Artikel
BenutzerIn

Ok, danke. Die Option "selDir" scheint es nicht zu geben, zumindest nicht in meiner Version.

Crian

2004-05-03 15:16

User since
2003-08-04
5870 Artikel
ModeratorIn

Ich kannte die auch noch nicht :-)

Bei mir gibts aber auch nur

Quote
-defaultextension => *extension*
Specifies a string that will be appended to the filename if the user
enters a filename without an extension. The default value is the
empty string, which means no extension will be appended to the
filename in any case. This option is ignored on the Macintosh
platform, which does not require extensions to filenames.

-filetypes => [*filePattern* ?, ...?]
If a File types listbox exists in the file dialog on the particular
platform, this option gives the *filetype*s in this listbox. When
the user choose a filetype in the listbox, only the files of that
type are listed. If this option is unspecified, or if it is set to
the empty list, or if the File types listbox is not supported by the
particular platform then all files are listed regardless of their
types. See "SPECIFYING FILE PATTERNS" below for a discussion on the
contents of *filePattern*s.

-initialdir => *directory*
Specifies that the files in *directory* should be displayed when the
dialog pops up. If this parameter is not specified, then the files
in the current working directory are displayed. This option may not
always work on the Macintosh. This is not a bug. Rather, the
*General Controls* control panel on the Mac allows the end user to
override the application default directory.

-initialfile => *filename*
Specifies a filename to be displayed in the dialog when it pops up.
This option is ignored by the getOpenFile method.

-title => *titleString*
Specifies a string to display as the title of the dialog box. If
this option is not specified, then a default title is displayed.
This option is ignored on the Macintosh platform.

Hmmm... Perl 5.8.0, Tk weiß nicht ...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2004-05-03 15:30

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich schau nochmal, wo ich das her habe... War in irgendeiner online-doku... Ausprobiert habe ich es selbst noch nicht...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

bony

2004-05-03 15:53

User since
2004-04-30
18 Artikel
BenutzerIn

Ich nutze TK Version 800.024 und Perl 5.8.3.809 von ActiveState. Das Programm soll mal unter Windows laufen. Die Installation einer höheren TK-Version dürfte da nicht allzu einfach sein. Vielleicht werde ich es halt doch mit TK::DirTree versuchen - besser als nichts.