Your message dated Fri, 08 May 2009 19:47:08 +0000
with message-id <[email protected]>
and subject line Bug#518338: fixed in perl-tk 1:804.028-4
has caused the Debian Bug report #518338,
regarding perl-tk incompatible with XIM
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)
--
518338: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=518338
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
Package: perl-tk
Version: 1:804.028-3
I cannot input in Entry. This is caused by some incompatibility with XIM.
With the help of google, I finally find this patch:
--- pTk/mTk/generic/tkEvent.c 2008-09-05 13:29:48.000000000 +0800
+++ pTk/mTk/generic/tkEvent.c 2008-09-05 13:17:24.000000000 +0800
@@ -945,8 +945,10 @@
#endif
}
}
- if (XFilterEvent(eventPtr, None)) {
- goto done;
+ if(eventPtr->type == KeyPress || eventPtr->type == KeyRelease) {
+ if(XFilterEvent(eventPtr, None)) {
+ goto done;
+ }
}
}
#endif /* TK_USE_INPUT_METHODS */
--- pTk/mTk/unix/tkUnixEvent.c 2008-09-05 13:29:50.000000000 +0800
+++ pTk/mTk/unix/tkUnixEvent.c 2008-09-05 13:20:35.000000000 +0800
@@ -308,19 +308,18 @@
TransferXEventsToTcl(display)
Display *display;
{
- int numFound;
XEvent event;
- numFound = QLength(display);
-
/*
* Transfer events from the X event queue to the Tk event queue.
*/
- while (numFound > 0) {
+ while (QLength(display) > 0) {
XNextEvent(display, &event);
+ if(event.type!=KeyPress && event.type!=KeyRelease) {
+ if(XFilterEvent(&event, None)) {continue;}
+ }
Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
- numFound--;
}
}
I've tested this patch, and it works perfectly. Hope it can be accepted.
--- End Message ---
--- Begin Message ---
Source: perl-tk
Source-Version: 1:804.028-4
We believe that the bug you reported is fixed in the latest version of
perl-tk, which is due to be installed in the Debian FTP archive:
perl-tk_804.028-4.diff.gz
to pool/main/p/perl-tk/perl-tk_804.028-4.diff.gz
perl-tk_804.028-4.dsc
to pool/main/p/perl-tk/perl-tk_804.028-4.dsc
perl-tk_804.028-4_i386.deb
to pool/main/p/perl-tk/perl-tk_804.028-4_i386.deb
A summary of the changes between this version and the previous one is
attached.
Thank you for reporting the bug, which will now be closed. If you
have further comments please address them to [email protected],
and the maintainer will reopen the bug report if appropriate.
Debian distribution maintenance software
pp.
Colin Tuckley <[email protected]> (supplier of updated perl-tk package)
(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing [email protected])
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Format: 1.8
Date: Sun, 03 May 2009 17:22:12 +0100
Source: perl-tk
Binary: perl-tk
Architecture: source i386
Version: 1:804.028-4
Distribution: unstable
Urgency: low
Maintainer: Colin Tuckley <[email protected]>
Changed-By: Colin Tuckley <[email protected]>
Description:
perl-tk - Perl module providing the Tk graphics library
Closes: 205895 518338
Changes:
perl-tk (1:804.028-4) unstable; urgency=low
.
* Fix incompatibility with XIM bug (upstream patch) (Closes: #518338)
* Bump standards version to 3.8.1 (no changes required).
* Make the cut/copy/paste keys case insensitive (Closes: #205895)
Checksums-Sha1:
b5a6c177aba3218f6f94d8105bcad38bb54409f4 1185 perl-tk_804.028-4.dsc
11903a93b21f8b32ff199190d69af516e4d3d53e 9255 perl-tk_804.028-4.diff.gz
5a46d9fc3f4df14085577671fa7743999e154d70 2447398 perl-tk_804.028-4_i386.deb
Checksums-Sha256:
5317b2756272cc6ab1bb2d1e2fa1dcff372cb877522b8a680c824f93c0090ddd 1185
perl-tk_804.028-4.dsc
aac71454ba985825094ab8b6d5122d21aeeccd89e0cc885d94a75a3e56e49b58 9255
perl-tk_804.028-4.diff.gz
827726441d92268bede6c162f931ad9cf4ae5007f1dde0d4461bac7a55cc3c15 2447398
perl-tk_804.028-4_i386.deb
Files:
ce2912f6ae95d12d6cd7e1b32ba73ec7 1185 perl optional perl-tk_804.028-4.dsc
b4f6d1fa04bfdda14794df9fb43f1d33 9255 perl optional perl-tk_804.028-4.diff.gz
6054a68494fbae760f2c481ebc667d2d 2447398 perl optional
perl-tk_804.028-4_i386.deb
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
iEYEARECAAYFAkoEiYkACgkQj2OPlhswRc47kgCg6k8d7VsaxgBIKlaw3+VbC08T
EPUAoOTFfMnekzNVLuTVDxhIXkuGIPQO
=oQdW
-----END PGP SIGNATURE-----
--- End Message ---
