Code: Select all
Type Parent
Declare Operator Let (ByRef rhs As Const Parent)
...
End Type
Type Child Extends Parent
Declare Operator Let (ByRef rhs As Const Child)
...
End Type
Code: Select all
Operator Child.Let (ByRef rhs As Const Child)
Base.Operator Let rhs '' error
Parent.Let rhs '' error
Cast(Parent, This) = rhs '' seems to work but is inelegant and probably unsafe
...
End Operator