#! /usr/bin/perl


use strict;
use Tk;

my $window;

$window = new MainWindow (); 
$window -> title("maintenance du reseau");
$window -> minsize(qw(500 830));

$window -> Button (
   -text => "afficher",
   -command => \&fenetre
) -> pack ();

MainLoop ();

sub fenetre {
   my $f_sec;
   my $liste;
   $f_sec = $window -> Toplevel ();
   $liste = $f_sec -> Listbox (
      -selectmode => 'single'
   ) -> pack ();
   $liste -> insert (0, "toto", "titi");

   $f_sec -> Button (
      -text => "valider",
      -command => \&valider                                  #---> 1ere solution
#      -command => sub {&valider; $f_sec -> destroy();}      #---> 2eme solution
   ) -> pack ();

   sub valider {
      my @selectListe;
      my $selectListe;
      @selectListe = $liste -> curselection ();               #--->
      $selectListe = $liste -> get($selectListe[0]);          #---> Les deux lignes qui posent problème pour la 2eme solution
      print $selectListe."\n";
      $f_sec -> destroy ();                                   #---> ligne suprimée pour la 2eme solution
   }   
}