CJPushButton CARGO CANCEL

[skiman]

Hi,

With the DCPushButtons there is a CARGO 'CANCEL' which is really usefull to use with standard CANCEL-buttons.

This isn't working with CJPushButtons.

[rdonnay]

In _DCGETBX.PRG make the following code change:

Code: Select all

lCancelled := nEvent == xbeP_SetInputFocus .AND. Valtype(oNextXbp) = 'O' .AND. ;
      (oNextXbp:isDerivedFrom('DC_XbpPushButton') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpRadioButton') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpPushButtonXP') .OR. ;
       oNextXbp:isDerivedFrom('DC_XbpCheckBox') .OR. ;
       oNextXbp:isDerivedFrom('CJ_PushButton') .OR. ;  <<<<<<<<<<<<<<<<<<<<<<<<<<< new
       oNextXbp:isDerivedFrom('XbpMenu')) .AND. ;
      ((Valtype(oNextXbp:cargo) = 'C' .AND. oNextXbp:cargo == 'CANCEL') .OR. ;
       (Valtype(DC_GetCargo(oNextXbp)) = 'C' .AND. Upper(DC_GetCargo(oNextXbp)) == 'CANCEL'))