equal
deleted
inserted
replaced
4 catch { |
4 catch { |
5 package require tclreadline |
5 package require tclreadline |
6 namespace eval tclreadline { |
6 namespace eval tclreadline { |
7 if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) { |
7 if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) { |
8 proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " } |
8 proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " } |
|
9 proc prompt2 {} { return "\[0;31m...> \[0m" } |
9 } { |
10 } { |
10 proc prompt1 {} { return "tcl> " } |
11 proc prompt1 {} { return "tcl> " } |
|
12 proc prompt2 {} { return "...> " } |
11 } |
13 } |
12 } |
14 } |
13 ::tclreadline::Loop |
15 ::tclreadline::Loop |
14 } |
16 } |
15 } |
17 } |