Update of /cvsroot/fink/fink/perlmod/Fink/Notify
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26178/perlmod/Fink/Notify
Modified Files:
Tag: dist-up-branch
Growl.pm
Log Message:
Sync with HEAD
Index: Growl.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Notify/Growl.pm,v
retrieving revision 1.5.2.2
retrieving revision 1.5.2.3
diff -u -d -r1.5.2.2 -r1.5.2.3
--- Growl.pm 11 May 2005 20:07:28 -0000 1.5.2.2
+++ Growl.pm 7 Aug 2005 18:30:52 -0000 1.5.2.3
@@ -42,17 +42,31 @@
my $self = bless({}, $class);
my @events = $self->events();
+ $self->initialized(0);
+
eval {
- require Mac::Growl;
- Mac::Growl::RegisterNotifications("Fink", [EMAIL PROTECTED],
[EMAIL PROTECTED]);
+ require Mac::Growl;
};
- return $@ ? undef : $self;
+
+ return [EMAIL PROTECTED] undef : $self;
+}
+
+sub initialized {
+ if (@_) {
+ $self->{_initialized} = shift;
+ }
+ return $self->{_initialized};
}
sub do_notify {
my $self = shift;
my %args = @_;
+ if (not $self->initialized()) {
+ Mac::Growl::RegisterNotifications("Fink", [EMAIL PROTECTED],
[EMAIL PROTECTED]);
+ $self->initialized(1);
+ }
+
my $image = $basepath . '/share/fink/images/' . $args{'event'} . '.png';
$image = undef unless -r $image;
-------------------------------------------------------
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/fink-commits
