Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jl_morel
Dans l'article <Qy9%d.35736$, jean- a dit...
Est-il possible de créer une fenêtre qui contient des contrôles qui se redimensionnent automatiquement selon la taille de celle-ci ?
Aucun exemple de l'ouvrage Perl Tk (O'Reilly) ne fournit cette fonctionnalités ou alors je ne l'ai trouvé.
C'est le rôle du "Geometry Manager". Voir le chapitre 2 de "Mastering Perl/Tk".
Avec pack il faut utiliser l'option -fill et éventuellemnt -expand. Dans le script démo suivant le widget entry se redimensionne horizontalement et le bouton verticalement.
#!/usr/bin/perl -w use strict; use Tk;
my $mw = MainWindow->new;
my $e=$mw->Entry()->pack(-fill => 'x');
my $b=$mw->Button(-text=>'Glop !')->pack(-expand => 1, -fill => 'y', ); MainLoop();
__END__
-- J-L.M.
Dans l'article <Qy9%d.35736$Of5.22956@nntpserver.swip.net>, jean-
michel.caricand@laposte.net a dit...
Est-il possible de créer une fenêtre qui contient des contrôles qui se
redimensionnent automatiquement selon la taille de celle-ci ?
Aucun exemple de l'ouvrage Perl Tk (O'Reilly) ne fournit cette
fonctionnalités ou alors je ne l'ai trouvé.
C'est le rôle du "Geometry Manager".
Voir le chapitre 2 de "Mastering Perl/Tk".
Avec pack il faut utiliser l'option -fill et éventuellemnt -expand.
Dans le script démo suivant le widget entry se redimensionne
horizontalement et le bouton verticalement.
#!/usr/bin/perl -w
use strict;
use Tk;
my $mw = MainWindow->new;
my $e=$mw->Entry()->pack(-fill => 'x');
my $b=$mw->Button(-text=>'Glop !')->pack(-expand => 1,
-fill => 'y',
);
MainLoop();
Est-il possible de créer une fenêtre qui contient des contrôles qui se redimensionnent automatiquement selon la taille de celle-ci ?
Aucun exemple de l'ouvrage Perl Tk (O'Reilly) ne fournit cette fonctionnalités ou alors je ne l'ai trouvé.
C'est le rôle du "Geometry Manager". Voir le chapitre 2 de "Mastering Perl/Tk".
Avec pack il faut utiliser l'option -fill et éventuellemnt -expand. Dans le script démo suivant le widget entry se redimensionne horizontalement et le bouton verticalement.
#!/usr/bin/perl -w use strict; use Tk;
my $mw = MainWindow->new;
my $e=$mw->Entry()->pack(-fill => 'x');
my $b=$mw->Button(-text=>'Glop !')->pack(-expand => 1, -fill => 'y', ); MainLoop();
