Garder application TK en avant plan

Version imprimable

01/04/2010, 11h39
devel360

Garder application TK en avant plan

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
01/04/2010, 13h18
djibril

Faut jouer avec le focus. Regarde notre FAQ.
03/04/2010, 20h13
devel360

Focus

J'ai testé
$main->focus et $main->focusForce mais mon appli est tjs derriere l'IDE.
04/04/2010, 15h59
devel360

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

1 2 $mw->raise ;
10/04/2010, 14h19
devel360

Finalement, ça ne marche pas systématiquement . . .
C'est pas très clair pour moi.
10/04/2010, 15h14
djibril

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.

Le code est archi basic.

Voici un exemple :

Code:

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.

10/04/2010, 16h05
devel360

Quand à la FAQ je la connais presque par coeur :P et je dois dire qu'elle m'a bien servi pour apprendre TK.
10/04/2010, 19h00
djibril

Citation:

Envoyé par devel360

Quand à la FAQ je la connais presque par coeur :P et je dois dire qu'elle m'a bien servi pour apprendre TK.

Tant mieux alors :ccool: ! 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.
;)

Code:

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;

Prends l'habitude de mettre tes procédures en fin de programme et de bien indenter ton code. Utilise aussi les modules strict et warnings.

Code:

1
2
use strict;
use warnings;

J'ai enlevé focusForce dans ta procédure. Sinon moi je n'ai pas ton souci, le programme fonctionne bien chez moi.

12/04/2010, 17h12
devel360

Merci !
pour l'histoire de l'avant plan, J'utilise open perl ide et je suis sous windows.