Discussion :

[GLDavid]

Bonjour

Cette fois, je me lance dans Perl/Tk. Dans ce code, je lance d'abord un sélecteur de répertoire. Lorsque le répertoire est sélectionné, dans la fenêtre principal, le bouton de départ est remplacé par un champ de texte. Je voudrais afficher des messages dans ce champ de texte mais ça part en live :

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
 
use Tk;
use Tk::DirTree;
#use strict;
 
my($win) = MainWindow->new();
my($directory);
my($nom);
my($Texte);
my($button) = $win->Button(text => 'Choisir un répertoire', 
                       command => \&choose_dir);
$button->pack();
MainLoop();
 
sub choose_dir { 
my $top = $win->Toplevel();
$top->withdraw;
my $t = $top->Toplevel();
$t->title("Choose directory:");
my $ok = 0;
my $f = $t->Frame->pack(-fill => "x", -side => "bottom");
my $curr_dir="C:\\Sequest\\";
my $d;
$d = $t->Scrolled('DirTree',
		  -scrollbars => 'osoe',
		  -width => 35,
		  -height => 20,
		  -selectmode => 'browse',
		  -exportselection => 1,
		  -browsecmd => sub { $curr_dir = shift },
		  -command   => sub { $directory = $curr_dir;
		  								$ok = 1 },
		 )->pack(-fill => "both", -expand => 1);
$d->chdir($curr_dir);
$f->Button(-text => 'Ok',
	   -command => sub { $directory = $curr_dir;
	   						$ok =  1 })->pack(-side => 'left');
$f->Button(-text => 'Cancel',
	   -command => sub { $ok = -1 })->pack(-side => 'left');
$f->waitVariable(\$ok);
if ($ok == 1) {
    $top->destroy;
    &lance_chaine;
}
else {
	$top->destroy;
}
}
 
sub Relative_path {
   my($name) = @_;
   my($i) = rindex($name, '\\');
   my($nom) = substr($name, $i+1);
   return $nom;
}
 
sub copy {
   `copy @_[0] @_[1]`;
   my($xls) = @_[1]."\\interact-prot.xls";
   if ( -f $xls) {
      printf ("Copie du fichier interact-prot.xls dans votre répertoire %s.\n", @_[1]);
   }
   else {
      printf ("Erreur dans la copie !\nCependant, %s est présent dans %s.\n", @_[0], @_[1]);
   } 
}
 
sub lance_chaine {
	chdir $directory;
	$nom = &Relative_path($directory);
	$button->destroy;
	$Texte = $win->Text->pack();	
        #Voici la ligne qui plante
	#$Texte->insert("Sample", "end");
}

Where's the mistake ???

Merci de vos réponses !

@++

[Choupi]

Code :

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

1
2
my($button) = $win->Button(-text => 'Choisir un répertoire',
                       -command => \&choose_dir);

Petit oubli tu "-" devant text et command.

marche chez moi maintenant. Je t'admire pour ta vitesse de production tu as un fan !

[GLDavid]

Exactly Choupi !
Bon, la faute à l'internet qu'a pas mis les "-" !! .

Merci !!

@++