FIX: Shape Control's Mouseup Incorrectly Fired by Form Click

MORE INFORMATION

Steps to Reproduce Problem

Run the following code:

PUBLIC f1
f1 = CREATEOBJ('obj')
f1.SHOW

DEFINE CLASS s1 AS shape

   PROCEDURE mousedown
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      this.drag(1)
   ENDPROC

   PROCEDURE mouseup
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      WAIT WINDOW 'Shape MouseUp'
   ENDPROC

ENDDEFINE

DEFINE CLASS obj AS form
   ADD OBJECT obj AS s1

   PROCEDURE mouseup
      LPARAMETERS nButton, nShift, nXCoord, nYCoord
      WAIT WINDOW 'Form MouseUp'
   ENDPROC
ENDDEFINE

* Drag the shape to a new location and drop it.