| author | Oleksandr Gavenko <gavenkoa@gmail.com> |
| Fri, 30 Aug 2013 00:26:29 +0300 | |
| changeset 633 | ef2436c18276 |
| parent 632 | 500dcbf3445d |
| child 634 | 89a1a77ad559 |
| permissions | -rw-r--r-- |
|
632
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
1 |
# -*- mode: tcl -*- |
|
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
2 |
|
|
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
3 |
if {$tcl_interactive} {
|
|
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
4 |
package require tclreadline |
|
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
5 |
::tclreadline::Loop |
|
500dcbf3445d
Add readline and completion support to tclsh.
Oleksandr Gavenko <gavenkoa@gmail.com>
parents:
diff
changeset
|
6 |
} |