Skip to content

Instantly share code, notes, and snippets.

@bbidulock bbidulock/PKGBUILD
Created Jul 8, 2015

Embed
What would you like to do?
PKGBUILD and libnotify.patch for perl-gtk2-notify
diff -up src/Gtk2-Notify-0.05/lib/Gtk2/Notify.pm.orig src/Gtk2-Notify-0.05/lib/Gtk2/Notify.pm
--- src/Gtk2-Notify-0.05/lib/Gtk2/Notify.pm.orig 2008-11-11 23:47:33.000000000 -0700
+++ src/Gtk2-Notify-0.05/lib/Gtk2/Notify.pm 2015-07-07 20:02:12.000000000 -0600
@@ -47,7 +47,7 @@ Version 0.04
use Gtk2::Notify -init, "app_name";
- my $notification = Gtk2::Notify->new($summary, $message, $icon, $attach_widget);
+ my $notification = Gtk2::Notify->new($summary, $message, $icon);
$notification->show;
=head1 INITIALISATION
diff -up src/Gtk2-Notify-0.05/t/notification.t.orig src/Gtk2-Notify-0.05/t/notification.t
--- src/Gtk2-Notify-0.05/t/notification.t.orig 2006-08-27 13:11:57.000000000 -0600
+++ src/Gtk2-Notify-0.05/t/notification.t 2015-07-07 20:09:52.000000000 -0600
@@ -2,20 +2,18 @@
use strict;
use warnings;
-use Gtk2::TestHelper tests => 35;
+use Gtk2::TestHelper tests => 31;
use Test::Exception;
use Gtk2::Notify -init, $0;
ginterfaces_ok('Gtk2::Notify');
-my $w = Gtk2::Window->new;
-my $n = Gtk2::Notify->new('foo', 'bar', '', $w);
+my $n = Gtk2::Notify->new('foo', 'bar', '');
isa_ok($n, 'Gtk2::Notify');
my @methods = qw(
add_action
- attach_to_widget
clear_actions
clear_hints
close
@@ -46,16 +44,6 @@ lives_ok(sub {
}, 42);
}, 'add_action');
-{
- my $nw = Gtk2::Window->new;
- lives_ok(sub {
- $n->attach_to_widget($nw);
- }, 'attach_to_widget');
- lives_ok(sub {
- $n->attach_to_widget($w);
- }, 'attach_to_widget');
-}
-
lives_ok(sub {
$n->clear_actions;
}, 'clear_actions with existing actions');
@@ -96,12 +84,6 @@ lives_ok(sub {
}, 'set_urgency');
lives_ok(sub {
- $n->close;
-}, 'close before show');
-
-$w->show_all;
-
-lives_ok(sub {
$n->show;
}, 'show');
diff -up src/Gtk2-Notify-0.05/xs/Notify.xs.orig src/Gtk2-Notify-0.05/xs/Notify.xs
--- src/Gtk2-Notify-0.05/xs/Notify.xs.orig 2007-10-04 06:11:13.000000000 -0600
+++ src/Gtk2-Notify-0.05/xs/Notify.xs 2015-07-07 20:05:37.000000000 -0600
@@ -21,8 +21,7 @@ PROTOTYPES: DISABLE
my $notification = Gtk2::Notify->new(
$summary,
$message,
- $icon,
- $attach_widget
+ $icon
);
$notification->show;
@@ -86,26 +85,12 @@ notify_get_server_info (class, OUTLIST c
MODULE = Gtk2::Notify PACKAGE = Gtk2::Notify PREFIX = notify_notification_
NotifyNotification *
-notify_notification_new (class, summary, body=NULL, icon=NULL, attach=NULL)
+notify_notification_new (class, summary, body=NULL, icon=NULL)
const gchar *summary
const gchar *body
const gchar *icon
- GtkWidget_ornull *attach
C_ARGS:
- summary, body, icon, attach
-
-#if GTK_CHECK_VERSION (2, 9, 2)
-
-NotifyNotification *
-notify_notification_new_with_status_icon (class, summary, body=NULL, icon=NULL, status_icon=NULL)
- const gchar *summary
- const gchar *body
- const gchar *icon
- GtkStatusIcon *status_icon
- C_ARGS:
- summary, body, icon, status_icon
-
-#endif
+ summary, body, icon
gboolean
notify_notification_update (notification, summary, message=NULL, icon=NULL)
@@ -114,27 +99,6 @@ notify_notification_update (notification
const gchar *message
const gchar *icon
-void
-notify_notification_attach_to_widget (notification, attach)
- NotifyNotification *notification
- GtkWidget *attach
-
-#if GTK_CHECK_VERSION (2, 9, 2)
-
-void
-notify_notification_attach_to_status_icon (notification, status_icon)
- NotifyNotification *notification
- GtkStatusIcon *status_icon
-
-#endif
-
-void
-notify_notification_set_geometry_hints (notification, screen, x, y)
- NotifyNotification *notification
- GdkScreen *screen
- gint x
- gint y
-
NO_OUTPUT gboolean
notify_notification_show (notification)
NotifyNotification *notification
@@ -168,6 +132,11 @@ notify_notification_set_icon_from_pixbuf
GdkPixbuf *icon
void
+notify_notification_set_image_from_pixbuf (notification, image)
+ NotifyNotification *notification
+ GdkPixbuf *image
+
+void
set_hint (notification, key, value)
NotifyNotification *notification
const gchar *key
@@ -265,6 +234,10 @@ notify_notification_close (notification)
gperl_croak_gerror (NULL, error);
}
+gint
+notify_notification_get_closed_reason(notification)
+ NotifyNotification *notification
+
BOOT:
#include "register.xsh"
#include "boot.xsh"
# Maintainer: Michael Kogan <michael dot kogan at gmx dot net>
# Contributor: Brian Bidulock <bidulock@openss7.org>
pkgname=perl-gtk2-notify
_cpanname=Gtk2-Notify
pkgver=0.05
pkgrel=12
pkgdesc="Perl interface to libnotify"
arch=('i686' 'x86_64')
url="http://search.cpan.org/perldoc?Gtk2::Notify"
license=('LGPL')
depends=('gtk2-perl' 'libnotify')
makedepends=('perl-extutils-pkgconfig' 'perl-extutils-depends')
options=('!emptydirs')
source=("http://search.cpan.org/CPAN/authors/id/F/FL/FLORA/$_cpanname-$pkgver.tar.gz"
"libnotify.patch")
md5sums=('071144ad4a5670b8b2451baf358c4a88'
'c54d841861c9adfaa77b80bdf9cb0f98')
prepare() {
cd $_cpanname-$pkgver
patch -Np2 -b -z .orig <../libnotify.patch
}
build() {
cd $_cpanname-$pkgver
perl Makefile.PL INSTALLDIRS=vendor
make
}
package() {
cd $_cpanname-$pkgver
make DESTDIR="$pkgdir" install
}
@wxg4net

This comment has been minimized.

Copy link

wxg4net commented Jul 8, 2015

realy?

it works. thx

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.