Steps to Reproduce Behavior

1. Type the following in the Command window:

   CREATE CLASS basecontainer AS CONTAINER OF test.vcx
   					

2. From the Class menu, select Edit Property/Method.
3. Highlight the Enabled property in the Property/Method information list box.
4. Click the Assign Method check box and then click the Apply and Close buttons.
5. Add this code to the Enabled_assign method:

   LPARAMETERS lNewVal
   THIS.Enabled = m.lNewVal
   IF VARTYPE( m.lNewVal) # "L"
      MESSAGEBOX( "Enabled_Assign was passed a non-logical value." ; 
         + chr(13) + "The value passed was "+trans(m.lNewVal))
   ENDIF
   					

6. Save and close the class.
7. Type the following in the Command window:

   CREATE CLASS SubCont OF test.vcx AS basecontainer FROM test.vcx
   					

8. Save and close the class.
9. Type the following in the Command window:

   CREATE CLASS OtherCont OF test.vcx AS basecontainer FROM test.vcx
   					

10. In the Class Designer, add an instance of the SubCont class to the OtherCont container.
11. Save and close the class.
12. Create a new form called Test.
13. Add an instance of the OtherCont class to the form.
14. Right-click on OtherCont1 and select Edit from the context menu.
15. Click the SubCont1 container.
16. Change the Enabled property of SubCont1 to .F. in the Property Window.
17. Save and run the form.
18. You should see the message where the enabled_assign method is receiving a non-logical parameter. Notes: This will also occur with other logical properties such as Visible.

Back to the top