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