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