diff options
| -rw-r--r-- | library/console.tcl | 13 |
1 files 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} } |