w3mvdPopUpTest

subroutine w3mvDPopUpTest

include wbp w3Include

* Form layout, each form is the same, the name changes

* to work with remote forms since only one instance of a form can be

* open at a time. So each concurrently open form must have a different

* name.

* indx  varies to show changes on each form

* cmt   contains comments about what is being tested

* list  contains numbers starting with the index number

cmt = "show first form"

indx  = 1; call w3mvDInit("Form":indx, ""); gosub doit

cmt = "layer on a window"

indx += 1;call w3mvDInit("Form":indx, p_FN_PopUP); gosub doit   

cmt = "close and add another"

indx += 1;call w3mvDInit("Form":indx, p_FN_PopUP + p_FN_CLoseTopWindow); gosub doit   

cmt = "close top and apply changes to bottom"

indx += 1;call w3mvDInit("", p_FN_CloseTopWindow); gosub doit   

cmt = "layer 5 more windows (total 6 over the base form)"

for j = 1 to 5

    indx += 1;call w3mvDInit("Form":indx, p_FN_PopUP); gosub doit   

next j

cmt = "close them including the very bottom one"

for j = 1 to 6

    indx += 1;call w3mvDInit("", p_FN_CloseTopWindow); gosub doit   

next j

return

doit:

   call w3mvDInsert("form", indx, "")

   call w3mvDInsert("cmt", cmt, "")

   for i = indx to 5+indx

      call w3mvDInsert("list", i, "")

   next i

  call w3mvDInput(err, 15, w3_P)                                       

return