mirror of
https://github.com/Ponce/slackbuilds
synced 2024-11-22 19:44:21 +01:00
libraries/perl-tk: Added to 13.0 repository
This commit is contained in:
Pablo Santamaria
Robby Workman
parent
650b08750c
commit
9f918b9cec
5 changed files with 197 additions and 0 deletions
7
libraries/perl-tk/README
Normal file
7
libraries/perl-tk/README
Normal file
|
|
@ -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.
|
||||
65
libraries/perl-tk/perl-tk-804.028.diff
Normal file
65
libraries/perl-tk/perl-tk-804.028.diff
Normal file
|
|
@ -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;
|
||||
|
||||
|
||||
96
libraries/perl-tk/perl-tk.SlackBuild
Normal file
96
libraries/perl-tk/perl-tk.SlackBuild
Normal file
|
|
@ -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}
|
||||
10
libraries/perl-tk/perl-tk.info
Normal file
10
libraries/perl-tk/perl-tk.info
Normal file
|
|
@ -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"
|
||||
19
libraries/perl-tk/slack-desc
Normal file
19
libraries/perl-tk/slack-desc
Normal file
|
|
@ -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:
|
||||
Loading…
Reference in a new issue