diff options
| author | hobbs <hobbs> | 2001-10-18 20:26:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-10-18 20:26:24 (GMT) |
| commit | a36d14a86cf8de94e8d6c600ad5972f8dc5c4b6c (patch) | |
| tree | f9c40d4fb48fc89215ca9e3c683a981b67f13893 | |
| parent | 185d37eb67a0bf7aae3fe7eacc68ed1ee5cd5b23 (diff) | |
| download | tk-a36d14a86cf8de94e8d6c600ad5972f8dc5c4b6c.zip tk-a36d14a86cf8de94e8d6c600ad5972f8dc5c4b6c.tar.gz tk-a36d14a86cf8de94e8d6c600ad5972f8dc5c4b6c.tar.bz2 | |
* library/console.tcl (tkConsoleOutput): fixed undefined widget
argument.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | library/console.tcl | 7 |
2 files changed, 9 insertions, 3 deletions
@@ -1,3 +1,8 @@ +2001-10-18 Jeff Hobbs <jeffh@ActiveState.com> + + * library/console.tcl (tkConsoleOutput): fixed undefined widget + argument. + 2001-10-17 Daniel Steffen <das@users.sourceforge.net> * mac/tkMacProjects.sea.hqx: updated projects with new version diff --git a/library/console.tcl b/library/console.tcl index 78b96da..79767ca 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.8.2.1 2001/10/09 23:10:31 hobbs Exp $ +# RCS: @(#) $Id: console.tcl,v 1.8.2.2 2001/10/18 20:26:24 hobbs Exp $ # # Copyright (c) 1998-1999 Scriptics Corp. # Copyright (c) 1995-1997 Sun Microsystems, Inc. @@ -544,9 +544,10 @@ proc tkConsoleInsert {w s} { # string - The string to be displayed. proc tkConsoleOutput {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 } # tkConsoleExit -- |