[web] getOpenFile Module Tk

Bonjour a tous,

Mon probleme est le suivant j ai trouver un une tit methode toute sympa avec les module tk pour selectionner un fichier sur le disque.

Ca fonctionne tres bien qd je selectionne un fichier. Ms je voudrais faire une multi selection, alors j ai lu sur le site qu il fallait rajouter -multiple.
Hors qd je le fais ca deconne rien ca plante le prog faut-il rajouter autre chose que multiple ?

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

use Tk ;   $fenetre = new MainWindow ( ) ;   $fenetre -> Button ( -text => 'Ouvrir Fichier' , -command => sub { $nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\') ; # sous Windows print "$nom_fichier\n" ; } ) -> pack ( -padx => 5 , -pady => 5 ) ;   MainLoop ( ) ;   Je dois rajouter kwa ?

---

Code:

---

1 2	$nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\',-multiple,...

---

si tu veux selectionner plusieurs fichiers, tu devras faire plusieurs boutons de selection. Impossible de faire une selection multiple sur les fichiers (même en html, t'es obliger de faire plusieurs boutoun parcourir), faut pas trop demander à l'informatique qd même :lol: :D
A toi de faire un truc dynamique. Si l'utilisateur veut selectionner 3 files, alors 3 boutons s'affichent, etc

Ms sur le site il est marque :

-multiple
Allows the user to choose multiple files from the Open dialog.

Ca veut dire kwa alors ?

Ou alors il y a pas moyen de selectionner un repertoire a la place d un fichier ? comme ca je recupere l emplcement et je peux taper tout le contenu du repertoire quelque part ?

fais voir l'adresse du site!!

http://aspn.activestate.com/ASPN/docs/ActivePerl/site/lib/Tk/getOpenFile.html

ok, j'ai vu et essayé. connais pas l'option multiple

Code:

---

1 2 3 4 5 6 7 8

Tk::Error: unknown option "-multiple", must be -defaultextension, -filetypes, -initialdir, -initialfile, -parent or -title at C:/Perl/site/lib/Tk.pm line 271. Tk callback for tk_getOpenFile [\&main::__ANON__] Tk callback for .button Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 228 Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111 (command bound to event)

---

Bande de petit veinard j ai trouver comment l utiliser :p lol

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

use Tk ;   $fenetre = new MainWindow ( ) ;   $fenetre -> Button ( -text => 'Ouvrir Fichier' , -command => sub { $nom_fichier = $fenetre -> getOpenFile ( -initialdir => 'c:\\',-multiple => 'c:\\' ) ; # sous Windows print "$nom_fichier\n" ; } ) -> pack ( -padx => 5 , -pady => 5 ) ;   MainLoop ( ) ;

---

bah ça marche pas chez moi 8O 8O .
j'ai la version Tk 800.024:
Peut etre faut il installer la new version 804.026

j'ai mis à jours le module Tk de Tk 800.024: à 804.026 et ça marche, nickel!!!
une chose de plus apprise :lol: