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

class form1Form of FORM
   with (this)
      metric = 6	// Pixels
      height = 158.0
      left = 334.0
      top = 0.0
      width = 464.0
      text = ""
   endwith

   this.TEXT1 = new TEXT(this)
   with (this.TEXT1)
      height = 22.0
      left = 4.0
      top = 10.0
      width = 297.0
      text = "Form 1 -- pass information to Form 2"
   endwith

   this.MYENTRYFIELD = new ENTRYFIELD(this)
   with (this.MYENTRYFIELD)
      height = 22.0
      left = 18.0
      top = 45.0
      width = 175.0
      value = "Type something here"
   endwith

   this.OPEN_FORM2 = new PUSHBUTTON(this)
   with (this.OPEN_FORM2)
      onClick = class::OPEN_FORM2_ONCLICK
      height = 24.0
      left = 159.0
      top = 96.0
      width = 107.0
      text = "Open Form 2"
   endwith


   function OPEN_FORM2_onClick()
      set procedure to form2.wfm
      oF2 = new form2form()
      oF2.PassedValue = form.myentryfield.value
      oF2.mdi = false
      oF2.readModal()
      // code won't execute until form2 is closed
      form.myentryfield.value = oF2.PassedValueEF.value
      oF2.release()
      close procedure form2.wfm
   return

endclass