Posted to tcl by hypnotoad at Tue Oct 23 18:45:16 GMT 2018view raw

  1. basra:clay seandeelywoods$ tclsh clay.test
  2. - tcllib::testutils 1.2
  3. * clay 0.6
  4. ::oo::Obj91:: oo ::delegate does not refer to an object
  5. while executing
  6. "::oo::define [::oo::DelegateName $cls] method $name $args $body"
  7. (procedure "::oo::define::classmethod" line 8)
  8. invoked from within
  9. "class_method working {} {
  10. return {Works}
  11. }"
  12. (in namespace eval "::clay::define" script line 2)
  13. invoked from within
  14. "namespace eval ${namespace}::define [lindex $args 0]"
  15. (procedure "::oo::dialect::Define" line 5)
  16. invoked from within
  17. "::oo::dialect::Define ::clay $class {*}${args}"
  18. (procedure "::clay::define" line 10)
  19. invoked from within
  20. "$define [self] $definitionScript"
  21. (class "::oo::dialect::MotherOfAllMetaClasses" constructor line 5)
  22. invoked from within
  23. "next $name ::clay::define $definitionScript"
  24. (object "::clay::class" method "create" line 1)
  25. invoked from within
  26. "clay::class create WidgetClass {
  27. class_method working {} {
  28. return {Works}
  29. }
  30.  
  31. class_method unknown args {
  32. set tkpath [lindex $args 0]
  33. ..."
  34. (file "clay.test" line 1281)
  35.