<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/ed9d1c3fd4baac27ba0a43a796c0be2191397631">https://github.com/macports/macports-ports/commit/ed9d1c3fd4baac27ba0a43a796c0be2191397631</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 ed9d1c3 p5-tcl-ptk: new port, version 0.92
</span>ed9d1c3 is described below
<span style='display:block; white-space:pre;color:#808000;'>commit ed9d1c3fd4baac27ba0a43a796c0be2191397631
</span>Author: Christopher Chavez <chrischavez@gmx.us>
AuthorDate: Sat Jun 16 19:49:19 2018 -0500
<span style='display:block; white-space:pre;color:#404040;'> p5-tcl-ptk: new port, version 0.92
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> bypass unneeded dependency test in Makefile.PL
</span><span style='display:block; white-space:pre;color:#404040;'> add patches not yet included upstream for a few issues
</span>---
perl/p5-tcl-ptk/Portfile | 59 ++++++++++++++++++++++
perl/p5-tcl-ptk/files/patch-Makefile.PL.diff | 74 ++++++++++++++++++++++++++++
perl/p5-tcl-ptk/files/patch-Text.pm.diff | 25 ++++++++++
perl/p5-tcl-ptk/files/patch-Widget.pm.diff | 16 ++++++
4 files changed, 174 insertions(+)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/perl/p5-tcl-ptk/Portfile b/perl/p5-tcl-ptk/Portfile
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..ab7f474
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</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;'>@@ -0,0 +1,59 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+# -*- coding: utf-8; mode: tcl; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- vim:fenc=utf-8:ft=tcl:et:sw=4:ts=4:sts=4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+PortSystem 1.0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+PortGroup perl5 1.0
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.branches 5.26
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+perl5.setup Tcl-pTk 0.92
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+platforms darwin
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+maintainers {@chrstphrchvz gmx.us:chrischavez} openmaintainer
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+license {Artistic-1 GPL}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+supported_archs noarch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+description Tcl::pTk - Interface to Tcl/Tk with Perl/Tk compatible sytax
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+long_description Tcl::pTk interfaces perl to an existing Tcl/Tk \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ installation on your computer. It has fully perl/tk \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ compatible syntax for running existing perl/tk scripts, \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ as well as direct-tcl syntax for using any other Tcl/Tk \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ features. \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ \n\nUsing this module an interpreter object is created, \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ which then provides access to all the installed Tcl \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ libraries (Tk, Tix, BWidgets, BLT, etc) and existing \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ features (for example native-looking widgets using the \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tile package).\n
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums rmd160 3155582f86ed22285f36531dde56a16c2406e8e1 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sha256 2fcb68e8b0dd7a7b1871b192eee2281842ded4555cb407e276ace14462f17583 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ size 528082
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+if {${perl5.major} != ""} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # Only used for a test removed by patch;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # doesn't get stored in configuration
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #configure.args-append \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # --tclsh ${prefix}/bin/tclsh
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ depends_lib-append \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:tk \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:tix \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:p${perl5.major}-tcl \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:p${perl5.major}-class-isa \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ port:p${perl5.major}-sub-name
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # Cf.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # https://rt.cpan.org/Ticket/Display.html?id=125048
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # https://rt.cpan.org/Ticket/Display.html?id=125050
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # https://rt.cpan.org/Ticket/Display.html?id=125460
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # This distribution contains a mix of LF and CRLF,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # so these patches also contain CRLF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patchfiles-append \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patch-Widget.pm.diff \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patch-Text.pm.diff
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # Two seaparate fixes:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # - https://rt.cpan.org/Ticket/Display.html?id=116432
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # - Bypass the test-for-tk since it doesn't work
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # (Perl never gets any output from tclsh for some reason)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patchfiles-append \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ patch-Makefile.PL.diff \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</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>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..b772425
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</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;'>@@ -0,0 +1,74 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- /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
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ Makefile.PL 2018-06-16 15:19:40.000000000 -0500
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -32,6 +32,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ PREREQ_PM => {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl => 0.90,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 'Class::ISA' => 0.36,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ 'Sub::Name' => 0.05,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -46,63 +47,6 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-# Allow the tclsh prog to be provided by env var or arg
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-if ($tclshArg) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- $tclsh = $tclshArg;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-} elsif (defined($ENV{'TCLSH_PROG'})) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- $tclsh = $ENV{'TCLSH_PROG'};
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-open TCLSH, "$tclsh test-for-tk.tcl|";
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-my $res = join '', <TCLSH>;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-unless ($res =~ /^ok1/m) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- die <<EOS;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-##################### Error ####################################
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Your Tcl installation ($tclsh) doesn't appear to include the Tk package.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-One of possible reasons is missing file 'pkgIndex.tcl' in ..../tk8.4/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-directory; Please check if you can feed 'package require Tk' to tclsh
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-EOS
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-unless ($res =~ /^ok_Tix/m) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- warn <<EOS;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-##################### Warning ####################################
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Your Tcl/Tk installation does not appear to include the Tix package.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Tix is needed for full compatibility with perl/tk.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Build can continue, but some functionality will be missing.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Information on Tix can be found at http://tix.sourceforge.net
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-EOS
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-my ($TclVersion) = ($res =~ /TclVersion\s+(\S+)/ );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-if( $TclVersion < 8.4 ){
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- die <<EOS;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-##################### Error ####################################
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Your Tcl/Tk installation version is less than 8.4. This is not
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-supported. Upgrade your Tcl/Tk installation.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Tcl/Tk information can be found at http://www.tcl.tk/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-EOS
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-if( $TclVersion < 8.5 ){
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- warn <<EOS;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-##################### Warning ####################################
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-You have an older Tcl/Tk installation (Version 8.4).
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Version 8.5 or higher is recommended for full functionality (including
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-the new Tile Widget support).
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Build can continue, but some functionality will be missing.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-Tcl/Tk information can be found at http://www.tcl.tk/
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-EOS
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><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>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..3bfe599
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/perl/p5-tcl-ptk/files/patch-Text.pm.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,25 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- /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:#e0ffe0;'>++++ lib/Tcl/pTk/Text.pm 2018-06-10 00:00:26.000000000 -0500
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -3,6 +3,8 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ package Tcl::pTk::Text;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++use Text::Tabs;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ our ($VERSION) = ('0.92');
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # borrowed from Tk/Text.pm without any modifications
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -26,7 +28,12 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ my ($class,$mw) = @_;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $class->SUPER::ClassInit($mw, 'Text'); # Call with optional 'Text' Tag
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- $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:#e0ffe0;'>++ # right-click menu
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ $mw->bind(
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ $class,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ $mw->windowingsystem eq 'aqua' ? '<2>' : '<3>',
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ ['PostPopupMenu', Tcl::pTk::Ev('X'), Tcl::pTk::Ev('Y')],
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ );
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # 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:#e0ffe0;'>+ # 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>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 0000000..0a7cbfa
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/perl/p5-tcl-ptk/files/patch-Widget.pm.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,16 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- /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:#e0ffe0;'>++++ lib/Tcl/pTk/Widget.pm 2018-06-14 19:10:26.000000000 -0500
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -2417,9 +2417,11 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # events on other platforms.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ $mw->bind($class, '<MouseWheel>',
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- [ sub { $_[0]->yview('scroll',-int(($_[1]/120)),'units') }, Tcl::pTk::Ev("D")]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ $mw->windowingsystem eq 'aqua'
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ ? [ sub { $_[0]->yview('scroll',-($_[1]),'units') }, Tcl::pTk::Ev("D")]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ : [ sub { $_[0]->yview('scroll',-int(($_[1]/120)),'units') }, Tcl::pTk::Ev("D")]);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- if ($Tcl::pTk::platform eq 'unix')
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ if ($mw->windowingsystem eq 'x11')
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # Support for mousewheels on Linux/Unix commonly comes through mapping
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # the wheel to the extended buttons. If you have a mousewheel, find
</span></pre><pre style='margin:0'>
</pre>