| Next: Gtk2::TreeDragDest | Previous: Gtk2::TrayIcon | [Gtk2-Perl - Table of Contents] | [Gtk2-Perl - Index] |
Gtk2::TrayManager - Perl bindings for EggTrayManager
use Gtk2 -init;
use Gtk2::TrayManager;
my $screen = Gtk2::Gdk::Screen->get_default;
if (Gtk2::TrayManager->check_running($screen)) {
print STDERR "A tray manager is already running, sorry!\n";
exit 256;
}
my $tray = Gtk2::TrayManager->new;
$tray->manage_screen($screen);
$tray->set_orientation('vertical');
$tray->signal_connect('tray_icon_added', sub {
# $_[1] is a Gtk2::Socket
});
$tray->signal_connect('tray_icon_removed', sub {
# $_[1] is a Gtk2::Socket
});
The EggTrayManager library is used internally by GNOME to implement the server-side of the Notification Area (or system tray) protocol. Gtk2::TrayManager allows you to create notification area applications using Gtk2-Perl.
$running = Gtk2::TrayManager->check_running($screen);
This method returns a boolean value indicating whether another program is already managing notifications for the given Gtk2::Gdk::Screen. If this method returns a false value, then you should give way to the application that is already running.
$tray = Gtk2::TrayManager->new;
This creates a tray manager object.
$tray->manage_screen($screen);
This tells the tray to manage notifications for the Gtk2::Gdk::Screen
referenced by $screen.
$tray->set_orientation($orientation);
This method tells the tray whether icons are to be arranged vertically or
horizontally. $orientation may be either 'vertical' or 'horizontal'.
$title = $tray->get_child_title($child);
This method returns a string containing the title of the icon defined by
$child.
tray_icon_added
@_ will have the form
@_ = (
bless( {}, 'Gtk2::TrayManager' ),
bless( {}, 'Gtk2::Socket' )
);
tray_icon_added
@_ will have the form
@_ = (
bless( {}, 'Gtk2::TrayManager' ),
bless( {}, 'Gtk2::Socket' )
);
message_sent, message_removed
lost_selection
Glib, Gtk, Gtk2::TrayIcon and the System Tray spec at http://www.freedesktop.org/Standards/systemtray-spec.
Christian Borup <borup at cpan dot org>. Nagging and documentation by Gavin Brown <gavin.brown@uk.com>
Copyright 2004 by the gtk2-perl team.
This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.
You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307 USA.