Index: generic/predefined.xotcl =================================================================== diff -u -rbe717fe9ef13e09dcfabf496ca61d75e4c042422 -re61fc14f5c25172a1d1f93bea03be54a772fb4b5 --- generic/predefined.xotcl (.../predefined.xotcl) (revision be717fe9ef13e09dcfabf496ca61d75e4c042422) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision e61fc14f5c25172a1d1f93bea03be54a772fb4b5) @@ -718,7 +718,6 @@ {withclass ::xotcl2::Object} inobject } - ::xotcl::ScopedNew method init {} { .public method new {-childof args} { ::xotcl::importvar [::xotcl::self class] {inobject object} withclass @@ -728,6 +727,7 @@ eval ::xotcl::next -childof $object $args } } + # # change the namespace to the specified object and create # objects there. This is a friendly notation for creating @@ -764,6 +764,7 @@ if {![::xotcl::is [::xotcl::self]::slot object]} { ::xotcl2::Object create [::xotcl::self]::slot } + foreach arg $arglist { set l [llength $arg] set name [lindex $arg 0] @@ -847,7 +848,7 @@ {dest ""} objLength } { - + .method makeTargetList {t} { lappend .targetList $t # if it is an object without namespace, it is a leaf @@ -964,6 +965,7 @@ } } + ::xotcl2::Object public method copy newName { if {[string compare [string trimleft $newName :] [string trimleft [::xotcl::self] :]]} { [::xotcl::CopyHandler new -volatile] copy [::xotcl::self] $newName