URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [tcl/] [.wishrc] - Rev 11
Go to most recent revision | Compare with Previous | Blame | View Log
# -*- tcl -*-
# $Id: .wishrc 376 2011-04-17 12:24:07Z mueller $
#
lappend auto_path [file join $env(RETROBASE) tools tcl]
lappend auto_path [file join $env(RETROBASE) tools lib]
#
if {$tcl_interactive} {
package require tclreadline
namespace eval tclreadline {
proc prompt1 {} {
set version [info tclversion]
return "tclsh$version > "
}
}
::tclreadline::Loop
}
Go to most recent revision | Compare with Previous | Blame | View Log