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

class sub_dele_launchForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      onClose = class::FORM_ONCLOSE
      height = 23.6364
      left = 1.5714
      top = 0.0455
      width = 125.8571
      text = ""
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      height = 1.0909
      left = 1.4286
      top = 0.5455
      width = 15.2857
      text = "Open sub-form"
   endwith


   function PUSHBUTTON1_onClick()
      form.oSub.open()
      return

   function form_onClose()
      close procedure sub_dele_test.sfm
      form.oSub := null
      return

   function form_onOpen()
      set procedure to sub_dele_test.sfm
      this.oSub = new sub_dele_testFormSub(this)
      this.oSub.text := 'Sub_dele_test'
      return

endclass