From b7c4b5df5dd1e96fc94d1740b7471185c0208248 Mon Sep 17 00:00:00 2001 From: 4fury-c3440d8 Date: Sun, 8 Jan 2023 04:35:03 +0300 Subject: [PATCH] perl-Gtk2-Notify --- .../language/perl/perl-Gtk2-Notify/actions.py | 20 +++ .../perl-Gtk2-Notify/files/libnotify.patch | 114 ++++++++++++++++++ .../language/perl/perl-Gtk2-Notify/pspec.xml | 65 ++++++++++ 3 files changed, 199 insertions(+) create mode 100644 programming/language/perl/perl-Gtk2-Notify/actions.py create mode 100644 programming/language/perl/perl-Gtk2-Notify/files/libnotify.patch create mode 100644 programming/language/perl/perl-Gtk2-Notify/pspec.xml diff --git a/programming/language/perl/perl-Gtk2-Notify/actions.py b/programming/language/perl/perl-Gtk2-Notify/actions.py new file mode 100644 index 0000000000..b5feb52dbc --- /dev/null +++ b/programming/language/perl/perl-Gtk2-Notify/actions.py @@ -0,0 +1,20 @@ +#!/usr/bin/python +# -*- coding: utf-8 -*- +# +# Licensed under the GNU General Public License, version 3. +# See the file https://www.gnu.org/licenses/gpl-3.0.txt + +from pisi.actionsapi import perlmodules + +def setup(): + perlmodules.configure() + +def build(): + perlmodules.make() + +def check(): + pass + #perlmodules.make("test") + +def install(): + perlmodules.install() diff --git a/programming/language/perl/perl-Gtk2-Notify/files/libnotify.patch b/programming/language/perl/perl-Gtk2-Notify/files/libnotify.patch new file mode 100644 index 0000000000..1e1ce9c094 --- /dev/null +++ b/programming/language/perl/perl-Gtk2-Notify/files/libnotify.patch @@ -0,0 +1,114 @@ +http://bugs.gentoo.org/398699 +http://rt.cpan.org/Public/Bug/Display.html?id=67297 +http://pkgs.fedoraproject.org/gitweb/?p=perl-Gtk2-Notify.git;a=blob_plain;f=libnotify.patch;hb=HEAD + +--- t/notification.t ++++ t/notification.t +@@ -2,20 +2,18 @@ + + use strict; + use warnings; +-use Gtk2::TestHelper tests => 35; ++use Gtk2::TestHelper tests => 32; + 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'); +@@ -99,8 +87,6 @@ lives_ok(sub { + $n->close; + }, 'close before show'); + +-$w->show_all; +- + lives_ok(sub { + $n->show; + }, 'show'); +--- xs/Notify.xs ++++ xs/Notify.xs +@@ -86,26 +86,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 +100,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 diff --git a/programming/language/perl/perl-Gtk2-Notify/pspec.xml b/programming/language/perl/perl-Gtk2-Notify/pspec.xml new file mode 100644 index 0000000000..a3e9701255 --- /dev/null +++ b/programming/language/perl/perl-Gtk2-Notify/pspec.xml @@ -0,0 +1,65 @@ + + + + + perl-Gtk2-Notify + https://metacpan.org/pod/Gtk2::Notify + + fury + uglyside@yandex.ru + + GPL-2 + library + programming.language.perl + Perl interface to libnotify. + Gtk2::Notify - Perl interface to libnotify. + + https://cpan.metacpan.org/authors/id/F/FL/FLORA/Gtk2-Notify-0.05.tar.gz + + + perl + perl-Gtk2 + gtk2-devel + libnotify-devel + perl-Module-Install + perl-Test-Exception + perl-ExtUtils-Depends + perl-ExtUtils-PkgConfig + perl-Module-Build-XSUtil + + + libnotify.patch + + + + + perl-Gtk2-Notify + + atk + gtk2 + perl + cairo + pango + freetype + harfbuzz + perl-Gtk2 + libnotify + gdk-pixbuf + fontconfig + + + /usr/lib/perl5/vendor_perl + /usr/share/man + + + + + + 2023-01-08 + 0.05 + First build. + fury + uglyside@yandex.ru + + +