Tfe

Old stuff/Perl/svn/tfe/trunk/gtkrss_b/conf.pl

#!/usr/bin/perl -w
use Gtk2 '-init';




sub conf($)
{
    my $parser = shift;
    my  $window = Gtk2::Window->new('toplevel') ; 
    $window->set_title ("Affichage des flux") ;
    $window->set_default_size(600 ,400 ) ; 
    $window->show();


    foreach my $elt($parser->FEEDS)
    {
	print $elt;
    }

    
    
}