Commit | Line | Data |
---|---|---|
78719982 MW |
1 | ### -*-tcl-*- |
2 | ||
3 | if {$tcl_interactive} { | |
4 | if {![catch { package require tclreadline }]} { | |
5 | proc _set_prompt {} { | |
6 | set bold [exec tput bold] | |
7 | set unbold [exec tput sgr0] | |
8 | set interp [file tail [info nameofexecutable]] | |
9 | proc ::tclreadline::prompt1 {} \ | |
10 | [list return "$bold$interp%$unbold "] | |
11 | proc ::tclreadline::prompt2 {} \ | |
12 | [list return "$bold$interp>$unbold "] | |
13 | } | |
14 | _set_prompt | |
15 | rename _set_prompt {} | |
16 | ::tclreadline::Loop | |
17 | } | |
18 | } |