Is it possible to add a new tab to an existing tab field

 Hello,

 Does anyone know whether it is possible to add a new tab page to an existing tab field?

Could find an answer neither in skuiref.pdf, nor on this forum.

Here is what was tried to no avail:

1) Initial form creation:

Code example (stored in file "tabTest.il"):

 procedure( cwsFx(x_pageNumber)
  hiCreateFloatField(
    ?name       concat('float_ x_pageNumber)
    ?prompt     "Scaling"
    ?value      1.0
    ?range      '(1e-30 1e30)
  )
) ; procecure cwsFx


let( (tabField)
  unless( boundp('CWSTestForm)
    tabField = hiCreateTabField(
      ?name     'CWSTestTab
      ?fields   list(
                  list(
                    list( cwsFx(1) 0:0 400:30 80 )
                  )
                  list(
                    list( cwsFx(2) 0:0 400:30 80 )
                  )
                )
    ) ; hiCreateTabField

    CWSTestForm = hiCreateAppForm(
      ?name             'CWSTestForm
      ?formTitle        "CWS Test Form"
      ?fields           list(
                          list(tabField 0:0 600:200)
                        )
      ?dontBlock        t
    ) ; hiCreateAppForm
    hiInstantiateForm(CWSTestForm)
  ) ; unless boundp CWSTestForm

  hiDisplayForm(CWSTestForm)
  printf("form handle is CWSTestForm\n")
  printf("CWSTestForm->CWSTestTab->page1->fieldType is '%L'.\n" CWSTestForm->CWSTestTab->page1->fieldType)
) ; let

Execution in CIW:

load("tabTest.il")

Result:

form handle is CWSTestForm
CWSTestForm->CWSTestTab->page1->fieldType is 'scrollRegion'.
t

2) Attempt #1:

Code example:

procedure( addTabPageAttempt1()
  let( (pageCount newPageNumber newPageSymbol newPage)
    pageCount = if( listp(CWSTestForm->CWSTestTab->fieldList) length(CWSTestForm->CWSTestTab->fieldList) 1)
    newPageNumber = add1(pageCount)
    newPageSymbol = concat('page newPageNumber)
    newPage = hiCreateScrollRegion(
      ?name       newPageSymbol
      ?fields     list(
                    list( cwsFx(newPageNumber) 0:0 400:30 80 )
                  )
    ) ; hiCreateScrollRegion
    putprop(CWSTestForm->CWSTestTab newPage newPageSymbol)
    if( pageCount > 1
    then
      append(CWSTestForm->CWSTestTab->fieldList list(newPage))
    else
      CWSTestForm->CWSTestTab->fieldList = list(CWSTestForm->CWSTestTab->fieldList newPage)
    ) ; if pageCount > 1
    hiDisplayForm(CWSTestForm) ; form refresh
  ) ; let
) ; procedure addTabPageAttempt1

Execution in CIW:

 addTabPageAttempt1()

Result:

 t (no change in displayed form...)

3) Attempt #2:

Code example:

procedure( addTabPageAttempt2()
  let( (pageCount newPageNumber newPageSymbol newPage)
    pageCount = if( listp(CWSTestForm->CWSTestTabNumber) length(CWSTestForm->CWSTestTabNumber) 1)
    newPageNumber = add1(pageCount)
    newPageSymbol = concat('page newPageNumber)
    newPage = hiCreateScrollRegion(
      ?name       newPageSymbol
      ?fields     list(
                    list( cwsFx(newPageNumber) 0:0 400:30 80 )
                  )
    ) ; hiCreateScrollRegion
    hiAddField(CWSTestForm->CWSTestTab newPage)
    hiDisplayForm(CWSTestForm) ; form refresh
  ) ; let
) ; procedure addTabPageAttempt2

Execution in CIW:

addTabPageAttempt2()

Result:

*WARNING* Illegal 2D field description:

*WARNING* scrollRegionStruct@0x15a05980

*WARNING* hiAddField: invalid 2D field description

t (no change in displayed form...)

 

Many thanks for your help