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

class show_memVarsForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 38.1429
      top = 2.1364
      width = 55.7143
      text = ""
   endwith


   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 17.7143
      top = 13.5
      width = 15.2857
      text = "Show variables"
   endwith

   function save_memvars
      form.showmem.editor1.datalink  = ''
      local c
      a = 'test'
      b = 1234.56
      c = 'local test'
      f = new file()
      if f.exists('memory.txt')
         f.delete('memory.txt')
      endif
      f.close()
      list memory to memory.txt
      return

   function PUSHBUTTON1_onClick()
      form.save_memvars()
      _app.executeMessages()
      form.showmem.mdi = false    
      form.showmem.editor1.datalink = "file memory.txt" 
      form.showmem.readModal() 
      return

   function form_onOpen()
      _app.allowYieldOnMsg := true
      public d
      d = 'public variable'
      set procedure to show_memvars1.wfo
      form.showmem = new show_memvars1form()
      form.pushbutton1.setFocus()
      return

endclass