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;