]>
Commit | Line | Data |
---|---|---|
c224d2ef MF |
1 | # Get less sucky interactive behavior. |
2 | # http://tclreadline.sourceforge.net/ | |
3 | if {$tcl_interactive} { | |
4 | package require tclreadline | |
5 | namespace eval tclreadline { | |
6 | proc prompt1 {} { | |
7 | return "\ 1\e\[0;31m\ 2tclsh>\ 1\e\[0m\ 2 " | |
8 | } | |
9 | } | |
10 | namespace import tclreadline::ls | |
11 | ::tclreadline::Loop | |
12 | } |