LPARAMETERS nButton, nShift, nXCoord, nYCoord *-- If lCancelClick property is .T., issue a NODEFAULT *-- to prevent button from being visually pushed. IF this.lCancelClick this.lCancelClick = .F. NODEFAULT ENDIF