From 5473dd64ef30281571d489b024347fc3cf8ec70e Mon Sep 17 00:00:00 2001
From: dgp <dgp@noemail.net>
Date: Fri, 1 Mar 2002 00:04:27 +0000
Subject:         * library/console.tcl (ConsoleBind): Corrected console
 <<Paste>>         binding on Unix platforms.

FossilOrigin-Name: 2187fed2a80ec3c4028328334d16423b87811820
---
 ChangeLog           | 5 +++++
 library/console.tcl | 6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 856820e..ec21104 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-28  Don Porter  <dgp@users.sourceforge.net>
+
+	* library/console.tcl (ConsoleBind): Corrected console <<Paste>>
+	binding on Unix platforms.
+
 2002-02-26  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* unix/configure: Regen.
diff --git a/library/console.tcl b/library/console.tcl
index 776e7b4..70c5f51 100644
--- a/library/console.tcl
+++ b/library/console.tcl
@@ -4,7 +4,7 @@
 # can be used by non-unix systems that do not have built-in support
 # for shells.
 #
-# RCS: @(#) $Id: console.tcl,v 1.16 2001/11/23 02:04:17 das Exp $
+# RCS: @(#) $Id: console.tcl,v 1.17 2002/03/01 00:04:27 dgp Exp $
 #
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Ajuba Solutions.
@@ -289,8 +289,10 @@ proc ::tk::ConsoleBind {w} {
 
     ## Get all Text bindings into Console
     foreach ev [bind Text] { bind Console $ev [bind Text $ev] }	
-    ## We really didn't want the newline insertion
+    ## We really didn't want the newline insertion...
     bind Console <Control-Key-o> {}
+    ## ...or any Control-v binding (would block <<Paste>>)
+    bind Console <Control-Key-v> {}
 
     # For the moment, transpose isn't enabled until the console
     # gets and overhaul of how it handles input -- hobbs
-- 
cgit v0.12