Index: library/mongodb/nx-mongo.tcl =================================================================== diff -u -rc9ef41c49f482a38e89f7cffc54cabf909710425 -r04b17cf850af721f6ad1760dece06ef78b11da83 --- library/mongodb/nx-mongo.tcl (.../nx-mongo.tcl) (revision c9ef41c49f482a38e89f7cffc54cabf909710425) +++ library/mongodb/nx-mongo.tcl (.../nx-mongo.tcl) (revision 04b17cf850af721f6ad1760dece06ef78b11da83) @@ -339,9 +339,14 @@ # Overload method property to provide "::nx::mongo::Attribute" as a # default slot class # - :public method property {spec {-class ::nx::mongo::Attribute} {initblock ""}} { + :public method property { + {-incremental:switch} + spec + {-class ::nx::mongo::Attribute} + {initblock ""} + } { regsub -all {,type=} $spec {,arg=} spec - next [list -class $class $spec $initblock] + next [list -class $class -incremental=$incremental $spec $initblock] } #