* Examples, for method Init(); parent class is cForm * Example in VFP 5 or later: DoDefault() * Example in VFP 3: cForm::Init()
* MyForm.Init() set talk off set deleted on * DoDefault() isn't included, and the parent method won't be called.
* MyForm.Init() DoDefault() && This will call the parent method set talk off set deleted on
* MyForm.Init() lParameters par1, par2 && This was automatically inserted by the method editor, && because the parent method had parameters DoDefault() && Parameters??? set talk off set deleted on
* MyForm.Init() lParameters Par1, Par2 DoDefault(Par1, Par2) && Parameters will be passed to the Init() of the parent set talk off set deleted on
* MyForm.Init() DoDefault() && Return value??? set talk off set deleted on
* MyForm.Init() local llReturnValue llReturnValue = DoDefault() set talk off set deleted on return llReturnValue
* MyForm.Init() lParameters taPar1, tcPar2 && taPar1 is an array DoDefault(taPar1, tcPar2) && Only the first element will be passed! set talk off set deleted on
* MyForm.Init() lParameters taPar1, tcPar2 DoDefault(@taPar1, tcPar2) && Entire array is passed by reference set talk off set deleted on
* MyForm.Init() lParameters txPar1, txPar2 DoDefault(txPar1, txPar2) set talk off set deleted on
* MyForm.Init() lParameters txPar1, txPar2 do case case pcount() = 0 DoDefault() case pcount() = 1 DoDefault() otherwise DoDefault(txPar1, txPar2) endcase
lparameters a, b, c && and possibly more (up to 27 total) ... local nArgs, xResult nArgs = pcount() do case case m.nArgs < 1 xResult = dodefault() case m.nArgs == 1 xResult = dodefault(@m.a) case m.nArgs == 2 xResult = dodefault(@m.a, @m.b) * more cases as needed ... endcase