perl/tk centrer une fenetre

Philippe wrote:

comment centrer une fenêtre à l'écran ?

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw=MainWindow->new;

$mw->withdraw; # empêche affichage immédiat (anti-clignotement)
# code ici pour remplir $mw
$mw->Popup; # affichage de $mw au centre de l'écran

MainLoop;

__END__

--
J-L.M.

Jean-Louis MOREL wrote:

Philippe wrote:

comment centrer une fenêtre à l'écran ?

#!/usr/bin/perl -w
use strict;
use Tk;

my $mw=MainWindow->new;

$mw->withdraw; # empêche affichage immédiat (anti-clignotement)
# code ici pour remplir $mw
$mw->Popup; # affichage de $mw au centre de l'écran

MainLoop;

__END__

--
J-L.M.
Ok, merci Jean-Louis

a+