#!/usr/bin/perl -l
use strict;
use warnings;
use Time::HiRes ();
use Gtk2::Notify -init, 'onCloseTest';

# testing 101: use "signal_connect" or "signal_add_emission_hook"?
# - "signal_connect" sounds reasonable, but only first notification ge
+ts it
# - "signal_add_emission_hook" triggers "closed" signals way too early
my $use_emission_hook = scalar @ARGV;

# notifications cache
my %notes = ();

# generate some notifications
for my $id ( 1 .. 3 ) {
    my $n = $notes{$id}
        = Gtk2::Notify->new( 'summary ' . $id, 'body ' . $id );
    $n->set_timeout( $id * 1000 );
    my $hook_method
        = $use_emission_hook ? 'signal_add_emission_hook' : 'signal_co
+nnect';
    $n->$hook_method( closed => \&closed, $id );
    $n->show;
    print Time::HiRes::time, ' Showing note ', $id;
}

Gtk2->main;

# "onClose" handler
sub closed {
    shift if $use_emission_hook; # skip "hints"
    my ($n, $id) = @_;
    print Time::HiRes::time, ' Closing note ', $id;
    delete $notes{$id};
    Gtk2->main_quit if !%notes;
    return;
}
[download]

Sample output ("signal_connect"):

$ ./on-close.pl
1169969648.259 Showing note 1
1169969648.26891 Showing note 2
1169969648.2776 Showing note 3
1169969649.35453 Closing note 1

Use ^C to exit Gtk loop, as no signals will be received upon closing next notifications.

Sample output ("signal_add_emission_hook"):

$ ./on-close.pl 1
1169969850.63043 Showing note 1
1169969850.63678 Showing note 2
1169969850.6449 Showing note 3
1169969851.63109 Closing note 1
1169969851.63122 Closing note 2
1169969851.63133 Closing note 3

Closing too fast. Notification windows were not really closed yet when receiving those signals.

Environment details:

GNU/Linux 2.6.19
perl 5.8.8 (i386-linux-thread-multi)
glib 2.12.9
gtk2 2.10.8
dbus 1.0.1
libnotify 0.4.3
notification-daemon 0.3.6
Gtk2 1.142
Glib 1.142
Gtk2::Notify 0.02

TIA

UPDATES:

• mention dbus version
• switched <code> to <pre> in "output" blocks