/usr/share/doc/libgtk2-notify-perl/examples/replace.pl is in libgtk2-notify-perl 0.05-3build2.
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 24 25 | #!/usr/bin/perl
use strict;
use warnings;
use Glib qw( TRUE FALSE );
use Gtk2::Notify -init, 'Replace';
my $n = Gtk2::Notify->new('Summary', 'First message');
$n->set_timeout(0);
$n->show;
Glib::Timeout->add(3000, \&replace, $n);
Gtk2->main;
sub replace {
my ($n) = @_;
$n->update('Second Summary', 'First mesage was replaced');
$n->set_timeout(-1);
$n->show;
Gtk2->main_quit;
}
|