3 %bcond_with tests # perform "make test", requires DISPLAY
7 Summary: Tie::Tk::Text - Access Tk text widgets as arrays
12 License: GPL v1+ or Artistic
13 Group: Development/Languages/Perl
14 Source0: http://www.cpan.org/modules/by-module/Tie/%{pdir}-%{pnam}-%{version}.tar.gz
15 # Source0-md5: 9e2064a300a46f2df81df5383c24f068
16 URL: http://search.cpan.org/dist/Tie-Tk-Text/
17 BuildRequires: perl-Module-Build
18 BuildRequires: perl-devel >= 1:5.8.0
19 BuildRequires: rpm-perlprov >= 4.1-13
21 BuildRequires: perl-Tk
24 BuildRoot: %{tmpdir}/%{name}-%{version}-root-%(id -u -n)
27 This module defines a class for tie()ing Tk text widgets to an array,
28 allowing them to be accessed as if they were an array of lines.
30 It's not expected that anyone will actually want to populate and
31 manipulate their text widgets this way, though you are of course free
32 to do so. This module was created to make text widgets accessible to
33 functions that expect an array reference as their input. (e.g.
34 Algorithm::Diff::sdiff) You can do that with read-only support (FETCH
35 and FETCHSIZE). All of the methods (PUSH, POP, STORE, etc.) are
36 included for completeness.
38 Note: This documentation refers to "Tk text" widgets rather than
39 "Tk::Text" ones. That's because it supports anything that uses the
40 same API as a Tk text widget. It works with Perl/Tk and Tkx and should
41 work with Tcl::Tk as well.
44 %setup -q -n %{pdir}-%{pnam}-%{version}
48 destdir=$RPM_BUILD_ROOT \
52 %{?with_tests:./Build test}
55 rm -rf $RPM_BUILD_ROOT
59 rm -rf $RPM_BUILD_ROOT
62 %defattr(644,root,root,755)
64 %dir %{perl_vendorlib}/Tie/Tk
65 %{perl_vendorlib}/Tie/Tk/Text.pm
66 %{_mandir}/man3/Tie::Tk::Text.3pm*