Hello list!
I use the following code to update a GnomeIcuPanel in my ButtonBar:
,----
|
| #!/usr/bin/perl -w
|
| use lib `fvwm-perllib dir`;
| use FVWM::Module;
|
| my %status_symbols =
| ("Online" => "/home/drache/.icq/icons/Windows ICQ/gnomeicu-online.png",
| "Offline" => "/home/drache/.icq/icons/Windows ICQ/gnomeicu-offline.png",
| "Away" => "/home/drache/.icq/icons/Windows ICQ/gnomeicu-away.png",
| );
|
| my $module = new FVWM::Module();
|
| my $scheduler = $module->track("Scheduler");
| $scheduler->schedule(2,gnomeicu_update);
|
| sub gnomeicu_update {
| my $status = `gnomeicu-client icuask`;
| if ($status =~ /^(.+?)\s(.+?)\s(.+?)\s.*/s) {
| $module->send("SendToModule GnomeIcu ChangeButton icon Icon \"$status_symbols{$1}\"");
| $module->send("SendToModule GnomeIcu ChangeButton icon Title " . $2 +1);
| }
| $scheduler->reschedule;
| }
|
| $module->send("Module FvwmButtons GnomeIcu");
|
| gnomeicu_update()
`----
The first call of gnomeicu_update() at the end of the script is called
but not the one in the scheduler?
I'm a straigt perl newbie so there might be a really dumb error... :)
Greetings!
Mario
--
You step in the stream,
but the water has moved on.
This page is not here.
--
Visit the official FVWM web page at <URL: http://www.fvwm.org/>.
To unsubscribe from the list, send "unsubscribe fvwm" in the body of a
message to majordomo_at_fvwm.org.
To report problems, send mail to fvwm-owner_at_fvwm.org.
Received on Thu Jan 22 2004 - 03:58:57 GMT