Index: library/nx/nx.tcl =================================================================== diff -u -rd168a26bce713de8daa5bbe79d740926e961c5bc -r1a5cc7b02f162167f0d7ac22317b1711358673b8 --- library/nx/nx.tcl (.../nx.tcl) (revision d168a26bce713de8daa5bbe79d740926e961c5bc) +++ library/nx/nx.tcl (.../nx.tcl) (revision 1a5cc7b02f162167f0d7ac22317b1711358673b8) @@ -161,7 +161,9 @@ return $r } - # define method modifiers "object", "public" and "protected" + # + # define method modifiers "class-object", and class level "unknown" + # Class eval { # method-modifier for object specific methos @@ -201,7 +203,7 @@ error "Method '$m' unknown for [::nsf::current object].\ Consider '[::nsf::current object] create $m $args' instead of '[::nsf::current object] $m $args'" } - # protected is not jet defined + # protected is not yet defined ::nsf::methodproperty [::nsf::current object] unknown protected 1 } @@ -562,7 +564,7 @@ # Definition of "abstract method foo ...." # # Deactivated for now. If we like to revive this method, it should - # be integrated with the method modifiers and the method "object" + # be integrated with the method modifiers and the method "class-object" # # Object method abstract {methtype -per-object:switch methname arglist} { # if {$methtype ne "method"} {