Index: library/nx/nx.tcl =================================================================== diff -u -N -rc4f449cb353be812ba6502ef8e9587e87881f59b -r5ac8b0931acfe8d0ef93054dafa03f4501868d31 --- library/nx/nx.tcl (.../nx.tcl) (revision c4f449cb353be812ba6502ef8e9587e87881f59b) +++ library/nx/nx.tcl (.../nx.tcl) (revision 5ac8b0931acfe8d0ef93054dafa03f4501868d31) @@ -1025,7 +1025,7 @@ MetaSlot public object method parseParameterSpec { {-class ""} {-defaultopts ""} - target + {-target ""} spec default:optional } { @@ -1093,7 +1093,7 @@ default:optional } { - lassign [:parseParameterSpec -class $class -defaultopts $defaultopts $target $spec] \ + lassign [:parseParameterSpec -class $class -defaultopts $defaultopts -target $target $spec] \ name parameterOptions class opts lappend opts -incremental $incremental @@ -2243,7 +2243,7 @@ #puts stderr "Object variable $spec accessor $accessor nocomplain $nocomplain incremental $incremental" # get name and list of parameter options - lassign [::nx::MetaSlot parseParameterSpec -class $class [self] $spec] \ + lassign [::nx::MetaSlot parseParameterSpec -class $class -target [self] $spec] \ name parameterOptions class options array set opts $options @@ -2391,7 +2391,7 @@ lappend defaultopts -trace $trace } - lassign [::nx::MetaSlot parseParameterSpec -class $class [self] $spec] \ + lassign [::nx::MetaSlot parseParameterSpec -class $class -target [self] $spec] \ pname parameterOptions _ _ set paramOptsList [split $parameterOptions ,]