From 592c812585a28ef601512af84b033e3d8d09f7c8 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 22 Jun 2002 08:50:43 +0000
Subject: 	* library/console.tcl: corrected the defaultPrompt
 substitution 	[Bug #553207] and made Tab a default expansion key (like
 Escape).

---
 library/console.tcl | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/library/console.tcl b/library/console.tcl
index ee5fbf8..37739b5 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.19 2002/05/20 10:21:23 das Exp $
+# RCS: @(#) $Id: console.tcl,v 1.20 2002/06/22 08:50:43 hobbs Exp $
 #
 # Copyright (c) 1995-1997 Sun Microsystems, Inc.
 # Copyright (c) 1998-2000 Ajuba Solutions.
@@ -25,10 +25,11 @@ namespace eval ::tk::console {
     variable inPlugin [info exists embed_args]
     variable defaultPrompt  ; # default prompt if tcl_prompt1 isn't used
 
+
     if {$inPlugin} {
-	set defaultPrompt {subst "[history nextid] % "}
+	set defaultPrompt {subst {[history nextid] % }}
     } else {
-	set defaultPrompt {subst "([file tail [pwd]]) [history nextid] % "}
+	set defaultPrompt {subst {([file tail [pwd]]) [history nextid] % }}
     }
 }
 
@@ -312,6 +313,7 @@ proc ::tk::ConsoleBind {w} {
 	<<Console_PrevSearch>>		<Control-Key-r>
 	<<Console_NextSearch>>		<Control-Key-s>
 
+	<<Console_Expand>>		<Key-Tab>
 	<<Console_Expand>>		<Key-Escape>
 	<<Console_ExpandFile>>		<Control-Shift-Key-F>
 	<<Console_ExpandProc>>		<Control-Shift-Key-P>
@@ -331,11 +333,6 @@ proc ::tk::ConsoleBind {w} {
 	bind Console $key {}
     }
 
-    bind Console <Tab> {
-	tk::ConsoleInsert %W \t
-	focus %W
-	break
-    }
     bind Console <<Console_Expand>> {
 	if {[%W compare insert > promptEnd]} {::tk::console::Expand %W}
     }
-- 
cgit v0.12