Discussion :

[pentahertz]

y a t-il un moyen de rendre la main au systeme comme dans visual basic
"do events" car pendant le traitement un bouton doit s'enlever mais il s'enleve qu'apres la fin du traitement

[minus]

Je ferais ca avec un thread si c'est pour que ton traitement se fasse en parrallele (si j'ai bien compris la question)

Sinon fais un tour sur les fonctions comme system ou exec, l'une de celles la devraient faire ton bonheur

[Jedai]

Je ferais ca avec un thread si c'est pour que ton traitement se fasse en parrallele (si j'ai bien compris la question)

Sinon fais un tour sur les fonctions comme system ou exec, l'une de celles la devraient faire ton bonheur

Attention, Tk ne fait pas bon ménage avec les threads... Il faut agir très prudemment pour éviter les erreurs fatales (restreindre l'utilisation de Tk à un seul thread est la seule solution "sûre"). Mais tu n'es pas vraiment obligé d'utiliser les threads si ton traitement n'est pas monolithique, il te suffit d'y rajouter la fonction DoOneEvent() à intervalle régulier (particulièrement dans une boucle).

--
Jedaï

[pentahertz]

y a t-il un moyen de rendre la main au systeme comme dans visual basic
"do events" car pendant le traitement un bouton remonte, mais il s'enleve qu'apres la fin du traitement je vous montre un exemple :

le bouton se releve apres les 10secondes d'attente dans del_bouton

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
#!/perl/bin/perl
use Tk ;
sub del_bouton
{ 
#attente 10secondes
sleep 10;
;}
#debut
$fenetre = new MainWindow ( ) ;
$fenetre -> geometry( "320x200" );
$fenetre -> title ( 'TEST' ) ;
 
$bt1 = $fenetre -> Button ( -font => "{Arial} 10" ,
                       -text => "bouton" , 
                    -command => sub { del_bouton();}
                     )  -> pack ();                     
$bt1 -> pack ( ) ;
MainLoop ( ) ;

c'est bien ce que je pensait

merci

le DoOneEvent(); résolu le pb d'affichage