Posted to tcl by hypnotoad at Tue Oct 23 18:45:16 GMT 2018view raw
- basra:clay seandeelywoods$ tclsh clay.test
- - tcllib::testutils 1.2
- * clay 0.6
- ::oo::Obj91:: oo ::delegate does not refer to an object
- while executing
- "::oo::define [::oo::DelegateName $cls] method $name $args $body"
- (procedure "::oo::define::classmethod" line 8)
- invoked from within
- "class_method working {} {
- return {Works}
- }"
- (in namespace eval "::clay::define" script line 2)
- invoked from within
- "namespace eval ${namespace}::define [lindex $args 0]"
- (procedure "::oo::dialect::Define" line 5)
- invoked from within
- "::oo::dialect::Define ::clay $class {*}${args}"
- (procedure "::clay::define" line 10)
- invoked from within
- "$define [self] $definitionScript"
- (class "::oo::dialect::MotherOfAllMetaClasses" constructor line 5)
- invoked from within
- "next $name ::clay::define $definitionScript"
- (object "::clay::class" method "create" line 1)
- invoked from within
- "clay::class create WidgetClass {
- class_method working {} {
- return {Works}
- }
- class_method unknown args {
- set tkpath [lindex $args 0]
- ..."
- (file "clay.test" line 1281)