Fix icon problem (#319573) to make podbrowser start again. Use slot dep for gtk+

(Portage version: 2.2.0_alpha28/cvs/Linux x86_64)

3 files changed, 88 insertions, 2 deletions

diff --git a/app-doc/podbrowser/ChangeLog b/app-doc/podbrowser/ChangeLog
index b5633e8dacc2..1628bfa3fbe3 100644
--- a/app-doc/podbrowser/ChangeLog
+++ b/app-doc/podbrowser/ChangeLog
@@ -1,6 +1,13 @@
 # ChangeLog for app-doc/podbrowser
-# Copyright 1999-2009 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/app-doc/podbrowser/ChangeLog,v 1.8 2009/08/26 16:17:18 tove Exp $
+# Copyright 1999-2011 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/app-doc/podbrowser/ChangeLog,v 1.9 2011/03/23 08:51:17 tove Exp $
+
+*podbrowser-0.12-r1 (23 Mar 2011)
+
+  23 Mar 2011; Torsten Veller <tove@gentoo.org> podbrowser-0.12.ebuild,
+  +podbrowser-0.12-r1.ebuild, +files/missing_icon.patch:
+  Fix icon problem (#319573) to make podbrowser start again. Use slot dep for
+  gtk+
 
   26 Aug 2009; Torsten Veller <tove@gentoo.org> -podbrowser-0.09.ebuild,
   podbrowser-0.12.ebuild:
diff --git a/app-doc/podbrowser/files/missing_icon.patch b/app-doc/podbrowser/files/missing_icon.patch
new file mode 100644
index 000000000000..55ec1223bf24
--- /dev/null
+++ b/app-doc/podbrowser/files/missing_icon.patch
@@ -0,0 +1,32 @@
+X-Description: Provide alternative icons if those expected not in current theme
+X-Author:      Jeffrey Ratcliffe <Jeffrey.Ratcliffe@gmail.com>
+X-Bugs-Gentoo: https://bugs.gentoo.org/319573
+
+--- podbrowser-0.12/podbrowser.pl
++++ podbrowser-0.12/podbrowser.pl
+@@ -60,9 +60,22 @@
+ my $APP			= Gtk2::GladeXML->new($GLADE_FILE);
+ my $THEME		= get_an_icon_theme();
+ my $TIPS		= Gtk2::Tooltips->new;
+-my $IDX_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+-my $PAGE_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_new-text', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+-my $FOLDER_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
++my ( $IDX_PBF, $PAGE_PBF, $FOLDER_PBF );
++if ($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')) {
++  $IDX_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
++} else {
++  $IDX_PBF              = Gtk2::Image->new->render_icon( 'gtk-index', 'menu' );
++}
++if ($THEME->lookup_icon('stock_new-text', 16, 'force-svg')) {
++  $PAGE_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_new-text', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
++} else {
++  $PAGE_PBF            = Gtk2::Image->new->render_icon( 'gtk-new', 'menu' );
++}
++if ($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')) {
++  $FOLDER_PBF		= Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
++} else {
++  $FOLDER_PBF          = Gtk2::Image->new->render_icon( 'gtk-directory', 'menu' );
++}
+ my $NORMAL_CURSOR	= Gtk2::Gdk::Cursor->new('left_ptr');
+ my $BUSY_CURSOR		= Gtk2::Gdk::Cursor->new('watch');
+ my $ITEMS		= {};
diff --git a/app-doc/podbrowser/podbrowser-0.12-r1.ebuild b/app-doc/podbrowser/podbrowser-0.12-r1.ebuild
new file mode 100644
index 000000000000..b03a905a9e37
--- /dev/null
+++ b/app-doc/podbrowser/podbrowser-0.12-r1.ebuild
@@ -0,0 +1,47 @@
+# Copyright 1999-2011 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/app-doc/podbrowser/podbrowser-0.12-r1.ebuild,v 1.1 2011/03/23 08:51:17 tove Exp $
+
+EAPI=3
+
+inherit eutils
+
+DESCRIPTION="PodBrowser is a documentation browser for Perl"
+HOMEPAGE="http://jodrell.net/projects/podbrowser"
+SRC_URI="http://jodrell.net/files/podbrowser/${P}.tar.gz"
+
+LICENSE="GPL-2"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE=""
+SRC_TEST="do"
+
+RDEPEND="dev-perl/gtk2-gladexml
+	dev-perl/gtk2-perl
+	dev-perl/HTML-Parser
+	dev-perl/Locale-gettext
+	virtual/perl-Pod-Simple
+	dev-perl/URI
+	dev-perl/Gtk2-Ex-PodViewer
+	dev-perl/Gtk2-Ex-PrintDialog
+	dev-perl/Gtk2-Ex-Simple-List
+	>=dev-lang/perl-5.8.0[-build]
+	>=x11-libs/gtk+-2.6.0:2
+	>=x11-themes/gnome-icon-theme-2.10.0
+	>=gnome-base/libglade-2:2.0"
+
+DEPEND="${RDEPEND}
+	sys-devel/gettext"
+
+src_prepare() {
+	epatch "${FILESDIR}"/missing_icon.patch
+	cp "${FILESDIR}"/Makefile.new "${S}"/Makefile
+}
+
+src_compile() {
+	emake DESTDIR="${D}" PREFIX=/usr  || die "emake failed"
+}
+
+src_install() {
+	emake PREFIX=/usr DESTDIR="${D}" install || die
+}