[52109] trunk/dports/perl/p5-tk

[blb at macports.org]

Revision: 52109
          http://trac.macports.org/changeset/52109
Author:   blb at macports.org
Date:     2009-06-09 23:27:29 -0700 (Tue, 09 Jun 2009)
Log Message:
-----------
perl/p5-tk - fix issue with newer X libraries

Modified Paths:
--------------
    trunk/dports/perl/p5-tk/Portfile

Added Paths:
-----------
    trunk/dports/perl/p5-tk/files/
    trunk/dports/perl/p5-tk/files/patch-pTk_mTk_generic_tk.h.diff

Modified: trunk/dports/perl/p5-tk/Portfile
===================================================================
--- trunk/dports/perl/p5-tk/Portfile	2009-06-10 06:18:14 UTC (rev 52108)
+++ trunk/dports/perl/p5-tk/Portfile	2009-06-10 06:27:29 UTC (rev 52109)
@@ -3,6 +3,7 @@
 PortSystem          1.0
 PortGroup           perl5 1.0
 perl5.setup         Tk 804.028
+revision            1
 maintainers         nomaintainer
 description         p5-tk is a Perl interface to Tk
 
@@ -12,3 +13,7 @@
 
 depends_lib-append  port:tk port:p5-term-readkey
 
+# Work around issue with newer X libraries, see 
+# http://rt.cpan.org/Public/Bug/Display.html?id=38746
+patchfiles          patch-pTk_mTk_generic_tk.h.diff
+

Added: trunk/dports/perl/p5-tk/files/patch-pTk_mTk_generic_tk.h.diff
===================================================================
--- trunk/dports/perl/p5-tk/files/patch-pTk_mTk_generic_tk.h.diff	                        (rev 0)
+++ trunk/dports/perl/p5-tk/files/patch-pTk_mTk_generic_tk.h.diff	2009-06-10 06:27:29 UTC (rev 52109)
@@ -0,0 +1,25 @@
+--- pTk/mTk/generic/tk.h.orig	2007-05-05 20:41:02.000000000 +0200
++++ pTk/mTk/generic/tk.h	2008-08-27 03:16:31.000000000 +0200
+@@ -677,17 +677,15 @@
+  *
+  *---------------------------------------------------------------------------
+  */
+-#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)
+ 
+ 
+ /*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090609/cd0cd108/attachment-0001.html>