Placement des elements

**Isabella83** · 05/12/2012, 11h33

Bonjour à tous,

J'ai un petit soucis pour le placement de mes widget dans ma fenêtre.
J'ai fait ceci :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $fenetre_principale = MainWindow->new( -title => 'Visualisation' );
$fenetre_principale->Label( -text => 'Gene (FBgn) : ')->pack();
my $entry = $fenetre_principale->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry,
); 
 
my $mycanvas = $fenetre_principale->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500",
);
 
my $widget_texte = $fenetre_principale->Scrolled('Text', 
	-scrollbars => 'oe',
	-setgrid=>'single',
);
 
my $clear_button = $fenetre_principale->Button(-text => "Clear",
                   -command => sub { $widget_texte->delete('0.0','end'), 
			$entry->delete(0,'end');}
);
# sequence du transcript
my $bouton = $fenetre_principale->Button( 
	-text => 'Sequence', 
);
 
$entry->pack();  
$bouton->pack(); 
$clear_button->pack(); 
$mycanvas->pack();  
$widget_texte->pack();  
 
MainLoop;

Mais j'aimerai que mon champs, entry et mes 2 boutons soient placé les un à coté des autres.
J'ai essayé avec

Code :

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

pack(side=>'letf');

pour chacun d'entre eux, mais cela me les place à gauche de mon widget text ...
Merci d'avance pour votre aide !

**djibril** · 05/12/2012, 13h22

Avant de t'aider, je te recommande de lire la FAQ. C'est la base à maitriser en Tk. Il y a une longue explication sur le gestionnaire d'espace.

**Isabella83** · 05/12/2012, 14h26

Oui j'ai lu la FAQ perl, j'ai essayé avec "place", en faisant ceci :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $fenetre_principale = MainWindow->new( -title => 'Visualisation' );
$fenetre_principale->Label( -text => 'Entrez le FBgn : ')->place(-x => 100, -y => 5 );
my $entry = $fenetre_principale->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry,
)->place(-x => 200, -y => 5 ); 
 
my $mycanvas = $fenetre_principale->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500",
);
 
my $widget_texte = $fenetre_principale->Scrolled('Text', 
	-scrollbars => 'oe',
	-setgrid=>'single',
);
 
# sequence du transcript
my $bouton = $fenetre_principale->Button( 
	-text => 'Sequence', 
)->place(-x => 300, -y => 5);
 
my $clear_button = $fenetre_principale->Button(-text => "Clear",
                   -command => sub { $widget_texte->delete('0.0','end'), 
			$entry->delete(0,'end');}
)->place(-x => 400, -y => 5);
 
 
 
#$entry->pack();  
#$bouton->pack(); 
#$clear_button->pack(); 
$mycanvas->pack();  
$widget_texte->pack();  
 
MainLoop;

Cela fonctionne bien quand j'affiche le Label et le Entry, mais quand je veux ajouter les deux bouttons, il n'y a plus que ces deux derniers qui sont affichés ... Je dois louper quelque chose !

**Isabella83** · 05/12/2012, 15h59

En fait, j'ai un problème dans l'affichage dès que je mets place pour le clear_button, comment ça se fait que je ne puisse pas le placer ?
Faut t'il que je reserve une place spéciale pour Entry, Label et Button, et que je les place ensuite à cet endroit là ?

**djibril** · 05/12/2012, 17h01

Je recommande l'usage de grid.

**Isabella83** · 05/12/2012, 17h02

D'accord je vais essayer, merci !

**Isabella83** · 06/12/2012, 10h08

Bonjour,
J'ai fais comme vous me l'avez conseillé avec "grid" , et cela fonctionne très bien :

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
my $frame = $mw ->Frame(-bg=>'grey')->grid( -row => 2, -column => 15 
);
$frame ->Label( -text => 'Entrez votre FBgn: ')->grid( -row => 0, -column => 1, -columnspan => 2,-rowspan => 2
);
$frame->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry)->grid( -row => 0, -column => 4, -columnspan => 2,-rowspan => 2
); 
$frame->Button( -text => "Sequence")->grid( -row => 0, -column => 6 , -columnspan => 2,-rowspan => 2
);
$frame->Button(-text => "Clear")->grid( -row => 0, -column => 8 , -columnspan => 2,-rowspan => 2
);
MainLoop;

En revanche, lorsque j'essaie d'ajouter mon canvas comme ceci :

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
31
32
33
34
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
my $frame = $mw ->Frame(-bg=>'grey')->grid( -row => 2, -column => 15 
);
$frame ->Label( -text => 'Entrez votre FBgn: ')->grid( -row => 0, -column => 1, -columnspan => 2,-rowspan => 2
);
$frame->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry)->grid( -row => 0, -column => 4, -columnspan => 2,-rowspan => 2
); 
$frame->Button( -text => "Sequence")->grid( -row => 0, -column => 6 , -columnspan => 2,-rowspan => 2
);
$frame->Button(-text => "Clear")->grid( -row => 0, -column => 8 , -columnspan => 2,-rowspan => 2
);
 
my $mycanvas = $mw->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500",
);
$mycanvas->pack();  
#$widget_texte->pack();  
 
MainLoop;

Cela ne fonctionne plus ... Faut il que je crée un autre Frame, pour y inserer mon canvas ? Je ne peux pas utiliser pack et grid c'est bien ca ?

**djibril** · 06/12/2012, 10h11

Deux gestionnaires différents ne peuvent pas être utilisés dans le même cadre.

**Isabella83** · 06/12/2012, 10h12

Cadre = MainWindow ?

**djibril** · 06/12/2012, 10h14

Un Frame est un cadre. MainWindows est également une fenêtre, un cadre spécial pouvant contenir des cadres.

**Isabella83** · 06/12/2012, 10h30

D'accord,
donc en fait, j'ai voulu créer un autre Frame, de façon à pouvoir y placer mon canvas de cette façon :

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
31
32
33
34
35
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
my $frame = $mw ->Frame(-bg=>'grey')->grid( -row => 2, -column => 9 
);
$frame ->Label( -text => 'Entrez votre FBgn: ')->grid( -row => 0, -column => 1, -columnspan => 1,-rowspan => 2
);
$frame->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry)->grid( -row => 0, -column => 4, -columnspan => 1,-rowspan => 2
); 
$frame->Button( -text => "Sequence")->grid( -row => 0, -column => 6 , -columnspan => 1,-rowspan => 2
);
$frame->Button(-text => "Clear")->grid( -row => 0, -column => 8 , -columnspan => 1,-rowspan => 2
);
my $other = $frame->Frame(-bg=>'red'
)->pack(); 
my $mycanvas = $other->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500",
);
$mycanvas->pack();  
#$widget_texte->pack();  
 
MainLoop;

Mais ça ne fonctionne pas .... où est ce que je fais mal ?
Car quand je fais comme ceci, le rendu ne me plais pas ... Je trouve les Entry, et Button trop espacés ...

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
31
32
33
34
35
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
my $frame = $mw ->Frame(-bg=>'grey')->grid( -row => 2, -column => 9 
);
$frame ->Label( -text => 'Entrez votre FBgn: ')->grid( -row => 0, -column => 1, -columnspan => 1,-rowspan => 2
);
$frame->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry)->grid( -row => 0, -column => 4, -columnspan => 1,-rowspan => 2
); 
$frame->Button( -text => "Sequence")->grid( -row => 0, -column => 6 , -columnspan => 1,-rowspan => 2
);
$frame->Button(-text => "Clear")->grid( -row => 0, -column => 8 , -columnspan => 2,-rowspan => 2
);
my $other = $frame->Frame(-bg=>'red')->grid( -row => 2, -column => 1, -columnspan => 9
); 
my $mycanvas = $other->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500",
);
$mycanvas->grid();  
#$widget_texte->pack();  
 
MainLoop;

**djibril** · 06/12/2012, 10h33

Pourquoi tu n'utilises pas grid pour ton canvas ?

**Isabella83** · 06/12/2012, 10h34

Je viens d'editer mon message, en fait en utilisant grid, le rendu ne me plait pas !

**Isabella83** · 06/12/2012, 11h06

En fait j'ai simplifié : et j'ai vu à quoi servait l'option -sticky !!

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
31
32
33
34
35
36
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
#my $frame = $mw ->Frame(-bg=>'grey')->grid( -row => 2, -column => 9 
#);
my $label = $mw ->Label( -text => 'Entrez votre FBgn: '
);
my $entry = $mw->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry
); 
my $button_sequence = $mw->Button( -text => "Sequence"
);
my $button_clear = $mw->Button(-text => "Clear"
);
 
my $mycanvas = $mw->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500"
);
 
$label->grid($entry,$button_sequence,$button_clear,-sticky => 'nsew');
$mycanvas ->grid(-columnspan=>'4');  
#$widget_texte->pack();  
 
MainLoop;

**djibril** · 06/12/2012, 11h48

Autre exemple :

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
31
32
33
34
35
36
37
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Bio::SeqIO;
use List::MoreUtils qw/ uniq /; 
 
my $FBgn_entry;
 
my $mw = new MainWindow;
$mw -> title("Visualisation");
my $label = $mw ->Label( -text => 'Entrez votre FBgn: '
);
my $entry = $mw->Entry( 
	-background => 'white',
	-textvariable => \$FBgn_entry
); 
my $button_sequence = $mw->Button( -text => "Sequence"
);
my $button_clear = $mw->Button(-text => "Clear"
);
 
my $mycanvas = $mw->Scrolled('Canvas',
	-scrollbars=>'oe',
	- background => 'white',
	-width => "1000" , 
	-height => "500"
);
 
$label->grid($entry,$button_sequence,$button_clear,-sticky => 'new');
$mycanvas->grid(-columnspan=>'4', ,-sticky => 'nsew');  
 
$mw->gridColumnconfigure(2, -weight => 1);
$mw->gridRowconfigure(1, -weight => 1);
 
 
MainLoop;

Placement des elements

Interfaces Graphiques Perl

Discussions similaires

Partager

Partager