Index: library/nx/nx.tcl =================================================================== diff -u -re548a952433b4d26794f535995c9ed1ababe8807 -rfb10f773e288e5a05cf0e04c5fd8cf0514fdf963 --- library/nx/nx.tcl (.../nx.tcl) (revision e548a952433b4d26794f535995c9ed1ababe8807) +++ library/nx/nx.tcl (.../nx.tcl) (revision fb10f773e288e5a05cf0e04c5fd8cf0514fdf963) @@ -393,7 +393,16 @@ # register method "info" on Object and Class Object forward info -onerror ::nsf::infoError ::nx::objectInfo %1 {%@2 %self} - Class forward info -onerror ::nsf::infoError ::nx::classInfo %1 {%@2 %self} + #Class forward info -onerror ::nsf::infoError ::nx::classInfo %1 {%@2 %self} + Class method info args { + # In case, the Class-info is applied on an object (via mixins) + if {![::nsf::objectproperty [self] class]} next else { + if {[catch {::nx::classInfo [lindex $args 0] [self] {*}[lrange $args 1 end]} result]} { + ::nsf::infoError $result + } + return $result + } + } # # definition of "abstract method foo ...."