Discussion :

[devel360]

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 :

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
 
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";
 
}

[djibril]

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

Code :

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

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

Je te laisse un peu chercher, relis la FAQ Perl/tk sur ces 2 options et tu comprendras

[devel360]

ouah c'est vache !

[djibril]

ouah c'est vache !

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

[devel360]

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 :

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
 
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 ;

[djibril]

tu n'utilises pas de

Code :

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

1
2
use warnings;
use strict;

pas bien. Bon je regarde ton code.