perl-Gtk2-Notify

2023-01-08 04:35:03 +03:00
parent 9c71da187b
commit b7c4b5df5d
3 changed files with 199 additions and 0 deletions
@@ -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") <!-- cannot open display -->
+
+def install():
+	perlmodules.install()
@@ -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
@@ -0,0 +1,65 @@
+<?xml version="1.0" ?>
+<!DOCTYPE PISI SYSTEM "https://pisilinux.org/projeler/pisi/pisi-spec.dtd">
+<PISI>
+	<Source>
+		<Name>perl-Gtk2-Notify</Name>
+		<Homepage>https://metacpan.org/pod/Gtk2::Notify</Homepage>
+		<Packager>
+			<Name>fury</Name>
+			<Email>uglyside@yandex.ru</Email>
+		</Packager>
+		<License>GPL-2</License>
+		<IsA>library</IsA>
+		<PartOf>programming.language.perl</PartOf>
+		<Summary>Perl interface to libnotify.</Summary>
+		<Description>Gtk2::Notify - Perl interface to libnotify.</Description>
+		<Archive sha1sum="b0223dd5a85358c9b92ebc99040201e640612348" type="targz">
+			https://cpan.metacpan.org/authors/id/F/FL/FLORA/Gtk2-Notify-0.05.tar.gz
+		</Archive>
+		<BuildDependencies>
+			<Dependency>perl</Dependency>
+			<Dependency>perl-Gtk2</Dependency>
+			<Dependency>gtk2-devel</Dependency>
+			<Dependency>libnotify-devel</Dependency>
+			<Dependency>perl-Module-Install</Dependency>
+			<Dependency>perl-Test-Exception</Dependency>
+			<Dependency>perl-ExtUtils-Depends</Dependency>
+			<Dependency>perl-ExtUtils-PkgConfig</Dependency>
+			<Dependency>perl-Module-Build-XSUtil</Dependency>
+		</BuildDependencies>
+		<Patches>
+			<Patch level='0'>libnotify.patch</Patch>
+		</Patches>
+	</Source>
+
+	<Package>
+		<Name>perl-Gtk2-Notify</Name>
+		<RuntimeDependencies>
+			<Dependency>atk</Dependency>
+			<Dependency>gtk2</Dependency>
+			<Dependency>perl</Dependency>
+			<Dependency>cairo</Dependency>
+			<Dependency>pango</Dependency>
+			<Dependency>freetype</Dependency>
+			<Dependency>harfbuzz</Dependency>
+			<Dependency>perl-Gtk2</Dependency>
+			<Dependency>libnotify</Dependency>
+			<Dependency>gdk-pixbuf</Dependency>
+			<Dependency>fontconfig</Dependency>
+		</RuntimeDependencies>
+		<Files>
+			<Path fileType="data">/usr/lib/perl5/vendor_perl</Path>
+			<Path fileType="data">/usr/share/man</Path>
+		</Files>
+	</Package>
+
+	<History>
+		<Update release="1">
+			<Date>2023-01-08</Date>
+			<Version>0.05</Version>
+			<Comment>First build.</Comment>
+			<Name>fury</Name>
+			<Email>uglyside@yandex.ru</Email>
+		</Update>
+	</History>
+</PISI>