Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | revert bad change to quoting in ctrl.tcl |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
2cafc97e621b1d28338cd090045b201f |
User & Date: | pooryorick 2013-11-20 06:41:43.885 |
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 | # Force Cursor Position (aka Go To) DEFC fcp {r c} {escb ${r}\;${c}f} # Cursor Up, Down, Forward, Backward | | | | | | 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" |
︙ | ︙ |