ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/Genquire/gb_flat.cfg
Revision: 1.1
Committed: Mon Jan 14 20:49:30 2002 UTC (14 years, 6 months ago) by markw
Branch: MAIN
CVS Tags: Release4, HEAD_NEW, HEAD
Log Message:
added gb_flat.cfg

Line File contents
1 use Bio::SeqIO;
2 use Tk;
3 use Tk::widgets qw(FileSelect);
4
5 my $gbflatmw = MainWindow->new;
6 my $FileMW = $gbflatmw->FileSelect(
7 -width => 30);
8 $gbflatmw->withdraw;
9 my $Filename = $FileMW->Show;
10
11 unless ($Filename){ return undef};
12 $FileMW->destroy;
13 $gbflatmw->destroy;
14
15 my $SIO = Bio::SeqIO->new(-file=> $Filename, -format => 'genbank');
16 my $SeqObj = $SIO->next_seq();
17
18 if ($SeqObj) { #successful connection
19 use GQ::Server::GBFlat::Context;
20 $context=GQ::Server::GBFlat::Context->new($SeqObj);
21 } else {
22 die "failed to connect to Genbank Flat File $Filename";
23 }