Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | revert bad change to quoting in ctrl.tcl |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2cafc97e621b1d28338cd090045b201f |
| User & Date: | pooryorick 2013-11-20 06:41:43 |
Context
|
2013-11-22
| ||
| 17:29 | Fix trunk split. check-in: d233d12198 user: andreask tags: trunk | |
|
2013-11-20
| ||
| 06:41 | revert bad change to quoting in ctrl.tcl check-in: 2cafc97e62 user: pooryorick tags: trunk | |
| 06:38 | add support for default arguments to term::ansi::send fix documentation types quoting cleanup check-in: c80b6fffde user: pooryorick tags: trunk | |
Changes
Changes to modules/term/ansi/code/ctrl.tcl.
131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 |
# Force Cursor Position (aka Go To)
DEFC fcp {r c} {escb ${r}\;${c}f}
# Cursor Up, Down, Forward, Backward
DEFC cu {{n 1}} {escb [expr {$n == 1 ? A : ${n}A}]}
DEFC cd {{n 1}} {escb [expr {$n == 1 ? B : ${n}B}]}
DEFC cf {{n 1}} {escb [expr {$n == 1 ? C : ${n}C}]}
DEFC cb {{n 1}} {escb [expr {$n == 1 ? D : ${n}D}]}
# Scroll Screen (entire display, or between rows start end, inclusive).
DEFC ss {args} {
if {[llength $args] == 0} {return [escb r]}
if {[llength $args] == 2} {foreach {s e} $args break ; return [escb ${s};${e}r]}
return -code error "wrong\#args"
|
| | | | |
131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 |
# Force Cursor Position (aka Go To)
DEFC fcp {r c} {escb ${r}\;${c}f}
# Cursor Up, Down, Forward, Backward
DEFC cu {{n 1}} {escb [expr {$n == 1 ? "A" : "${n}A"}]}
DEFC cd {{n 1}} {escb [expr {$n == 1 ? "B" : "${n}B"}]}
DEFC cf {{n 1}} {escb [expr {$n == 1 ? "C" : "${n}C"}]}
DEFC cb {{n 1}} {escb [expr {$n == 1 ? "D" : "${n}D"}]}
# Scroll Screen (entire display, or between rows start end, inclusive).
DEFC ss {args} {
if {[llength $args] == 0} {return [escb r]}
if {[llength $args] == 2} {foreach {s e} $args break ; return [escb ${s};${e}r]}
return -code error "wrong\#args"
|