Garder application TK en avant plan

**devel360** · 01/04/2010, 11h39

Bonjour,

J'ai une petite appli Tk, que je lance à partir de mon environnement de développement PERLIDE sous Windows. Lorsque je clique sur un bouton ma fenetre tk passe sous la fenetre de l'IDE (par contre elle reste devant les autres applis windows).

Y a t'il un moyen pour garder ma fenetre en avant plan ?
Merci d'avance

**djibril** · 01/04/2010, 13h18

Faut jouer avec le focus. Regarde notre FAQ.

**devel360** · 03/04/2010, 20h13

J'ai testé
$main->focus et $main->focusForce mais mon appli est tjs derriere l'IDE.

**devel360** · 04/04/2010, 15h59

J'ai résolu mon problème avec :

Code :

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

1
2
 
$mw->raise ;

**devel360** · 10/04/2010, 14h19

Finalement, ça ne marche pas systématiquement . . .
C'est pas très clair pour moi.

**djibril** · 10/04/2010, 15h14

Le but de raise est de réafficher un widget après que ce dernier ait été iconifié ou caché. Donc tu ne l'utilises pas dans son vrai rôle.
Tu dois normalement utiliser les focus. Maintenant, il se peut que l'application qui lance ton perl a de toute façon le focus principal sur tout. Et je vois pas ce que tu peux faire de plus.

Peux tu nous montrer ton code perl/tk ?

Pense aussi à consulter notre FAQ Perl/Tk.

**devel360** · 10/04/2010, 16h03

Le code est archi basic.

Voici 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
 
use Tk ;
 
sub majMessage {
print "@_" ;
  my ($rcase1, $rcase2, $rcase3) = @_ ;
  $message = "Case 1 : $$rcase1 | Case 2 : $$rcase2 | Case 3 : $$rcase3\n" ;
  $mw->focusForce ;
}
 
$mw = MainWindow->new(-background => 'white') ;
$mw->focusForce ;
 
$checkbutton1 = $mw->Checkbutton( -background => 'white', -text => 'Case à cocher 1' ,
                                  -variable => \$case1, -command => [ \&majMessage, \$case1, \$case2, \$case3  ] )->pack ;
$checkbutton2 = $mw->Checkbutton( -background => 'white', -text => 'Case à cocher 2' ,
                                  -variable => \$case2, -command => [ \&majMessage, \$case1, \$case2, \$case3  ] )->pack ;
$checkbutton3 = $mw->Checkbutton( -background => 'white', -text => 'Case à cocher 3' ,
                                  -variable => \$case3, -command => [ \&majMessage, \$case1, \$case2, \$case3  ] )->pack ;
 
$mw->Label(-background => 'white', -textvariable => \$message )->pack ;
 
MainLoop ;

La fenetre se met en arrière plan dès que je clique sur une checkbox.
Je ne suis pas sûr en effet que je puisse faire quelque chose.

**devel360** · 10/04/2010, 16h05

Quand à la FAQ je la connais presque par coeur

et je dois dire qu'elle m'a bien servi pour apprendre TK.

**djibril** · 10/04/2010, 19h00

Envoyé par devel360

Quand à la FAQ je la connais presque par coeur

et je dois dire qu'elle m'a bien servi pour apprendre TK.

Tant mieux alors

! Je l'ai écrite afin d'aider tous ceux qui veulent apprendre Perl/TK ou bien ont besoin d'informations rapidement ou d'astuces diverses. Il ne faut pas hésiter de donner des avis, propositions ou questions que vous souhaiteriez voir dans la FAQ. elle est pour vous.

**djibril** · 10/04/2010, 19h13

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
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk;
use utf8;
 
my ( $case1, $case2, $case3, $message ) = ();
my $mw = MainWindow->new( -background => 'white' );
$mw->focusForce;
 
my $checkbutton1 = $mw->Checkbutton(
  -background => 'white',
  -text       => 'Case à cocher 1',
  -variable   => \$case1,
  -command    => [ \&majMessage, $mw, \$case1, \$case2, \$case3 ]
)->pack;
my $checkbutton2 = $mw->Checkbutton(
  -background => 'white',
  -text       => 'Case à cocher 2',
  -variable   => \$case2,
  -command    => [ \&majMessage, $mw, \$case1, \$case2, \$case3 ]
)->pack;
my $checkbutton3 = $mw->Checkbutton(
  -background => 'white',
  -text       => 'Case à cocher 3',
  -variable   => \$case3,
  -command    => [ \&majMessage, $mw, \$case1, \$case2, \$case3 ]
)->pack;
 
$mw->Label( -background => 'white', -textvariable => \$message )->pack;
 
sub majMessage {
  print "@_";
  my ( $mw, $rcase1, $rcase2, $rcase3 ) = @_;
  $message = "Case 1 : $$rcase1 | Case 2 : $$rcase2 | Case 3 : $$rcase3\n";
  $mw->focus;
}
 
MainLoop;