Discussion :

[Isabella83]

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]

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]

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]

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]

Je recommande l'usage de grid.

[Isabella83]

D'accord je vais essayer, merci !

[djibril]

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;