author | Oleksandr Gavenko <gavenkoa@gmail.com> |
Tue, 01 Aug 2017 01:20:56 +0300 (2017-07-31) | |
changeset 868 | e3b5f71d12f0 |
parent 635 | 799341bb0ea7 |
permissions | -rw-r--r-- |
# -*- mode: tcl -*- if {$tcl_interactive} { catch { package require tclreadline namespace eval tclreadline { if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) { proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " } proc prompt2 {} { return "\[0;31m...> \[0m" } } { proc prompt1 {} { return "tcl> " } proc prompt2 {} { return "...> " } } } ::tclreadline::Loop } }