diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-06-06 22:06:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-06-06 22:06:07 (GMT) |
| commit | 6594906a3948d6ffb7d51ba989ac3754f2ff230e (patch) | |
| tree | e97a209a0de1adc679dbf9d5c4c146263ac0a0e9 /library/console.tcl | |
| parent | 41e0b7430523cf029f1d8d906d237d9b3ba443fd (diff) | |
| parent | 1561619c55815e32523818007685d998b7fc7ea8 (diff) | |
| download | tk-6594906a3948d6ffb7d51ba989ac3754f2ff230e.zip tk-6594906a3948d6ffb7d51ba989ac3754f2ff230e.tar.gz tk-6594906a3948d6ffb7d51ba989ac3754f2ff230e.tar.bz2 | |
Restore proper NUL output to the [console]. [Bug 2546087]
Diffstat (limited to 'library/console.tcl')
| -rw-r--r-- | library/console.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/console.tcl b/library/console.tcl index d9c788b..5df7927 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -677,7 +677,7 @@ proc ::tk::ConsoleInsert {w s} { proc ::tk::ConsoleOutput {dest string} { set w .console - $w insert output [string map {\0 \u25a1} $string] $dest + $w insert output $string $dest ::tk::console::ConstrainBuffer $w $::tk::console::maxLines $w see insert } |