FIX: Control Class in Control Not Shown in Control Array (142194)

MORE INFORMATION

The following code creates two control classes: Ctl and Subcontrol. The program adds the Subcontrol class to the Ctl class. The ADD OBJECT method also adds two command buttons and a two-page pageframe to the Ctl class. Therefore, Ctl class contains the Subcontrol class, two command buttons, and a pageframe.

The object positions referenced in the class definitions only apply if the class is created visually.

The code example uses the AMEMBERS() function to place properties, procedures, and member objects into a memory variable array named atest. Because the Printmembers function is part of the Ctl class, it should have access to all the objects within that class. However, the AMEMBERS() functions lists all the objects in class except the subclass object. The AMEMBERS() function should have to access to all the members of its own class.

Steps to Reproduce Problem

1. Create a program called Test.prg, and add the following code:

      ** Ctl Class Definition
      DEFINE CLASS ctl AS control
   
         ADD OBJECT command1 AS commandbutton WITH ;
            Top = 31
            Left = 23
   
         ADD OBJECT command2 AS commandbutton WITH ;
            Top = 81
            Left = 21
   
         ADD OBJECT pageframe1 AS pageframe WITH ;
            ErasePage = .T.
            PageCount = 2
            Top = 115
            Left = 37
   
         ADD OBJECT subcontrol1 AS subcontrol WITH ;
            Top = 6
            Left = 146
   
         PROCEDURE printmembers
   
            ACTIVATE SCREEN
            x=This.name
            ? AMEMBERS(atest,This,2)
            DISPLAY MEMORY LIKE atest
   
            FOR ii = 1 TO This.ControlCount
              ? This.controls[ii].Name
            ENDFOR
   
            ? This.SubControl1.Name
         ENDPROC
   
      ENDDEFINE
   
      *-- EndDefine: ctl
   
      ** Subcontrol Class Definition
   
      DEFINE CLASS subcontrol AS control
      ENDDEFINE
   						

2. In the Command window, type each of the following commands on a separate line:

      SET LIBRARY TO TEST.PRG
      X=CREATEOBJECT('Ctl')
      X.Printmembers
   						

The array atest contains elements representing the command buttons and the pageframe objects that appear listed on the desktop. However, the Subcontrol class object is not listed. The AMEMBERS() functions does not find the Subcontrol object because it was added as a control. This causes the error message "Property Controls is not found." If the "Ignore" button is pressed, an "Unknown member SUBCONTOL1" message is displayed.