Newsgroup: it.comp.lang.perl
Titolo: TK

Salve.
Ho un problema.
Dopo aver eseguito l'aggiornamento dell'interprete perl Activestate dalla
built .804 alla .810, i miei script che prevedevano l'impiego di TK, non
girano più.
Qualcuno ne sa qualcosa? A dire la verità non ho ancora cercato in rete,
perchè me ne sono appena accorto...speravo in un rapido aiuto...Grazie e
Auguri.
stefano
PS.incollo struttura della parte grafica di uno script:
#!/usr/bin/perl -w
use Bio::SeqIO;
use Cwd;
use Sys::Hostname;
use Tk;
use Tk::LabEntry;
$mw = MainWindow->new;
$mw->title("InFastaX beta 1.0");
$mb = $mw->Frame(-relief => 'ridge', -bd => 1)->pack(-side => 'top', -fill
=> 'x');
$mb->Menubutton(-text => "File",
                -underline => 0,
                -activeforeground => "white",
                -activebackground => "RoyalBlue",
                -tearoff => 0,
                -menuitems => [ [ 'command' => "Open...",
                                          -command => \&open_file,
                                          -underline => 0],
                                #[ 'command' => "Save as...",
                                #          -command => \&save_file,
                                #          -underline => 0],
                                #"-",
                                [ 'command' => "Exit",
                                          -command => \&exit,
                                          -underline => 0 ] ])->pack(-side
=> 'left', -anchor => 'w');
$mb->Menubutton(-text => "Help",
                -underline => 0,
                -activeforeground => "white",
                -activebackground => "RoyalBlue",
                -tearoff => 0,
                -menuitems => [[ 'command' => "Contents...",
                                          -command => \&help,
                                          -underline => 0],
                                        [ 'command' => "About InFastaX...",
                                          -command => \&about,
                                          -underline => 0 ] ])->pack(-side
=> 'left', -anchor => 'w');
$f = $mw->Frame( -relief => 'ridge', -bd => 1)->pack(-side => 'top', -fill
=> 'x');
$f->LabEntry(-label =>"GeneBank batch file: ",
             -labelPack =>["side" => "left"],
             -textvariable => \$filename)->pack(-side => 'left', -anchor =>
'w', -fill => 'x', -expand => 1, -padx => 2);
$f->Button(-text => "Convert",
           -command => \&convert_file)->pack(-side => 'left', -anchor =>
'e', -fill => 'x', -expand => 1, -padx => 2, -pady => 2);
$f->Button(-text => "Clear",
           -command =>  \&clear_out )->pack(-side => 'bottom', -expand =>
1, -padx => 2, -pady => 2);
$mw->Label(-textvariable => \$info,
           -relief => 'ridge')->pack(-side => 'bottom', -fill => 'x');
$t = $mw->Scrolled("Text",
             -scrollbars => 'oe')->pack(-side => 'top', -fill =>
'both', -expand => 1);
$info = "Ready...";
MainLoop;

              -labelPack =>["side" => "left"],
Deve diventare
              -labelPack => ["-side" => "left"],
nota il -side
P.s.
E' appena uscito l'AS Perl 811 ;)

 ha scritto nel messaggio
news:cq7jc8$ddh$1...@news.ngi.it...


...solo una riflessione.
dove va a finire la portabilità degli script. se dovessi passarli ai
colleghi, dovrei per forza sapere quale versione dell'interprete Perl giri
sui loro computer...
mah....

Ho appena scritto una vaccata...riferendomi a "-side", l'efficacia è
retroattiva, nel senso che gira anche sulla .804.
grazie ancora!
"steobio" <ste_g...@Myahoo.it> ha scritto nel messaggio
news:gvIxd.32181$Lg7.1...@twister1.libero.it...
