PRB: Access Method Fires for Properties that Do Not Exist (190789)

CAUSE

This behavior permits the design of classes that support the addition of custom properties at run-time using the AddProperty method. For example, the following class definition adds a new property to the class at run-time when a non-existent property is accessed:

   x = NewObject("myclass")

   ?x.NewProp  && New Property will be added to class.

   ?x.NewProp  && Note new property value.

   x.NewProp="Hello"  && Value assigned since property already exists.

   ?x.newprop

   DEFINE Class myclass as Custom
      PROCEDURE this_access(tcMember)
         IF ! PEMStatus(this,tcMember,5)
            this.AddProperty(tcMember)
         ENDIF
         RETURN this
      ENDPROC
   ENDDEFINE
				

   x = NewObject('myclass')
   ?x.BogusProperty

   DEFINE class myclass as custom
      PROCEDURE this_access(tcMember)
         WAIT WINDOW tcMember
         RETURN this
      ENDPROC
   ENDDEFINE