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

[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 +0000
+++ 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>]);