/usr/share/doc/libgtk2-notify-perl/examples/image.pl is in libgtk2-notify-perl 0.05-4build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #!/usr/bin/perl
use strict;
use warnings;
use FindBin qw($Bin);
use Gtk2::Notify -init, 'Images';
my $n = Gtk2::Notify->new('Icon Test', 'Testing stock icon', 'stock_samples');
$n->show;
my $uri = 'file://'. $Bin .'/applet-critical.png';
print "Sending $uri\n";
$n = Gtk2::Notify->new('Alert!', 'Testing URI icons', $uri);
$n->show;
$n = Gtk2::Notify->new('Raw image test', 'Testing sending raw pixbufs');
my $button = Gtk2::Button->new;
my $icon = $button->render_icon('gtk-ok', 'dialog');
$n->set_icon_from_pixbuf($icon);
$n->show;
|