** END HEADER -- do not remove this line
//
// Generated on 2019-06-10
//
parameter bModal
local f
f = new Test_entryfieldForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class Test_entryfieldForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 74.0
      top = 0.0
      width = 40.0
      text = ""
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.0
      left = 10.0
      top = 8.0
      width = 13.0
      value = false
   endwith

   this.RADIOBUTTON1 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON1)
      onChange = class::RADIOBUTTON_ONCHANGE
      onLeftMouseUp = class::RADIOBUTTON_ONLEFTMOUSEUP
      height = 1.0909
      left = 10.0
      top = 1.0
      width = 15.7143
      text = "Character"
      group = true
      value = true
   endwith

   this.RADIOBUTTON2 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON2)
      onChange = class::RADIOBUTTON_ONCHANGE
      onLeftMouseUp = class::RADIOBUTTON_ONLEFTMOUSEUP
      height = 1.0909
      left = 10.0
      top = 3.0
      width = 15.7143
      text = "Logical"
   endwith

   this.RADIOBUTTON3 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON3)
      onChange = class::RADIOBUTTON_ONCHANGE
      onLeftMouseUp = class::RADIOBUTTON_ONLEFTMOUSEUP
      height = 1.0909
      left = 10.0
      top = 5.0
      width = 15.7143
      text = "Numeric"
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      height = 1.0
      left = 10.0
      top = 11.5
      width = 13.0
      value = "Entryfield2"
   endwith


   function RADIOBUTTON_onLeftMouseUp(flags, col, row)
      form.entryfield1.setfocus()
      return

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      if form.radiobutton1.value = true
        //accept anything
      elseif form.radiobutton2.value = true
         if chr(nChar)$'TtYy'
            this.value = true   
         elseif chr(nChar)$'FfNn'
            this.value = false
         else
            msgbox('Must be T, t, F, f, Y, y, N or n')         
         endif
      elseif form.radiobutton3.value = true
         if not chr(nChar)$'0123456789.'
            msgbox('Must be numeric.')
         endif
      endif
      return

   function RADIOBUTTON_onChange()
      if form.radiobutton1.value = true
         form.entryfield1.value = ''
      elseif form.radiobutton2.value = true
         form.entryfield1.value = ''
      elseif form.radiobutton3.value = true
         form.entryfield1.value = ''
      endif
      return

   function form_onOpen()
      form.entryfield1.value = ''
      return

endclass