Tcl Library Source Code

Check-in [2cafc97e62]
Login

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: 2cafc97e621b1d28338cd090045b201f22b2b15a
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
Unified Diff 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"