|
|
|
@ -1366,6 +1366,7 @@ proc repl::repl_handler {inputchan prompt_config} { |
|
|
|
#fallback - try external executable. Which is a bit ugly |
|
|
|
#fallback - try external executable. Which is a bit ugly |
|
|
|
#tput can work on windows too if it's installed e.g from msys2 |
|
|
|
#tput can work on windows too if it's installed e.g from msys2 |
|
|
|
#but can be *slow* compared to unix e.g 400ms+ vs <2ms on FreeBSD ! |
|
|
|
#but can be *slow* compared to unix e.g 400ms+ vs <2ms on FreeBSD ! |
|
|
|
|
|
|
|
|
|
|
|
set tputcmd [auto_execok tput] |
|
|
|
set tputcmd [auto_execok tput] |
|
|
|
if {$tputcmd ne ""} { |
|
|
|
if {$tputcmd ne ""} { |
|
|
|
if {![catch {exec {*}$tputcmd cols lines} values]} { |
|
|
|
if {![catch {exec {*}$tputcmd cols lines} values]} { |
|
|
|
|
