** END HEADER -- do not remove this line
//
// Generated on 26-01-2023
//
parameter bModal
local f
f = new test_cuaForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_cuaForm of FORM
   with (this)
      height = 16.0
      left = 69.1429
      top = 0.0
      width = 63.4286
      text = ""
      clientEdge = true
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onGotFocus = class::ENTRYFIELD1_ONGOTFOCUS
      onLostFocus = class::ENTRYFIELD1_ONLOSTFOCUS
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.0
      left = 9.0
      top = 4.0
      width = 8.0
      value = "Entryfield1"
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      height = 1.0
      left = 9.0
      top = 7.0
      width = 8.0
      value = "Entryfield2"
   endwith


   function ENTRYFIELD1_onGotFocus()
      set cuaenter on 
      return

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      ?nChar
      return

   function ENTRYFIELD1_onLostFocus()
      set cuaenter off
      return

endclass