Index: generic/predefined.xotcl =================================================================== diff -u -r4d21376ac1245e34cb5a5f52da893072f311d3a9 -r29267f0c9db8387f58b03ffc124fc138ad88e463 --- generic/predefined.xotcl (.../predefined.xotcl) (revision 4d21376ac1245e34cb5a5f52da893072f311d3a9) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 29267f0c9db8387f58b03ffc124fc138ad88e463) @@ -206,20 +206,6 @@ } classInfo eval { - :public method mixinof {obj -closure:switch {-scope all} pattern:optional} { - # scope eq "all" or "object" returns objects, scope eq "class" returns classes - set withClosure [expr {$closure ? "-closure" : ""}] - set withPattern [expr {[info exists pattern] ? $pattern : ""}] - if {$scope eq "all"} { - set r [::xotcl::cmd::ClassInfo::object-mixin-of $obj {*}$withClosure {*}$withPattern] - foreach c [::xotcl::cmd::ClassInfo::class-mixin-of $obj {*}$withClosure] { - lappend r {*}[$c info instances {*}$withPattern] - } - return [lsort -unique $r] - } else { - return [::xotcl::cmd::ClassInfo::$scope-mixin-of $obj {*}$withClosure {*}$withPattern] - } - } :alias is ::xotcl::is :alias classparent ::xotcl::cmd::ObjectInfo::parent :alias classchildren ::xotcl::cmd::ObjectInfo::children