IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Interfaces Graphiques Perl Discussion :

[Perl/Tk] Utilisation de getOpenFile


Sujet :

Interfaces Graphiques Perl

  1. #1
    Membre du Club
    Inscrit en
    Avril 2009
    Messages
    128
    Détails du profil
    Informations forums :
    Inscription : Avril 2009
    Messages : 128
    Points : 43
    Points
    43
    Par défaut [Perl/Tk] Utilisation de getOpenFile
    Bonjour ,
    Je veux à l'aide d'un menu ouvrir selectionner un fichier et l'afficher
    voici mon code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    my $menu_bar = $fenetre->Menu( -type => "menubar", );
    $fenetre->configure( -menu => $menu_bar, );
    my $menu_ouvrir = $menu_bar->cascade( -label => 'Ouvrir', -tearoff => 0,
     -foreground => 'black',
     -command =>  \&open_file,
      -font       => '{Courrier New} 10 {bold}', );
    $menu_ouvrir->separator;
     
     
    sub open_file {
      my $open = $fenetre->getOpenFile(
                                  -defaultextension => '.txt'
      -initialdir => "/home/hp/Bureau/Master",
      -multiple   => 1,);
     
    }

    Alors pourquoi quand je clic sur e menu ouvrir rien ne se passe

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 818
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 818
    Points : 499 183
    Points
    499 183
    Par défaut
    Bonsoir,

    Que souhaites-tu concrètement faire ?
    As-tu regardé les codes se trouvant dans notre FAQ ?

Discussions similaires

  1. Réponses: 2
    Dernier message: 09/06/2006, 11h06
  2. Réponses: 1
    Dernier message: 10/05/2006, 20h45
  3. Réponses: 2
    Dernier message: 11/07/2002, 09h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo