Conserver la taille initiale d'un frame

Version imprimable

Bonjour,

J'ai créé un frame de 200 pixels de haut. Mais dès que j'insère un widget à l'intérieur, mon frame s'adapte à la taille de son contenu.
Je souhaite que la taille du frame reste constante car j'ai mis des bordures
et je voudrais que ça ne bouge pas.

Puis résoudre ce pb simplement ?
Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
sub listerFichier {
  my $roText ;
 
  $f = $frameCentral->Frame(-background => 'white', -height => 200)->pack(-fill => 'both', -expand => 1) ;
  $f->Button( -text => 'Choisir le répertoire à lister',
              -command => [ \&choisirRepertoire , \$roText ]
             )->pack(-fill => 'both') ;
 
  # Hauteur en nombre de lignes uniquement
  print "Hauteur frameCentral avant : " . $frameCentral->height . "\n";
 
  $roText = $f->Scrolled('ROText', -height => 10, -width=> 40, -scrollbars => 'osoe')->pack ;
 
  #$frameCentral->configure(-height => 200) ;
 
  $mw->update ;
  print "Hauteur frameCentral après : " . $frameCentral->height . "\n";
 
}

23/04/2010, 12h03
djibril

Cela provient de tes options de ton pack associé au frame :

Code:

-fill => 'both', -expand => 1

Je te laisse un peu chercher, relis la FAQ Perl/tk sur ces 2 options et tu comprendras ;)
23/04/2010, 12h10
devel360

ouah c'est vache ! :wink::wink:
23/04/2010, 12h12
djibril

Citation:

Envoyé par devel360

ouah c'est vache ! :wink::wink:

Cherche un peu, si tu ne trouves pas, on est là :mouarf:

J'ai dégraissé mon code pour tester + facilement. Voici un exemple testable.
C'est le fait de rajouter le Button qui rétércit le frame.
Je pense avoir compris le role de -fill et -expand et je ne vois pas trop quoi faire, ni trop ou chercher ds la FAQ.

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
 
use Tk ;
 
# Cadrer avec un frame
$mw = MainWindow->new( -title => q/Annuaire d'entreprise/, -background => 'white')  ;
 
# Largeur x Hauteur
$mw->geometry('600x600') ;
 
$mw->setPalette('powder blue') ;
#$mw->chooseColor ;
 
$frameMenu = $mw->Frame(-background => 'pink', -height => '100')->pack(-fill => 'both') ;
 
# $frameCentral
# Le fait de mettre une hauteur rend le frame visible même si ne contient rien
$frameCentral = $mw->Frame( -height => 300, -relief => 'groove', -borderwidth => 2, -background => 'green' )
                            ->pack(-fill => 'both') ; 
 
 
$f = $frameCentral->Frame(-background => 'white', -height => 300)->pack(-fill => 'both') ;
 
 
#
 
# Commenter / Décommenter cette ligne => chnage la taille du frame
$f->Button( -text => 'Choisir le répertoire à lister' )->pack() ;
 
 
MainLoop ;

23/04/2010, 13h56
djibril
tu n'utilises pas de
Code:

1 2 use warnings; use strict;
pas bien. Bon je regarde ton code.
23/04/2010, 14h04
devel360

Si, si, j'utilise tout bien comme il faut :ccool:. J'ai juste épuré.

Bon, je me suis arraché les cheveux car je ne me souvenais plus :mouarf:. Bon voici la solution. Il faut utiliser la méthode packPropagate de (Tk::Pack) pour empêcher qu'un cadre ne recalcule dynamiquement sa taille.

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
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk;
 
# Cadrer avec un frame
my $mw = MainWindow->new( 
-title => "Annuaire d'entreprise", 
-background => 'white' 
);
 
# Largeur x Hauteur
$mw->geometry('600x600');
 
$mw->setPalette('powder blue');
 
#$mw->chooseColor ;
 
my $frameMenu = $mw->Frame(
  -background => 'pink',
  -height     => '100'
)->pack( -fill => 'both' );
 
# $frameCentral
# Le fait de mettre une hauteur rend le frame visible même si ne contient rien
my $frameCentral = $mw->Frame(
  -height      => 300,
  -relief      => 'groove',
  -borderwidth => 5,
  -background  => 'green'
)->pack( -fill => 'both' , -expand => 0,  );
$frameCentral->packPropagate(0);
 
 
# Commenter / Décommenter cette ligne => chnage la taille du frame
$frameCentral->Button( -text => 'Choisir le répertoire à lister' )->pack();
 
MainLoop;

23/04/2010, 15h09
devel360

Un grand merci Djibril, je n'aurais pas trouvé aussi rapidement tout seul.
Il y a tellement de détail à mémoriser mais ça commence à rentrer.
23/04/2010, 15h13
djibril

Citation:

Envoyé par devel360

Un grand merci Djibril, je n'aurais pas trouvé aussi rapidement tout seul.
Il y a tellement de détail à mémoriser mais ça commence à rentrer.

N'hésite pas à compléter la liste ici.
23/04/2010, 15h23
devel360

Que faut il faire exactement par rapport à la FAQ ?
Je clique sur FAQ et je rajoute ma question + ta réponse ?
Merci
23/04/2010, 15h36
djibril

NON :mouarf:.

En fait, c'est moi qui la fait régulièrement évoluer. Lorsque vous avez des questions qui pourraient être intéressantes de mettre dans la FAQ perl TK ou même Perl, il faut poster un message dans le poste FAQ Perl/Tk du sous forum Interfaces Graphiques ou dans le poste FAQ et rubrique Perl officielles !!! du sous forum langage.

Ces deux postes me permettent de garder une traçabilité des demandes et ensuite, j'essaye de répondre à ces questions pour les mettre dans les FAQs. Bien évidemment, si vous avez également des réponses à ses questions, n'hésitez pas non plus.