CASE msg=273 &&mouse click > lcVariableName = "__xf_g_ch"+ALLTRIM(STR(lParam)) > IF "O" = TYPE(lcVariableName) >*** DH 07/12/2007: ignore a click if we haven't returned from the previous one > loObject = evaluate(lcVariableName) > if not pemstatus(loObject, 'lInClick', 5) or not loObject.lInClick > if not pemstatus(loObject, 'lInClick', 5) > addproperty(loObject, 'lInClick') > endif not pemstatus(loObject, 'lInClick', 5) > loObject.lInClick = .T. >*** DH 07/12/2007: end of new code > &lcVariableName->m_click(0) >*** DH 07/12/2007: rest of the new code > loObject.lInClick = .F. > endif not pemstatus(loObject, 'lInClick', 5) ... >*** DH 07/12/2007: end of new code > ENDIF>