[perl-Tk-Text-SuperText] Initial import
Lubomir Rintel
lkundrak at fedoraproject.org
Fri Nov 5 17:58:58 UTC 2010
commit c334370ebb82e98d9c7aa2b1e43aaa88c8d40881
Author: Lubomir Rintel <lkundrak at v3.sk>
Date: Fri Nov 5 18:53:13 2010 +0100
Initial import
.gitignore | 1 +
perl-Tk-Text-SuperText-0.9.4-hashref.patch | 39 +++++++++++++
perl-Tk-Text-SuperText-0.9.4-test.patch | 12 ++++
perl-Tk-Text-SuperText.spec | 81 ++++++++++++++++++++++++++++
sources | 1 +
5 files changed, 134 insertions(+), 0 deletions(-)
---
diff --git a/.gitignore b/.gitignore
index e69de29..bbf2344 100644
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1 @@
+/Tk-Text-SuperText-0.9.4.tar.gz
diff --git a/perl-Tk-Text-SuperText-0.9.4-hashref.patch b/perl-Tk-Text-SuperText-0.9.4-hashref.patch
new file mode 100644
index 0000000..92d1bd1
--- /dev/null
+++ b/perl-Tk-Text-SuperText-0.9.4-hashref.patch
@@ -0,0 +1,39 @@
+diff -up Tk-Text-SuperText-0.9.4/SuperText.pm.hashref Tk-Text-SuperText-0.9.4/SuperText.pm
+--- Tk-Text-SuperText-0.9.4/SuperText.pm.hashref 2009-06-10 10:14:29.000000000 +0200
++++ Tk-Text-SuperText-0.9.4/SuperText.pm 2009-06-10 10:14:36.000000000 +0200
+@@ -527,7 +527,7 @@ sub insert
+
+ # match coupled chars
+ if((!defined $w->tag('ranges','sel')) && $w->cget('-showmatching') == 1) {
+- if(exists %{$w->{MATCHINGCOUPLES}}->{$str}) {
++ if(exists $w->{MATCHINGCOUPLES}->{$str}) {
+ # calculate visible zone and search only in this one
+ my ($l,$c) = split('\.',$w->index('end'));
+ my ($slimit,$elimit) = $w->yview;
+@@ -719,7 +719,7 @@ sub SetCursor
+ $w->SUPER::SetCursor(@_);
+
+ if((!defined $w->tag('ranges','sel')) && $w->cget('-showmatching') == 1) {
+- if(exists %{$w->{MATCHINGCOUPLES}}->{$str=$w->get('insert','insert + 1c')}) {
++ if(exists $w->{MATCHINGCOUPLES}->{$str=$w->get('insert','insert + 1c')}) {
+ # calculate visible zone and search only in this one
+ my ($l,$c) = split('\.',$w->index('end'));
+ my ($slimit,$elimit) = $w->yview;
+@@ -749,7 +749,7 @@ sub Button1
+ $w->SUPER::Button1(@_);
+
+ if((!defined $w->tag('ranges','sel')) && $w->cget('-showmatching') == 1) {
+- if(exists %{$w->{MATCHINGCOUPLES}}->{$str=$w->get('insert','insert + 1c')}) {
++ if(exists $w->{MATCHINGCOUPLES}->{$str=$w->get('insert','insert + 1c')}) {
+ # calculate visible zone and search only in this one
+ my ($l,$c) = split('\.',$w->index('end'));
+ my ($slimit,$elimit) = $w->yview;
+@@ -1897,7 +1897,7 @@ sub flashMatchingChar
+ my $s = $w->index('insert');
+ my $str = $w->get('insert');
+
+- if(exists %{$w->{MATCHINGCOUPLES}}->{$str}) {
++ if(exists $w->{MATCHINGCOUPLES}->{$str}) {
+ my $i=$w->_FindMatchingChar($str,$s,"1.0","end");
+ if(defined $i) {
+ my $sel = Tk::catch {$w->tag('nextrange','match','1.0','end');};
diff --git a/perl-Tk-Text-SuperText-0.9.4-test.patch b/perl-Tk-Text-SuperText-0.9.4-test.patch
new file mode 100644
index 0000000..25dd486
--- /dev/null
+++ b/perl-Tk-Text-SuperText-0.9.4-test.patch
@@ -0,0 +1,12 @@
+diff -up Tk-Text-SuperText-0.9.4/test.pl.test Tk-Text-SuperText-0.9.4/test.pl
+--- Tk-Text-SuperText-0.9.4/test.pl.test 2009-06-10 10:23:11.000000000 +0200
++++ Tk-Text-SuperText-0.9.4/test.pl 2009-06-10 10:23:36.000000000 +0200
+@@ -58,7 +58,7 @@ $text->focus;
+ $text->bind('Tk::Text::SuperText','<<pippo>>',\&pippo);
+ $text->eventAdd('<<pippo>>','<Control-p>','<Control-Key-1>');
+
+-MainLoop;
++#MainLoop;
+
+ print "ok 2\n";
+
diff --git a/perl-Tk-Text-SuperText.spec b/perl-Tk-Text-SuperText.spec
new file mode 100644
index 0000000..6542d1b
--- /dev/null
+++ b/perl-Tk-Text-SuperText.spec
@@ -0,0 +1,81 @@
+Name: perl-Tk-Text-SuperText
+Version: 0.9.4
+Release: 3%{?dist}
+Summary: Improved text widget for perl/tk
+License: GPL+ or Artistic
+Group: Development/Libraries
+URL: http://search.cpan.org/dist/Tk-Text-SuperText/
+Source0: http://www.cpan.org/authors/id/A/AL/ALEXIOB/Tk-Text-SuperText-%{version}.tar.gz
+Patch0: perl-Tk-Text-SuperText-0.9.4-hashref.patch
+Patch1: perl-Tk-Text-SuperText-0.9.4-test.patch
+BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+BuildArch: noarch
+BuildRequires: perl(ExtUtils::MakeMaker)
+BuildRequires: perl(Tk)
+BuildRequires: perl(Tk::Derived)
+BuildRequires: perl(Tk::Text)
+BuildRequires: perl(App::Prove)
+# Parts of X Window System needed for tests to run:
+BuildRequires: xorg-x11-server-Xvfb
+BuildRequires: xorg-x11-xinit
+BuildRequires: font(:lang=en)
+Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+
+%description
+Tk::Text::SuperText implements many new features over the standard Tk::Text
+widget while supporting all it's standard features. Its used simply as the
+Tk::Text widget.
+
+
+%prep
+%setup -q -n Tk-Text-SuperText-%{version}
+%patch0 -p1 -b .hashref
+%patch1 -p1 -b .test
+
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+
+%install
+rm -rf $RPM_BUILD_ROOT
+
+make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
+
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+
+%check
+xinit %{_bindir}/make -s test -- %{_bindir}/Xvfb :666 |tee testing.TAP
+# xinit throws away the return value from make
+# Let's validate its TAP output ourselves
+prove --exec cat testing.TAP
+
+
+%clean
+rm -rf $RPM_BUILD_ROOT
+
+
+%files
+%defattr(-,root,root,-)
+%doc README
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+
+%changelog
+* Fri Nov 05 2010 Lubomir Rintel (GoodData) <lubo.rintel at gooddata.com> 0.9.4-3
+- Cosmetic fixes
+
+* Wed Nov 03 2010 Lubomir Rintel (GoodData) <lubo.rintel at gooddata.com> 0.9.4-2
+- Formatting/wording fixes (Peter Pisar)
+- Actually run the test suite (Peter Pisar)
+
+* Tue Jun 09 2009 Lubomir Rintel (Good Data) <lubo.rintel at gooddata.com> 0.9.4-1
+- Specfile autogenerated by cpanspec 1.78.
+- Fix up license
+- Fix test warnings
diff --git a/sources b/sources
index e69de29..8fc44ac 100644
--- a/sources
+++ b/sources
@@ -0,0 +1 @@
+a052a0fe63169dc6366069d259048eb0 Tk-Text-SuperText-0.9.4.tar.gz
More information about the scm-commits
mailing list