Looks like a bug. Please check with WRC.
Simplified your example a bit:
Class DC.ValueOfThis Extends%RegisteredObject
{
/// do ##class(DC.ValueOfThis).Test()ClassMethod Test()
{
write$zv,!!
set obj=..%New()
do obj.Work()
write$$$FormatText("classmethod: $this %1, ..Value() %2", $this, ..Value()),!
do obj.Work()
}
Method Work()
{
write$$$FormatText("method: $this %1, ..Value() %2", $this, ..Value()),!
}
ClassMethod Value()
{
quit$this
}
}
- Log in to post comments
.png)