<pre style='margin:0'>
Perry E. Metzger (pmetzger) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/59e3a577f32c6059ecd1b97b1748c055e153c311">https://github.com/macports/macports-ports/commit/59e3a577f32c6059ecd1b97b1748c055e153c311</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 59e3a57 p5-tcl-ptk: update to 0.93, revise patches and deps
</span>59e3a57 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 59e3a577f32c6059ecd1b97b1748c055e153c311
</span>Author: Christopher Chavez <chrischavez@gmx.us>
AuthorDate: Fri Jul 13 09:02:32 2018 -0500
<span style='display:block; white-space:pre;color:#404040;'> p5-tcl-ptk: update to 0.93, revise patches and deps
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> For now, remove the tix dependency since it requires tk +x11 variant
</span><span style='display:block; white-space:pre;color:#404040;'> (common use case for Tcl::pTk is with aqua Tk instead of X11 Tk)
</span><span style='display:block; white-space:pre;color:#404040;'> Add note to re-add tix and tktable once they support tk +quartz
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> Remove patches applied upstream
</span>---
perl/p5-tcl-ptk/Portfile | 28 +++++++++-------------------
perl/p5-tcl-ptk/files/patch-Makefile.PL.diff | 8 --------
perl/p5-tcl-ptk/files/patch-Text.pm.diff | 25 -------------------------
perl/p5-tcl-ptk/files/patch-Widget.pm.diff | 16 ----------------
4 files changed, 9 insertions(+), 68 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-tcl-ptk/Portfile b/perl/p5-tcl-ptk/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index ab7f474..dfef589 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-tcl-ptk/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/perl/p5-tcl-ptk/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4,7 +4,7 @@ PortSystem 1.0
</span> PortGroup perl5 1.0
perl5.branches 5.26
<span style='display:block; white-space:pre;background:#ffe0e0;'>-perl5.setup Tcl-pTk 0.92
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.setup Tcl-pTk 0.93
</span>
platforms darwin
maintainers {@chrstphrchvz gmx.us:chrischavez} openmaintainer
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -25,9 +25,9 @@ long_description Tcl::pTk interfaces perl to an existing Tcl/Tk \
</span> features (for example native-looking widgets using the \
Tile package).\n
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums rmd160 3155582f86ed22285f36531dde56a16c2406e8e1 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- sha256 2fcb68e8b0dd7a7b1871b192eee2281842ded4555cb407e276ace14462f17583 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- size 528082
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums rmd160 a184dd74f2c135d16737e899b93eb08abae7f87b \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sha256 64f5089147e1700f2f70051ea2aa9dcc4896f68659b8dd986585f9febb3daa1a \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ size 538814
</span>
if {${perl5.major} != ""} {
# Only used for a test removed by patch;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -35,25 +35,15 @@ if {${perl5.major} != ""} {
</span> #configure.args-append \
# --tclsh ${prefix}/bin/tclsh
<span style='display:block; white-space:pre;background:#e0ffe0;'>+ # TODO: if and when Tix and Tktable ports support aqua,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # add those as dependencies
</span> depends_lib-append \
port:tk \
<span style='display:block; white-space:pre;background:#ffe0e0;'>- port:tix \
</span> port:p${perl5.major}-tcl \
port:p${perl5.major}-class-isa \
port:p${perl5.major}-sub-name
<span style='display:block; white-space:pre;background:#ffe0e0;'>- # Cf.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # https://rt.cpan.org/Ticket/Display.html?id=125048
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # https://rt.cpan.org/Ticket/Display.html?id=125050
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # https://rt.cpan.org/Ticket/Display.html?id=125460
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # This distribution contains a mix of LF and CRLF,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # so these patches also contain CRLF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # Bypass the test-for-tk since it doesn't work from MacPorts
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # (Perl never gets any output from tclsh for some reason)
</span> patchfiles-append \
<span style='display:block; white-space:pre;background:#ffe0e0;'>- patch-Widget.pm.diff \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- patch-Text.pm.diff
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Two seaparate fixes:
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # - https://rt.cpan.org/Ticket/Display.html?id=116432
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # - Bypass the test-for-tk since it doesn't work
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # (Perl never gets any output from tclsh for some reason)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- patchfiles-append \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- patch-Makefile.PL.diff \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patch-Makefile.PL.diff
</span> }
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-tcl-ptk/files/patch-Makefile.PL.diff b/perl/p5-tcl-ptk/files/patch-Makefile.PL.diff
</span><span style='display:block; white-space:pre;color:#808080;'>index b772425..3ebde95 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-tcl-ptk/files/patch-Makefile.PL.diff
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/perl/p5-tcl-ptk/files/patch-Makefile.PL.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,13 +1,5 @@
</span> --- /opt/local/var/macports/build/_opt_local_var_macports_sources_github.com_macports_macports-ports_perl_p5-tcl-ptk/p5.26-tcl-ptk/work/Tcl-pTk-0.92/Makefile.PL 2015-07-04 10:34:13.000000000 -0500
+++ Makefile.PL 2018-06-16 15:19:40.000000000 -0500
<span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -32,6 +32,7 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- PREREQ_PM => {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- Tcl => 0.90,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- 'Class::ISA' => 0.36,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ 'Sub::Name' => 0.05,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> @@ -46,63 +47,6 @@
);
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-tcl-ptk/files/patch-Text.pm.diff b/perl/p5-tcl-ptk/files/patch-Text.pm.diff
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 3bfe599..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-tcl-ptk/files/patch-Text.pm.diff
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,25 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- /opt/local/var/macports/build/_opt_local_var_macports_sources_github.com_macports_macports-ports_perl_p5-tcl-ptk/p5.26-tcl-ptk/work/Tcl-pTk-0.92/lib/Tcl/pTk/Text.pm 2016-08-21 07:34:35.000000000 -0500
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ lib/Tcl/pTk/Text.pm 2018-06-10 00:00:26.000000000 -0500
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -3,6 +3,8 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- package Tcl::pTk::Text;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+use Text::Tabs;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- our ($VERSION) = ('0.92');
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # borrowed from Tk/Text.pm without any modifications
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -26,7 +28,12 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- my ($class,$mw) = @_;
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- $class->SUPER::ClassInit($mw, 'Text'); # Call with optional 'Text' Tag
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- $mw->bind($class, '<3>', ['PostPopupMenu', Tcl::pTk::Ev('X'), Tcl::pTk::Ev('Y')] ); # right-click menu
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ # right-click menu
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ $mw->bind(
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ $class,
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ $mw->windowingsystem eq 'aqua' ? '<2>' : '<3>',
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ['PostPopupMenu', Tcl::pTk::Ev('X'), Tcl::pTk::Ev('Y')],
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ );
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # We use the 'Text' tag for the bindings below, because we are adding to the tcl text-widget
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # bindings, which are under the 'Text' bindtag.
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-tcl-ptk/files/patch-Widget.pm.diff b/perl/p5-tcl-ptk/files/patch-Widget.pm.diff
</span>deleted file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0a7cbfa..0000000
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/perl/p5-tcl-ptk/files/patch-Widget.pm.diff
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1,16 +0,0 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>---- /opt/local/var/macports/build/_opt_local_var_macports_sources_github.com_macports_macports-ports_perl_p5-tcl-ptk/p5.26-tcl-ptk/work/Tcl-pTk-0.92/lib/Tcl/pTk/Widget.pm 2016-08-21 07:34:35.000000000 -0500
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+++ lib/Tcl/pTk/Widget.pm 2018-06-14 19:10:26.000000000 -0500
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-@@ -2417,9 +2417,11 @@
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # events on other platforms.
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- $mw->bind($class, '<MouseWheel>',
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- [ sub { $_[0]->yview('scroll',-int(($_[1]/120)),'units') }, Tcl::pTk::Ev("D")]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ $mw->windowingsystem eq 'aqua'
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ ? [ sub { $_[0]->yview('scroll',-($_[1]),'units') }, Tcl::pTk::Ev("D")]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ : [ sub { $_[0]->yview('scroll',-int(($_[1]/120)),'units') }, Tcl::pTk::Ev("D")]);
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-- if ($Tcl::pTk::platform eq 'unix')
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-+ if ($mw->windowingsystem eq 'x11')
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # Support for mousewheels on Linux/Unix commonly comes through mapping
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- # the wheel to the extended buttons. If you have a mousewheel, find
</span></pre><pre style='margin:0'>
</pre>