Index: library/nx/nx.tcl =================================================================== diff -u -red365a90fa455e82a281fc1b4bfaa4b96081da12 -r32791010e30fd8708808185a62daa2ddad8c81f9 --- library/nx/nx.tcl (.../nx.tcl) (revision ed365a90fa455e82a281fc1b4bfaa4b96081da12) +++ library/nx/nx.tcl (.../nx.tcl) (revision 32791010e30fd8708808185a62daa2ddad8c81f9) @@ -2486,18 +2486,10 @@ if {[info exists defaultValue] && [dict exists $options -substdefault] + && [string match {*\[*\]*} $defaultValue] + && ![info complete $defaultValue] } { - if {[string match {*\[*\]*} $defaultValue]} { - if {![info complete $defaultValue]} { - return -code error "substdefault: default '$defaultValue' is not a complete script" - } - } else { - # - # Rewrite the spec such is has no "substdefault" value - # - #set paramOptsList1 [lsearch -glob -inline -all -not [split $parameterOptions ,] "substdefault*"] - #set spec [string trimright $pname:[join $paramOptsList1 ,] :] - } + return -code error "substdefault: default '$defaultValue' is not a complete script" } set slot [::nx::MetaSlot createFromParameterSpec [::nsf::self] \