convert '() to list()

Andrew,

Thanks for responding.

The problem was that the ?fields argument was assigned nil. Hence hiCreateTabField failed. I had one more query. Hope I can ask it in the same post. 

I am unable to get the tab names used in the form by providing tab value ?

I tried the following; Created a sample form; See sample code below;

1. f=hiGetCurrentForm()

-- Returns form Id

2. get(f->tabFld  nthelem(f->tabFld->value f->tabFld->fieldList))

-- Returns page3 { as third tab was selected in the form) instead of tab name.  Is there anything I am missing here. How do I get the tab name from pagebasename# ?

Thanks,

Veena

;; Usage :: crTabForm('("flow1" "flow4"))

procedure(crTabForm(flowTypeL)

let( ( libFld cellFld viewFld lcvBB o1CellFld o2CellFld o3CellFld o4CellFld tabFld1 tabFld2 tabFld3 tabFld4 tabFld5

form (fSize 620:500))

;; Basic Setup tab

libFld = hiCreateStringField(

?name 'libFld

?prompt "Library"

)

cellFld = hiCreateStringField(

?name 'cellFld

?prompt "Cell"

)

viewFld = hiCreateStringField(

?name 'viewFld

?prompt "View"

)

o1CellFld = hiCreateStringField(?name 'o1CellFld ?prompt "Output Cell")

o2CellFld = hiCreateStringField(?name 'o2CellFld ?prompt "Output Cell")

o3CellFld = hiCreateStringField(?name 'o3CellFld ?prompt "Output Cell")

o4CellFld = hiCreateStringField(?name 'o4CellFld ?prompt "Output Cell")

;;Setup

tabFld1 = list(

list(libFld 20:75 440:30 100 )

list(cellFld 20:105 440:30 100 )

list(viewFld 20:135 440:30 100 )

)

;;Flow1

tabFld2 = list(

list(o1CellFld 30:210 440:30 100 )

)

;;Flow2

tabFld3 = list(

list(o2CellFld 30:210 440:30 100 )

)

;;Flow3

tabFld4 = list(

list(o3CellFld 30:210 440:30 100 )

)

;;Flow4

tabFld5 = list(

list(o4CellFld 30:210 440:30 100 )

)

flds_to_be_displayedL=list(tabFld1)

tabs_to_be_displayedL=list("Setup")

foreach(f flowTypeL

when(equal(f "flow1")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld2)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow1")

)

when(equal(f "flow2")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld3)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow2")

)

when(equal(f "flow3")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld4)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow3")

)

when(equal(f "flow4")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld5)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow4")

)

)

printf("%L\n" flds_to_be_displayedL)

tabFld = hiCreateTabField(

?name 'tabFld

?fields flds_to_be_displayedL

?tabs tabs_to_be_displayedL

?tabPlacement 'top

?value 1

)

form = hiCreateAppForm(

?name 'form

?formTitle "Custom Utility"

?dialogStyle 'modeless

?buttonLayout 'ApplyCancel

?initialSize fSize

?fieldFocus 'allTypein

?fields list(list(tabFld 1:5 620:500))

)

hiDisplayForm(form)

t

)

)

Andrew,

Thanks for responding.

The problem was that the ?fields argument was assigned nil. Hence hiCreateTabField failed. I had one more query. Hope I can ask it in the same post. 

I am unable to get the tab names used in the form by providing tab value ?

I tried the following; Created a sample form; See sample code below;

1. f=hiGetCurrentForm()

-- Returns form Id

2. get(f->tabFld  nthelem(f->tabFld->value f->tabFld->fieldList))

-- Returns page3 { as third tab was selected in the form) instead of tab name.  Is there anything I am missing here. How do I get the tab name from pagebasename# ?

Thanks,

Veena

;; Usage :: crTabForm('("flow1" "flow4"))

procedure(crTabForm(flowTypeL)

let( ( libFld cellFld viewFld lcvBB o1CellFld o2CellFld o3CellFld o4CellFld tabFld1 tabFld2 tabFld3 tabFld4 tabFld5

form (fSize 620:500))

;; Basic Setup tab

libFld = hiCreateStringField(

?name 'libFld

?prompt "Library"

)

cellFld = hiCreateStringField(

?name 'cellFld

?prompt "Cell"

)

viewFld = hiCreateStringField(

?name 'viewFld

?prompt "View"

)

o1CellFld = hiCreateStringField(?name 'o1CellFld ?prompt "Output Cell")

o2CellFld = hiCreateStringField(?name 'o2CellFld ?prompt "Output Cell")

o3CellFld = hiCreateStringField(?name 'o3CellFld ?prompt "Output Cell")

o4CellFld = hiCreateStringField(?name 'o4CellFld ?prompt "Output Cell")

;;Setup

tabFld1 = list(

list(libFld 20:75 440:30 100 )

list(cellFld 20:105 440:30 100 )

list(viewFld 20:135 440:30 100 )

)

;;Flow1

tabFld2 = list(

list(o1CellFld 30:210 440:30 100 )

)

;;Flow2

tabFld3 = list(

list(o2CellFld 30:210 440:30 100 )

)

;;Flow3

tabFld4 = list(

list(o3CellFld 30:210 440:30 100 )

)

;;Flow4

tabFld5 = list(

list(o4CellFld 30:210 440:30 100 )

)

flds_to_be_displayedL=list(tabFld1)

tabs_to_be_displayedL=list("Setup")

foreach(f flowTypeL

when(equal(f "flow1")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld2)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow1")

)

when(equal(f "flow2")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld3)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow2")

)

when(equal(f "flow3")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld4)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow3")

)

when(equal(f "flow4")

flds_to_be_displayedL=append1(flds_to_be_displayedL tabFld5)

tabs_to_be_displayedL=append1(tabs_to_be_displayedL "flow4")

)

)

printf("%L\n" flds_to_be_displayedL)

tabFld = hiCreateTabField(

?name 'tabFld

?fields flds_to_be_displayedL

?tabs tabs_to_be_displayedL

?tabPlacement 'top

?value 1

)

form = hiCreateAppForm(

?name 'form

?formTitle "Custom Utility"

?dialogStyle 'modeless

?buttonLayout 'ApplyCancel

?initialSize fSize

?fieldFocus 'allTypein

?fields list(list(tabFld 1:5 620:500))

)

hiDisplayForm(form)

t

)

)