rpms/perl-Tk/F-10 perl-Tk-events.patch, NONE, 1.1 perl-Tk.spec, 1.16, 1.17

[Andreas Bierfert]

Author: awjb

Update of /cvs/pkgs/rpms/perl-Tk/F-10
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv30888/F-10

Modified Files:
	perl-Tk.spec 
Added Files:
	perl-Tk-events.patch 
Log Message:
- fix events (#489228, #491536, #506496)


perl-Tk-events.patch:

--- NEW FILE perl-Tk-events.patch ---
--- 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)
 
 
 /*


Index: perl-Tk.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Tk/F-10/perl-Tk.spec,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- perl-Tk.spec	19 Mar 2009 15:28:34 -0000	1.16
+++ perl-Tk.spec	22 Jun 2009 16:43:02 -0000	1.17
@@ -3,7 +3,7 @@
 
 Name:           perl-Tk
 Version:        804.028
-Release:        7%{?dist}
+Release:        8%{?dist}
 Summary:        Perl Graphical User Interface ToolKit
 
 Group:          Development/Libraries
@@ -17,6 +17,9 @@ Patch1:         perl-Tk-debian.patch.gz
 Patch2:         perl-Tk-seg.patch
 # fix interaction with XIM, bug #489228, upstream change r12589
 Patch3:		perl-Tk-XIM.patch
+# fix for bugs #491536 & #489228 & #506496 (see comment #8)
+# see http://rt.cpan.org/Public/Bug/Display.html?id=38746
+Patch4:		perl-Tk-events.patch
 
 # fix gif overflow in tk see CVE-2006-4484 and CVE-2007-6697 or #431518 and
 # #431529
@@ -60,6 +63,7 @@ chmod -x pod/Popup.pod Tixish/lib/Tk/bal
 # patch to fix #235666 ... seems like caching code is broken
 %patch2 -p1 -b .seg
 %patch3 -p1 -b .xim
+%patch4 -b .events
 %patch100
 
 %build
@@ -105,6 +109,10 @@ rm -rf $RPM_BUILD_ROOT
 %exclude %{perl_vendorarch}/Tk/reindex.pl
 
 %changelog
+* Mon Jun 15 2009 Andreas Bierfert <andreas.bierfert[AT]lowlatency.de>
+- 804.028-8
+- fix events (#489228, #491536, #506496) 
+
 * Thu Mar 19 2009 Stepan Kasal <skasal at redhat.com> - 804.028-7
 - perl-Tk-XIM.patch (#489228)