From 0b9d527a83079a9c5c1da7b292de54ea82c3b648 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 14 Mar 2008 16:30:18 +0000
Subject: add urgency support in Gtk2::Notify::Queue

---
 perl-install/ugtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ab26bda46..ecccc03b6 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1578,6 +1578,7 @@ sub show {
     my $info = $self->{queue}[0];
     my $notification = Gtk2::Notify->new_with_status_icon($info->{title}, $info->{message}, undef, $self->{statusicon});
     $notification->set_icon_from_pixbuf($info->{pixbuf});
+    $notification->set_urgency($info->{urgency}) if $info->{urgency};
     foreach my $a (@{$info->{actions} || []}) {
         $notification->add_action(
             $a->{action}, $a->{label},
-- 
cgit v1.2.1