diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2020-01-01 16:01:36 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2020-01-01 16:01:36 (GMT) |
| commit | b308bd97e6cdee90b11f3409a485253c414bbac0 (patch) | |
| tree | 0294f25c5f1f534e2aadf23783cc8d87d2783a6b /generic/tclOOScript.h | |
| parent | ae24dd87fa424c374fc25dd2495ca5a5c874af95 (diff) | |
| download | tcl-b308bd97e6cdee90b11f3409a485253c414bbac0.zip tcl-b308bd97e6cdee90b11f3409a485253c414bbac0.tar.gz tcl-b308bd97e6cdee90b11f3409a485253c414bbac0.tar.bz2 | |
Check for another tricky edge case
Diffstat (limited to 'generic/tclOOScript.h')
| -rw-r--r-- | generic/tclOOScript.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/tclOOScript.h b/generic/tclOOScript.h index ed8d2dd..ae58ccb 100644 --- a/generic/tclOOScript.h +++ b/generic/tclOOScript.h @@ -258,6 +258,11 @@ static const char *tclOOSetupScript = "\t\t\t\t\t\t-errorcode {TCLOO PROPERTY_FORMAT} \\\n" "\t\t\t\t\t\t\"bad property name \\\"$prop\\\"; must not begin with -\"\n" "\t\t\t\t}\n" +"\t\t\t\tif {$prop ne [list $prop]} {\n" +"\t\t\t\t\treturn -code error -level 2 \\\n" +"\t\t\t\t\t\t-errorcode {TCLOO PROPERTY_FORMAT} \\\n" +"\t\t\t\t\t\t\"bad property name \\\"$prop\\\"; must be a simple word\"\n" +"\t\t\t\t}\n" "\t\t\t\tset realprop [string cat \"-\" $prop]\n" "\t\t\t\tset getter [format {::set [my varname %s]} $prop]\n" "\t\t\t\tset setter [format {::set [my varname %s] $value} $prop]\n" |