diff options
| -rw-r--r-- | libraries/perl-tk/README | 7 | ||||
| -rw-r--r-- | libraries/perl-tk/perl-tk-804.028.diff | 65 | ||||
| -rw-r--r-- | libraries/perl-tk/perl-tk.SlackBuild | 96 | ||||
| -rw-r--r-- | libraries/perl-tk/perl-tk.info | 10 | ||||
| -rw-r--r-- | libraries/perl-tk/slack-desc | 19 |
5 files changed, 197 insertions, 0 deletions
diff --git a/libraries/perl-tk/README b/libraries/perl-tk/README new file mode 100644 index 0000000000000..29c48f6dfce35 --- /dev/null +++ b/libraries/perl-tk/README @@ -0,0 +1,7 @@ +perl-tk (Tk graphical interface for Perl) + +Perl/Tk is an extension for writing Perl programs with a Graphical User (GUI) +on both Unix and Windows 95/NT. Tk was originally developed as an extension +to the Tcl language, for use with the X Window System on Unix. With its port +to Perl, Tk gives Perl programmers the same control over a graphical desktop +that Tcl programmers have taken for granted. diff --git a/libraries/perl-tk/perl-tk-804.028.diff b/libraries/perl-tk/perl-tk-804.028.diff new file mode 100644 index 0000000000000..a559dfaacfccf --- /dev/null +++ b/libraries/perl-tk/perl-tk-804.028.diff @@ -0,0 +1,65 @@ +diff -rupN Tk-804.028.org/TextList/reindex.pl Tk-804.028.new/TextList/reindex.pl +--- Tk-804.028.org/TextList/reindex.pl 2007-05-05 15:38:18.000000000 -0300 ++++ Tk-804.028.new/TextList/reindex.pl 2009-11-11 18:46:31.000000000 -0200 +@@ -1,4 +1,4 @@ +-#!/bin/perl ++#!/usr/bin/perl + + use lib qw(/home1/gbartels/textlist); + use Tk; +diff -rupN Tk-804.028.org/Tk/FBox.pm Tk-804.028.new/Tk/FBox.pm +--- Tk-804.028.org/Tk/FBox.pm 2007-05-05 15:37:56.000000000 -0300 ++++ Tk-804.028.new/Tk/FBox.pm 2009-11-11 18:46:48.000000000 -0200 +@@ -906,7 +906,7 @@ sub Done { + if ($w->cget('-multiple')) { + $selectFilePath = []; + for my $f (@{ $w->{'selectFile'} }) { +- push @$selectFilePath, JoinFile($w->_get_select_Path, $f); ++ push @$selectFilePath, JoinFile($w->_get_select_path, $f); + } + } else { + $selectFilePath = JoinFile($w->_get_select_path, +diff -rupN Tk-804.028.org/pTk/Tcl-pTk Tk-804.028.new/pTk/Tcl-pTk +--- Tk-804.028.org/pTk/Tcl-pTk 2007-05-05 15:39:02.000000000 -0300 ++++ Tk-804.028.new/pTk/Tcl-pTk 2009-11-11 18:48:58.000000000 -0200 +@@ -1,4 +1,4 @@ +-#!/usr/local/bin/perl -w ++#!/usr/bin/perl -w + use open IO => ':bytes'; # Avoid UTF-8 issues with some perl5.8.0 (RedHat) + use Carp; + my $verbose = 0; +diff -rupN Tk-804.028.org/pTk/mTk/generic/tk.h Tk-804.028.new/pTk/mTk/generic/tk.h +--- Tk-804.028.org/pTk/mTk/generic/tk.h 2007-05-05 15:41:02.000000000 -0300 ++++ Tk-804.028.new/pTk/mTk/generic/tk.h 2009-11-11 18:49:56.000000000 -0200 +@@ -677,17 +677,15 @@ typedef struct Tk_GeomMgr { + * + *--------------------------------------------------------------------------- + */ +-#define VirtualEvent (LASTEvent) +-#define ActivateNotify (LASTEvent + 1) +-#define DeactivateNotify (LASTEvent + 2) +-#define MouseWheelEvent (LASTEvent + 3) +-#define TK_LASTEVENT (LASTEvent + 4) ++#define VirtualEvent (MappingNotify + 1) ++#define ActivateNotify (MappingNotify + 2) ++#define DeactivateNotify (MappingNotify + 3) ++#define MouseWheelEvent (MappingNotify + 4) ++#define TK_LASTEVENT (MappingNotify + 5) + + #define MouseWheelMask (1L << 28) +- + #define ActivateMask (1L << 29) + #define VirtualEventMask (1L << 30) +-#define TK_LASTEVENT (LASTEvent + 4) + + + /* +diff -rupN Tk-804.028.org/pTk/mkVFunc Tk-804.028.new/pTk/mkVFunc +--- Tk-804.028.org/pTk/mkVFunc 2007-05-05 15:38:59.000000000 -0300 ++++ Tk-804.028.new/pTk/mkVFunc 2009-11-11 18:49:14.000000000 -0200 +@@ -1,4 +1,4 @@ +-#!/usr/local/bin/perl -w ++#!/usr/bin/perl -w + use strict; + + diff --git a/libraries/perl-tk/perl-tk.SlackBuild b/libraries/perl-tk/perl-tk.SlackBuild new file mode 100644 index 0000000000000..379a930c89bd0 --- /dev/null +++ b/libraries/perl-tk/perl-tk.SlackBuild @@ -0,0 +1,96 @@ +#!/bin/sh + +# Slackware build script for perl-tk (Tk) + +# Written by Pablo Santamaria (pablosantamaria@gmail.com) +# Thanks to Robby Workman for suggestions to improve this script. + +PRGNAM=perl-tk +VERSION=${VERSION:-804.028} +ARCH=${ARCH:-i486} +BUILD=${BUILD:-1} +TAG=${TAG:-_SBo} + +CWD=$(pwd) +TMP=${TMP:-/tmp/SBo} +PKG=$TMP/package-$PRGNAM +OUTPUT=${OUTPUT:-/tmp} + +if [ "$ARCH" = "i486" ]; then + SLKCFLAGS="-O2 -march=i486 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "i686" ]; then + SLKCFLAGS="-O2 -march=i686 -mtune=i686" + LIBDIRSUFFIX="" +elif [ "$ARCH" = "x86_64" ]; then + SLKCFLAGS="-O2 -fPIC" + LIBDIRSUFFIX="64" +fi + +set -e + +rm -rf $PKG +mkdir -p $TMP $PKG $OUTPUT +cd $TMP +rm -rf Tk-$VERSION +tar xvf $CWD/Tk-$VERSION.tar.gz +cd Tk-$VERSION +chown -R root:root . +find . \ + \( -perm 777 -o -perm 775 -o -perm 711 -o -perm 555 -o -perm 511 \) \ + -exec chmod 755 {} \; -o \ + \( -perm 666 -o -perm 664 -o -perm 600 -o -perm 444 -o -perm 440 -o -perm 400 \) \ + -exec chmod 644 {} \; + +# Apply a bunch of patches +patch -p1 < $CWD/$PRGNAM-$VERSION.diff + +# XFT=1 (font manager) support, which gives perl-tk programs the ability to +# use all fonts accessible from XFT and antialiasing. +perl Makefile.PL XFT=1 INSTALLDIRS=vendor +make OPTIMIZE="$SLKCFLAGS" +make install DESTDIR=$PKG + +( cd $PKG + find . | xargs file | grep "executable" | grep ELF | cut -f 1 -d : | \ + xargs strip --strip-unneeded 2> /dev/null || true + find . | xargs file | grep "shared object" | grep ELF | cut -f 1 -d : | \ + xargs strip --strip-unneeded 2> /dev/null || true +) + +# Relocate man pages +if [ -d $PKG/usr/share/man ] ; then + mkdir -p $PKG/usr/man + ( cd $PKG/usr/share + mv man .. + rmdir $PKG/usr/share ) +fi + +# Compress man pages +( cd $PKG/usr/man + find . -type f -exec gzip -9 {} \; + for i in $( find . -type l ) ; do ln -s $( readlink $i ).gz $i.gz ; rm $i ; done +) + +# Remove perlocal.pod, .packlist and .bs from $PKG +( cd $PKG + find . -name perllocal.pod \ + -o -name ".packlist" \ + -o -name "*.bs" \ + | xargs rm -f +) + +# Remove empty directories +find $PKG -depth -type d -empty -exec rm -rf {} \; + +# Copy program documentation into the package +mkdir -p $PKG/usr/doc/$PRGNAM-$VERSION +cp -a COPYING Change.log Changes Funcs.doc INSTALL PPM-HowTo README \ + README.linux ToDo VERSIONS $PKG/usr/doc/$PRGNAM-$VERSION +cat $CWD/$PRGNAM.SlackBuild > $PKG/usr/doc/$PRGNAM-$VERSION/$PRGNAM.SlackBuild + +mkdir -p $PKG/install +cat $CWD/slack-desc > $PKG/install/slack-desc + +cd $PKG +/sbin/makepkg -l y -c n $OUTPUT/$PRGNAM-$VERSION-$ARCH-$BUILD$TAG.${PKGTYPE:-tgz} diff --git a/libraries/perl-tk/perl-tk.info b/libraries/perl-tk/perl-tk.info new file mode 100644 index 0000000000000..3499870687d3a --- /dev/null +++ b/libraries/perl-tk/perl-tk.info @@ -0,0 +1,10 @@ +PRGNAM="perl-tk" +VERSION="804.028" +HOMEPAGE="http://search.cpan.org/~srezic/Tk-804.028/" +DOWNLOAD="http://search.cpan.org/CPAN/authors/id/S/SR/SREZIC/Tk-804.028.tar.gz" +MD5SUM="7153c1c411b0dd005a0660179e5c5900" +DOWNLOAD_x86_64="" +MD5SUM_x86_64="" +MAINTAINER="Pablo Santamaria" +EMAIL="pablosantamaria@gmail.com" +APPROVED="rworkman" diff --git a/libraries/perl-tk/slack-desc b/libraries/perl-tk/slack-desc new file mode 100644 index 0000000000000..61f7aedd106fa --- /dev/null +++ b/libraries/perl-tk/slack-desc @@ -0,0 +1,19 @@ +# HOW TO EDIT THIS FILE: +# The "handy ruler" below makes it easier to edit a package description. Line +# up the first '|' above the ':' following the base package name, and the '|' +# on the right side marks the last column you can put a character in. You must +# make exactly 11 lines for the formatting to be correct. It's also +# customary to leave one space after the ':'. + + |-----handy-ruler------------------------------------------------------| +perl-tk: perl-tk (Tk graphical interface for Perl) +perl-tk: +perl-tk: Perl/Tk is an extension for writing Perl programs with a GUI. +perl-tk: +perl-tk: Tk was originally developed as an extension to the Tcl language +perl-tk: for use with the X Window System on Unix. With its port to perl, +perl-tk: Tk gives Perl programmers the same control over the graphical +perl-tk: desktop that Tcl programmers have taken for granted. +perl-tk: +perl-tk: +perl-tk: |