Bug#205895: CAPS-LOCK + Ctrl + c does not copy into clipboard in TextUndo

2009-05-07 Thread Slaven Rezic 
Colin Tuckley col...@debian.org writes:

 I've looked at this on and off for quite a while.

 Investigations on several different systems (incl Windows) indicate that the
 state of the Caps Lock or Shift keys makes no difference to what Cntrl-c etc 
 do.

 I intend to talk with upstream again about this with a view to having the
 attached patch incorporated.


I applied a slight variation of the patch, see
https://svn.perl.org/modules/Tk/tr...@12756

The original patch was problematic because it also accepted
Shift-Control-c as cut, which seems not to be the behavior in Gtk2 and
Qt applications (I don't care about Windows). An additional Lock-
fixed this problem.

Regards,
Slaven

-- 
Slaven Rezic - slaven at rezic dot de

tknotes - A knotes clone, written in Perl/Tk.
http://ptktools.sourceforge.net/#tknotes



-- 
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of unsubscribe. Trouble? Contact listmas...@lists.debian.org

Bug#205895: CAPS-LOCK + Ctrl + c does not copy into clipboard in TextUndo

2009-05-03 Thread Colin Tuckley 
I've looked at this on and off for quite a while.

Investigations on several different systems (incl Windows) indicate that the
state of the Caps Lock or Shift keys makes no difference to what Cntrl-c etc do.

I intend to talk with upstream again about this with a view to having the
attached patch incorporated.

Colin

-- 
Colin Tuckley  |  +44(0)1223 293413  |  PGP/GnuPG Key Id
Debian Developer   |  +44(0)7799 143369  | 0x1B3045CE

Apple (c) Copyright 1767, Sir Isaac Newton.
--- trunk/Tk/MainWindow.pm	2008-02-15 15:18:36.029074482 +
+++ perl-tk-804.028/Tk/MainWindow.pm	2009-05-03 17:01:22.851959550 +0100
@@ -90,9 +90,9 @@
  $mw-bind('all','LeftTab','focusPrev');
  if ($mw-windowingsystem eq 'x11')
   {
-   $mw-eventAdd(qw[Cut Control-Key-x Key-F20 Meta-Key-w]);
-   $mw-eventAdd(qw[Copy Control-Key-c Key-F16 Control-Key-w]);
-   $mw-eventAdd(qw[Paste Control-Key-v Key-F18 Control-Key-y]);
+   $mw-eventAdd(qw[Cut Control-Key-x Control-Key-X Key-F20 Meta-Key-w]);
+   $mw-eventAdd(qw[Copy Control-Key-c Control-Key-C Key-F16 Control-Key-w]);
+   $mw-eventAdd(qw[Paste Control-Key-v Control-Key-V Key-F18 Control-Key-y]);
$mw-eventAdd(qw[PasteSelection ButtonRelease-2]);
$mw-eventAdd(qw[Undo Control-Key-z Key-Undo Key-F14
 Control-Key-underscore]);