o1 = crea('cls1') o2 = crea('cls2') o1.mymethod() o2.mymethod() return DEFINE CLASS cls1 as custom procedure mymethod lparameters tcParm ? Program(),pcount() && this = 0 endproc enddef DEFINE CLASS cls2 as cls1 procedure mymethod lparameters tcParm ?Program(),pcount() dodefault(tcParm) endproc enddefI get this output in VFP8, and back to VFP5. It looks like design behavior to me. After all, you did pass parameter with the DoDefault() function.
>this.mymethod() > >* mymethod >lparameters tcParm >? pcount() && this = 0 > > >this.mysubmethod() > >* mysubmethod >lparameters tcParm >dodefault(tcParm) > >* mymethod >lparameters tcParm >? pcount() && this = 1 > >