Discussion :

[showlap1]

Bonjour,

Suite aux conseils de djibril, j'ai lu les tutos et la doc du site.

Voici un code me produisant une erreur que je ne comprend pas lorsque je clique sur le bouton et ensuite n'importe où dans la fenêtre.
Pourriez-vous m'expliquer pourquoi est-ce que j'ai ce résultat ?

main.pl :

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
use utf8;
use Tk;
use Tk::BrowseEntry;
 
#Declrarer variables
my $fen_principale;
 
#Creer la fentetre principal
$fen_principale = MainWindow->new();
$fen_principale->minsize( '800', '600' );
$fen_principale->title("TEST");
 
 
#Remplir frame centrale pour choisir
my $choix;
my $liste_deroulante;
 
$liste_deroulante = $fen_principale->BrowseEntry(
	-label              => 'Ligne : ',
	-variable           => \$choix,
	-state              => 'readonly',
	-disabledforeground => 'black'
)->pack();
 
# ajouter nom
 
$liste_deroulante->insert( 'end', "coucou" );
 
my $bouton = $fen_principale->Button(
	-text    => 'Valider',
	-command => sub {
		$liste_deroulante->destroy();
	}
);
 
# placer les widgets
$liste_deroulante->pack();
$bouton->pack();
 
#boucle d'interception des evenements
MainLoop;
 
 
__END__

Erreur :

Tk::Error: Can't call method "butUp" on an undefined value at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/Tk/BrowseEntry.pm line 375.
<ButtonRelease-1>
(command bound to event)

Merci beacuoup.

[djibril]

Ce que tu fais n'as pas trop de sens. Tu supprimes le widget browseEntry (la liste déroulante) après un clic sur valider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$liste_deroulante->destroy();

[showlap1]

Ce que tu fais n'as pas trop de sens. Tu supprimes le widget browseEntry (la liste déroulante) après un clic sur valider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$liste_deroulante->destroy();

Heu oui biensur c'est juste pour l'exemple. On peut remplacer "Valider" par "Supprimer la liste déroulante" si aide à comprendre le code...

Enfin je suppose que le libellé du bouton n'a rien à voir avec l'erreur...

[djibril]

Enfin je suppose que le libellé du bouton n'a rien à voir avec l'erreur...

non.

Sinon Tu as mis la main sur un bug et je n'ai pas la réponse .
Donc pour l'instant, vaut mieux éviter de faire un destroy sur un browseentry.

[showlap1]

non.

Sinon Tu as mis la main sur un bug et je n'ai pas la réponse .
Donc pour l'instant, vaut mieux éviter de faire un destroy sur un browseentry.

Lol première interface et je trouve un bug

Bon plus sérieusement ça ne va pas m'arranger...mais bon on fera avec !

Merci.

[djibril]

Sinon voici une méthode pour contourner ce problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$liste_deroulante->packForget();

à la place de destoy.

Ce qui donne ceci :

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
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Tk;
use Tk::BrowseEntry;
 
my $fen_principale = MainWindow->new();
my $choix;
my $liste_deroulante = $fen_principale->BrowseEntry(
  -label              => 'Ligne : ',
  -variable           => \$choix,
  -state              => 'readonly',
  -disabledforeground => 'black'
)->pack();
$liste_deroulante->insert( 'end', "hello" );
 
my $bouton = $fen_principale->Button(
  -text    => 'Valider',
  -command => sub {
    if ( defined $liste_deroulante and Exists($liste_deroulante)  ) {
      $liste_deroulante->packForget();
    }
  }
)->pack();
 
MainLoop;

Et ça fonctionne très bien.
En faite, packForget fait disparaitre le widget, mais ce dernier n'est pas détruit. Il n'est juste plus géré par le gestionnaire d'espace pack.