+
−# -*- 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
+
−    }
+
−}