Discussion :

[Slippers]

Failed to AUTOLOAD 'Tk::Frame::gridRemove' at C:\Documents and Settings\Benoit\My Documents\Perl\prog\interface graphique\test10.pl line 32


Quelqu un peut me dire ce que ceux dire cette erruer ca veux dire kwa AUTOLOAD failed je dois rajouter un use la lib est mauvaise ???

[GLDavid]

Salut Slippers

2 remarques :
1) Ton titre de thread n'est pas très accrocheur ni explicite.
2) Il faudrait que tu nous montres ton script, plus précisément cette fameuse ligne 32.

merci d'avance.

@++

[Slippers]

Bon je vais essayer d etre plus explicite =). Je dois trouver un moyen de faire une matrice de widget (j utilise des module Tk). Chose que j ai trouve sur un tutoriel plutot bien foutu.

je met le code d un exemple:

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
 
#!/perl/bin/perl
 
use Tk ;
 
@Etiquettes = (
                'Identifiant : ' , 'Nom :' , 'Prénom :' , 'Ville : ' , 'Code postal :' ,
                'Téléphone :' , 'Fax :' , 'e-mail :'
              ) ;
@Valeurs = ( ) ;
 
sub Valider
{
    print "@Valeurs\n" ;
}
 
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( 'Infos' ) ;
 
$c_infos = $fenetre -> Frame ( -relief => 'sunken' , -borderwidth => 2 ) ;
 
for ( $i = 0 ; $i <= $#Etiquettes ; $i++ )
{
   $c_infos -> Label (
                       -text => $Etiquettes[$i] ,
                       -anchor => 'w'
                     ) -> grid ( -row => $i , -column => 0 , -sticky => 'w' ) ;
 
   $c_infos -> Entry (
                       -textvariable => \$Valeurs[$i]
                     ) -> grid ( -row => $i , -column => 1 , -sticky => 'e' ) ;
}
 
$c_infos -> pack ( -side => 'top' , -pady => 2 , -ipadx => 2 , -ipady => 2 ) ;
 
$b_valider = $fenetre -> Button (
                                  -text => 'Valider' ,
                                  -command => \&Valider
                                ) -> pack ( -side => 'left' , -padx => 20 ) ;
 
$b_quitter = $fenetre -> Button (
                                  -text => 'Quitter' ,
                                  -command => sub { exit ( 0 ) ; }
                                ) -> pack ( -side => 'right' , -padx => 20 ) ;
 
MainLoop ( ) ;

Mais pour mon programme cette matrise doit pouvoir etre reinitialisée.

Pour ma part j ai trouver la methode gridRemove ms helas pour moi elle deconne donc j essaye de la placer ds le code genre :

Code :

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

1
2
3
4
5
6
7
8
 
   $c_infos -> Entry (
                       -textvariable => \$Valeurs[$i]
                     ) -> grid ( -row => $i , -column => 1 , -sticky => 'e' ) ;
}
[b]$c_infos->gridRemove;[/b]
 
$c_infos -> pack ( -side => 'top' , -pady => 2 , -ipadx => 2 , -ipady => 2 ) ;

et j obtiens l erreur si dessous

Failed to AUTOLOAD 'Tk::Frame::gridRemove' at C:\Documents and Settings\Benoit\My Documents\Perl\prog\interface graphique\test10.pl line 32

Donc ma qt est la suivante comment utiliser cette methode ? ou existe t il une autre facon de remettre la matrise a 0

[nematoad]

Je me demande si tu n'as pas une super vieille version de Tk. Est-ce que ceci fonctionne ?

Code :

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

$c_infos->grid('remove');

Que donne

Code :

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

perl -MTk -le "print qq{$Tk::VERSION}"

[Slippers]

Qd j' utilise le grid->('remove') ca fonctionne pas il me met l erreur Tk::Error: Failed to AUTOLOAD 'Tk::Widget::gridRemove'

Qd je fais l'autre commande il me print 804.027, command je dois faire pour installer une version plus evoluée ? Si c ca le probleme?