On 2/1/07, Juan José 'Peco' San Martín <[EMAIL PROTECTED]> wrote:
snip
> Is PerlPanel currently the best approach to deploy Applets?. Do you have
> another solution?.
snip
Depending on what you want to do Gtk2::TrayIcon may suit your needs.
It acts as a container for widgets in the Notification Area. I use
the following code to turn my vpn connection on and off.
#!/usr/bin/perl
use strict;
use Gtk2::TrayIcon;
Gtk2->init;
my $current;
if (grep { /vpnc/ } `ps -ef`) {
$current = 'connect';
} else {
$current = 'disconnect';
}
my $size = 'small-toolbar';
my $icon = Gtk2::TrayIcon->new("vpn control");
my $ev = Gtk2::EventBox->new;
my $img = Gtk2::Image->new_from_stock("gtk-$current", $size);
$icon->add($ev);
$ev->add($img);
$ev->signal_connect('button_release_event', sub {
if ($current eq 'connect') {
$current = 'disconnect';
system "gksudo vpnc-disconnect";
} else {
$current = 'connect';
system "gksudo vpnc /home/cowens/.vpn.conf";
}
$img->set_from_stock("gtk-$current", $size);
});
$icon->show_all;
Gtk2->main;
_______________________________________________
gtk-perl-list mailing list
[email protected]
http://mail.gnome.org/mailman/listinfo/gtk-perl-list
