FIX: Inherited Code Fires Twice with DODEFAULT()

Last reviewed: October 29, 1997
Article ID: Q158250

The information in this article applies to:

Microsoft Visual FoxPro for Windows, version 5.0

SYMPTOMS

When the DODEFAULT() function is used in a subclass method, it executes a method in the parent with the same name. When the parent has no method with that name, it then looks to the grandparent for that method. If it exists, it is executed. If the grandparent has a NODEFAULT() function, the code gets executed twice.

CAUSE

The parent in the above situation executes the code of the grandparent as its own. Because the grandparent has a NODEFAULT() function, the parent calls the method of the grandparent again.

WORKAROUND

To work around this problem, place a method that has the same name in the parent. Place a DODEFAULT() command in the parent method.

STATUS

This behavior is by design in the products listed at the beginning of this article. This behavior does not occur in Visual FoxPro 5.0a

MORE INFORMATION

Steps to Reproduce Behavior

Create a program with the following code:

      ACTIVATE SCREEN
      CLEAR
      CREATEOBJECT("Test3")
      RETURN

      DEFINE CLASS Test AS Form
      ENDDEFINE

      DEFINE CLASS test1 AS Test
         PROCEDURE Load
            ACTIVATE SCREEN
            ? "Class Test1, this.Class="+this.Class+ ;
              ", this.ParentClass="+this.ParentClass
               DODEFAULT()
         ENDPROC
      ENDDEFINE

      DEFINE CLASS test2 AS test1
      ENDDEFINE

      DEFINE CLASS test3 AS test2
         PROCEDURE Load
            ACTIVATE SCREEN
            ? "Class Test3, this.Class="+this.Class+ ;
              ", this.ParentClass="+this.ParentClass
            DODEFAULT()
         ENDPROC
      ENDDEFINE

Run the code. The Load method of test1 prints twice.

Change Class test2 in the following way if you wish the code in test1 to execute only once:

      DEFINE CLASS test2 AS test1
        PROCEDURE Load
           DODEFAULT()
        ENDPROC
      ENDDEFINE

The above code prevents Class test2 from running class test1's code as its own.

Keywords          : FxprgClassoop vfoxwin vfpfix5.0a kbprg kbbuglist kbfixlist
Version           : 5.0
Platform          : WINDOWS
Issue type        : kbbug
Solution Type     : kbfix

================================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: October 29, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.