From ab3740cf60e35ad20ac9a37728fa26fcf2fdf2f6 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 27 Aug 2001 01:44:48 +0000
Subject: 	*  Corrected TIP 44 typo         that broke binding.  Thanks
 to "Michal" for the fix.         [Bug 455468]

---
 ChangeLog        | 6 ++++++
 library/text.tcl | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a27d7b0..5562516 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-26  Don Porter  <dgp@users.sourceforge.net>
+
+	* library/text.tcl (<Shift-Up> binding):  Corrected TIP 44 typo
+	that broke binding.  Thanks to "Michal" for the fix.
+	[Bug 455468]
+
 2001-08-23  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* unix/configure:
diff --git a/library/text.tcl b/library/text.tcl
index c3ff764..9abc9ae 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -3,7 +3,7 @@
 # This file defines the default bindings for Tk text widgets and provides
 # procedures that help in implementing the bindings.
 #
-# RCS: @(#) $Id: text.tcl,v 1.16 2001/08/01 16:21:11 dgp Exp $
+# RCS: @(#) $Id: text.tcl,v 1.17 2001/08/27 01:44:48 dgp Exp $
 #
 # Copyright (c) 1992-1994 The Regents of the University of California.
 # Copyright (c) 1994-1997 Sun Microsystems, Inc.
@@ -108,7 +108,7 @@ bind Text <Shift-Right> {
     tk::TextKeySelect %W [%W index {insert + 1c}]
 }
 bind Text <Shift-Up> {
-    tkT::extKeySelect %W [tk::TextUpDownLine %W -1]
+    tk::TextKeySelect %W [tk::TextUpDownLine %W -1]
 }
 bind Text <Shift-Down> {
     tk::TextKeySelect %W [tk::TextUpDownLine %W 1]
-- 
cgit v0.12