diff options
| author | hobbs <hobbs> | 2001-10-18 20:26:42 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-10-18 20:26:42 (GMT) |
| commit | 79f7126d67f71949d8dbc9ae637851b9ee080c67 (patch) | |
| tree | fdbf83a8dc285810b787487d9e15b2bfc3334f17 /library/console.tcl | |
| parent | 414c25f923e8ebe7404e12157d17c237e57e3215 (diff) | |
| download | tk-79f7126d67f71949d8dbc9ae637851b9ee080c67.zip tk-79f7126d67f71949d8dbc9ae637851b9ee080c67.tar.gz tk-79f7126d67f71949d8dbc9ae637851b9ee080c67.tar.bz2 | |
* library/console.tcl (ConsoleOutput): fixed undefined widget
argument.
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/library/console.tcl b/library/console.tcl index 6375648..a9ad8a0 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.13 2001/10/09 23:11:02 hobbs Exp $ +# RCS: @(#) $Id: console.tcl,v 1.14 2001/10/18 20:26:42 hobbs Exp $ # # Copyright (c) 1995-1997 Sun Microsystems, Inc. # Copyright (c) 1998-2000 Ajuba Solutions. @@ -548,9 +548,10 @@ proc ::tk::ConsoleInsert {w s} { # string - The string to be displayed. proc ::tk::ConsoleOutput {dest string} { - .console insert output $string $dest + set w .console + $w insert output $string $dest ::tk::console::ConstrainBuffer $w $::tk::console::maxLines - .console see insert + $w see insert } # ::tk::ConsoleExit -- |