Index: library/lib/nx-traits.tcl =================================================================== diff -u -rf69de2050abfb8d71c92588c4d42d0cc1ea39aaf -r9d0ea2cf357adc5108001519286490593977e7e1 --- library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision f69de2050abfb8d71c92588c4d42d0cc1ea39aaf) +++ library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision 9d0ea2cf357adc5108001519286490593977e7e1) @@ -89,7 +89,7 @@ if {${per-object} || ![::nsf::is class $obj]} { error "per-object traits are currently not supported" } - foreach m [$traitName info methods -callprotection all] { + foreach m [$traitName info methods -callprotection all -path] { if {[info exists map($m)]} {set newName $map($m)} else {set newName $m} # do not add entries with $newName empty if {$newName eq ""} continue @@ -178,4 +178,11 @@ #puts "final reqMethods of [self]: $finalReqMethods // defined=[:info methods]" set :requiredMethods $finalReqMethods } -} \ No newline at end of file +} + +# +# Local variables: +# mode: tcl +# tcl-indent-level: 2 +# indent-tabs-mode: nil +# End: