modifier un champs entry

**fandz** · 14/05/2010, 11h38

Bonjour,

je débute en perl/tk et il y a encore certain truc qui semble simple et qui pourtant me pose des problemes

voici mon code assez simple

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
sub sOption () {
    $fOption = $mw->Toplevel();
    $fOption->title("Fenêtre fille");
    $fOption->raise();
	my $cadreP = $fOption->LabFrame(-label => "Adresses IP des serveurs DNS",
		 -labelside => 'acrosstop')->pack;
 
 
	my $frame1 = $cadreP->Frame()->pack(-fill => 'x');
	$frame1->Label( -text => 'domaine : ')->pack(-side => 'left');
	my $domain1 = $frame1->Entry( )->pack(-side => 'left');  
	$frame1->Label( -text => 'Ip nominal : ')->pack(-side => 'left');
	my $ipPrim1 = $frame1->Entry()->pack(-side => 'left'); 
	$frame1->Label( -text => 'Ip bkp : ')->pack(-side => 'left');
	my $ipBkp1 = $frame1->Entry()->pack(-side => 'left');  
	my $frame2 = $cadreP->Frame()->pack(-fill => 'x');
	$frame2->Label( -text => 'domaine : ')->pack(-side => 'left');
	my $domain2 = $frame2->Entry( )->pack(-side => 'left');  
	$frame2->Label( -text => 'Ip nominal : ')->pack(-side => 'left');
	my $ipPrim2 = $frame2->Entry( )->pack(-side => 'left'); 
	$frame2->Label( -text => 'Ip bkp : ')->pack(-side => 'left');
	my $ipBkp2 = $frame2->Entry()->pack(-side => 'left');  
 
	$fOption->Button( 
	  -text => 'Afficher', 
	  -command => sub { 
		print $ipBkp1->get,"\n";
	  }, 
	)->pack( qw/ -side left/ ); 
	MainLoop;
}

dans ce code j'essaie de pré-remplir mes champs entry mais rien a faire.

j'ai essayé $frame2->Entry(-text => 'blabla') ou $frame2->Entry(-textvariable => 'blabla')
ca ne fonctionne pas.

de plus comment faire pour le modifier aprés la construction?

Merci d'avance

**djibril** · 14/05/2010, 12h03

Il faut soit utiliser l'option -textvariable, soit utiliser la méthode insert.

Code :

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

1
2
3
4
5
	my $domain1 = $frame1->Entry( )->pack(-side => 'left'); 
    $domain1->insert('end', "Mon domaine"); 
	$frame1->Label( -text => 'Ip nominal : ')->pack(-side => 'left');
	my $ip = "127.0.0.1";
    my $ipPrim1 = $frame1->Entry(-textvariable => \$ip,)->pack(-side => 'left');

**fandz** · 14/05/2010, 14h30

merci

le insert fonctionne trés bien, mon problème est résolu

par contre, si je veux effacer son contenu et en mettre en un autre (car si j'ai bien compris le insert permet d'ajouter du texte pas de l'effacer) il faut faire comment?