LPARAMETERS nKeyCode, nShiftAltCtrl

IF nKeyCode = 27 && Escape Key causes problem in control source of grid.
      NODEFAULT
ENDIF

DO CASE
      CASE nKeyCode = 9
            Nodefault
            This.Parent.Width = 0
            This.Parent.Parent.grcProduct.Width = 244
            DODEFAULT(nKeyCode, nShiftAltCtrl)

      CASE nKeyCode = 15
            Nodefault
            This.Parent.Width = 0
            This.Parent.Parent.grcDiscription.Width = 244
            DODEFAULT(nKeyCode, nShiftAltCtrl)
ENDCASE

>tab and shift-tab toggle product and description in the same space correctly.
>In the description field I get duplicate characters.
>I get for "cat" - ccaatt, if I take out the dodefault() I get nothing - what am I forgetting?
>=================================
>

>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>IF nKeyCode = 27 && Escape Key causes problem in control source of grid.
>      NODEFAULT
>ENDIF
>
>DO CASE
>      CASE nKeyCode = 9
>            This.Parent.Width = 0
>            This.Parent.Parent.grcProduct.Width = 244
>
>      CASE nKeyCode = 15
>            This.Parent.Width = 0
>            This.Parent.Parent.grcDiscription.Width = 244
>
>ENDCASE
>
>DODEFAULT(nKeyCode, nShiftAltCtrl)
>
>

>
>tia