cmdr
Check-in [a62b20fe7b]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:cmdr::actor - Fixed typo in error message
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:a62b20fe7b21d29cc4c5ecb5be50444ed9d4bbe6
User & Date: aku 2014-05-21 06:38:20
Context
2014-05-21
06:44
cmdr::parameter - Fix use of wrong variable in ValueRelease, use argument, not instance variable. check-in: 623a3ff06b user: aku tags: trunk
06:38
cmdr::actor - Fixed typo in error message check-in: a62b20fe7b user: aku tags: trunk
2014-05-16
00:44
Fix inadvertent split of trunk check-in: 8ff369076f user: andreask tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to actor.tcl.

172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
	set extend 0
	while {[string match -* [lindex $args 0]]} {
	    set args [lassign $args o]
	    switch -exact -- $o {
		-extend {set extend 1}
		default {
		    return -code error -errorcode {CMDR SET UNKNOWN OPTION} \
			"Unknown option \"$o\", expcted -extend"
		}
	    }
	}
	if {[llength $args] != 1} {
	    return -code error -errorcode {CMDR SET WRONG-ARGS} \
		"Expected one argument."
	}







|







172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
	set extend 0
	while {[string match -* [lindex $args 0]]} {
	    set args [lassign $args o]
	    switch -exact -- $o {
		-extend {set extend 1}
		default {
		    return -code error -errorcode {CMDR SET UNKNOWN OPTION} \
			"Unknown option \"$o\", expected -extend"
		}
	    }
	}
	if {[llength $args] != 1} {
	    return -code error -errorcode {CMDR SET WRONG-ARGS} \
		"Expected one argument."
	}