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
Partager