Bonjour tout le monde,

Voici mon soucis, j'ai une TList et un boutton dans une première fenêtre à l'aide du bouton j' ouvre un nouvelle fenêtre (ceci est fait).

Ensuite, je fais une sélection dans ma TList puis je presse le boutton.

La fenêtre s'ouvre correctement mais je ne reçois rien de ma sélection.

Pour obtenir la sélection, j'ai testé ('selectionIncludes') selon le CPAN :
http://search.cpan.org/~srezic/Tk-80...st.pod#EXAMPLE

Cette méthode renvoie un booléen soit 1 si la sélection s'est correctement produite ou bien 0 si il y a ERREUR

Et bien sûr je reçois ... 0 (au moins j'ai un retour ^^).

Si quelqu'un peu m'aider pour résoudre ce soucis, merci d'avance.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
sub new 
	{
		my $classe = @_; 
		my $self = {};
		bless($self);
		return $self;
	}
 
 
sub initAffichage
	{
 
	my $scrollbar;
	my $self = shift;
 
 
 
	if (@_) { @{ $self->{initAffichage} } = @_ } 
 
	$self = MainWindow->new(-height=> '1000');
			$self->title("Consultation");	   
			$self->geometry("1000x600+300+300"); # Taille (L*l) + disposition à l'affichage	
 
			my $bar_consult_dispo = $self->Frame(-relief => 'groove' , -borderwidth => 2);
 
			my $menu_bar_consult_dispo = $bar_consult_dispo->Menubutton(
																		-text => 'Application',		# Libel du bouton
																		-font => '{Garamond} 10',	# Police
																		-tearoff => 0,
																		-menuitems => [
																						[
																						'command' => 'Quitter',
																						-font => '{Garamond} 10',
																						-command => sub {$self->destroy}
																						]
														  							  ]		  
																		);
			$menu_bar_consult_dispo -> pack(-side => 'left');
			# Affichage barre de menu ancrée en [haut au centre de la fenêtre -->y] [haut sur le tout le long de la fenêtre]
			$bar_consult_dispo -> pack(-side => 'top', -anchor => 'n', -fill =>'x');
 
			### Frame pour la liste de selection ###
			my $frame 		= $self  -> Frame()-> pack(-side => 'left') ;
 
 
			our $tListTitres= $frame ->TList (-width => '300',
											  -foreground => 'blue',
											  -height => '100',
											  -orient => 'vertical',
					                          );
 
			our $tList 		= $frame -> TList(-width => '300',
											  -foreground => 'brown',
											  -height => '100',
											  -orient => 'vertical',
											  -selectmode => 'single',
					                          );
 
			### Frame pour les bouttons d evennements ###
 
	        our $boutonEmprunt  = $frame		-> Button (	-text => "Emprunter",
	        												-activebackground => 'blue',
								 						   	-command => \&traitement
								 		 				  )->pack();						   	
 
	}
 
# Cette fonction execute la requete SQL 
#					et affiche les résultats
sub execRequest
{
 
	#my $self = shift;
	# verifier ici que l'entrée correspond bien à une requete SQL
 
	#my $maConnexion = Connect -> new();
	#$maConnexion = Connect::connect_me();
 
			my $maConnexion = DBI->connect("dbi:Pg:dbname=video_club;host=127.0.0.1", 'gerant', 'mdp') || die DBI::errstr;
 
			# Requete pour récupérer les informations concernant les ressources
			my  $requete = "SELECT * ";
				$requete.= "FROM ressource ";
				$requete.= "order by titre;";
 
			my $sth = $maConnexion -> prepare($requete);
			$sth-> execute();
 
 
			#########      Nourrir la fenêtre de consultation      #########
			# Création de tableau pour ordonner la fenêtre de consultation #
 
 
 
			our $tListTitres -> insert	('1', -itemtype => 'text', -text => 'TITRE'."\t\t\t\t\t".
																		'DATE SORTIE'."\t\t".
																		'REALISATEUR'."\t\t\t".
																		'EXEMPLAIRES'
																		);
			#$tListTitres	->pack(-expand=>'yes', -fill=>'both') ;																		
 
			while (my @enr = $sth -> fetchrow_array())
			{
 
				our @idRessources	=	($enr['0']); # On récupère l'ID mais sans l'afficher
 
				our @tabResultat  	=	( $enr['2'], $enr['3'], $enr['4'], $enr['5']) ;
 
 
				our $tList  -> insert	('2', -itemtype => 'text', -text => $tabResultat[0]."\t".
																		$tabResultat[1]."\t".
																		$tabResultat[2]."\t".
																		$tabResultat[3]
										);
			}
 
 
			our $tList 		-> pack (-expand=>'yes', -fill=>'both') ;
 
 
			our $testAffich = $tList -> selection('') ;
			$sth->finish;
 
}
 
sub traitement
{
	my $element 	= shift ;
	my $fenEmprunt 	= MainWindow->new(-height=> '1000');
	$fenEmprunt		->title("Acceuil - Video_Club V 0.1");	   
	$fenEmprunt		->geometry("900x500+250+250");
 
	#my $monAffichage= Consultation::execRequest() ;
	#$monAffichage	= 
 
	foreach $element ($testAffich)
    {
        $fenEmprunt   	-> Label (-text => $testAffich)->pack();
    }
 
	#my @selection = our $tList -> curselection() ;
 
}
 
 
1;