diff options
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" |