Re: En Gtk2 Perl

Voici un debut de programme, mais apparament il faut fait autre chose que juste changer la valeur dans gconf ! Je vous laiss tester :

#!/usr/bin/perl -w
use	strict;
use	Gtk2 -init;
use	Gnome2::GConf;
my	@background = ("/home/g-remy/Wallpaper/Universal/Blue.png",
		 "/home/g-remy/Wallpaper/Universal/Coal.png",
		 "/home/g-remy/Wallpaper/Universal/Green.png",
		 "/home/g-remy/Wallpaper/Universal/Orange.png",
		 "/home/g-remy/Wallpaper/Universal/Pink.png",
		 "/home/g-remy/Wallpaper/Universal/Silver.png");
my	$client = Gnome2::GConf::Client->get_default;
my	$key = "/desktop/gnome/background/picture_filename";
my	$idx = -1;
sub	change_background
{
 $idx = -1 if ($idx == scalar(@background) - 1);
 $idx++;
 $client->set($key, { type => 'string', value => $background[$idx] }); 
}
my $timer= Glib::Timeout->add(500 ,\&change_background);
Gtk2->main;