Index: TODO
===================================================================
diff -u -r1b583476882fea7df04664f551cf87d99c8a0da0 -r5fa3584b0f682d4103c39af82357713871f1de0c
--- TODO	(.../TODO)	(revision 1b583476882fea7df04664f551cf87d99c8a0da0)
+++ TODO	(.../TODO)	(revision 5fa3584b0f682d4103c39af82357713871f1de0c)
@@ -1868,9 +1868,10 @@
 - improving error messages from argument parser
 - test "namespace current" and "self" in "contains" and "slots" regression test
 
+- added "nosetter" automatically, when attribute "<name>:method" is used
+
 TODO:
 
-- add "nosetter" automatically, when attribute ...:method is used
 
 - "-returns" 
   * leave syntax as is for method?
Index: library/nx/nx.tcl
===================================================================
diff -u -rdb2dcddd4328ce68ddf06905ffccda392fb1aa0f -r5fa3584b0f682d4103c39af82357713871f1de0c
--- library/nx/nx.tcl	(.../nx.tcl)	(revision db2dcddd4328ce68ddf06905ffccda392fb1aa0f)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 5fa3584b0f682d4103c39af82357713871f1de0c)
@@ -608,7 +608,7 @@
         } elseif {$property eq "optional"} {
 	  lappend opts -required 0
         } elseif {$property eq "method"} {
-	  lappend opts -ismethod 1
+	  lappend opts -ismethod 1 -nosetter 1
         } else {
           set type $property
         }
Index: tests/contains.test
===================================================================
diff -u -r1b583476882fea7df04664f551cf87d99c8a0da0 -r5fa3584b0f682d4103c39af82357713871f1de0c
--- tests/contains.test	(.../contains.test)	(revision 1b583476882fea7df04664f551cf87d99c8a0da0)
+++ tests/contains.test	(.../contains.test)	(revision 5fa3584b0f682d4103c39af82357713871f1de0c)
@@ -24,8 +24,8 @@
 #
 Class create Tree {
   :attribute label
-  :attribute contains:method,optional,nosetter
-  :attribute foo:method,optional,nosetter
+  :attribute contains:method
+  :attribute foo:method
   :public method foo {arg} {set :x $arg}
 }
 set y [Tree new -foo hu]