Tcl Library Source Code

Check-in [2cafc97e62]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 2cafc97e621b1d28338cd090045b201f22b2b15a
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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"