Using for loop inside hiCreateAppForm fields

Hi Sandeep,

The issue is that for just returns t. I think that you may want something more like foreach mapcar (this is assuming that "cellview" contains a field that hiCreateAppForm can use), in combination with linRg to create a list of numbers to iterate over:

hiCreateAppForm(
   ?name 'Form
   ?formTitle "test form"
   ?fields
     list(	
       list(label 0:0 600:30 200)
       list(all 10:30 600:30 20)
       list(none 10:60 600:30 20)
       list(cellviewFrame 0:90 600:30 200)
       foreach(mapcar i linRg(1 count 1)
         list(cellview[i] 10:90+(i*30) 600:30 20)
       );foreach mapcar  
     );list	
);hiCreateAppForm
       
hiDisplayForm(Form)

Hopefully this willsolve the problem.

Regards,

Lawrence.

Hi Lawrence,

Thank you for your response. I tried using foreach along linRg but it still gives out the same error. Plus, you are right, "cellview" does contain fields that can be used by hiCreateAppForm

Regards,

Sandeep 

Sandeep,

The code as Lawrence posted it won't work because it would not be a correctly structured list - for a 2D form you need a list of sublists, and what you would have got is a list of sublists for the first four fields, and then a sublist containing sublists for each cellView.

So you'd need something like this:

hiCreateAppForm(
   ?name 'Form
   ?formTitle "test form"
   ?fields
     append(
      list(	
       list(label 0:0 600:30 200)
       list(all 10:30 600:30 20)
       list(none 10:60 600:30 20)
       list(cellviewFrame 0:90 600:30 200)
      )
       foreach(mapcar i linRg(1 count 1)
         list(cellview[i] 10:90+(i*30) 600:30 20)
       );foreach mapcar  
     );append	
);hiCreateAppForm

Regards,

Andrew.

Thanks Andrew, that worked perfectly. One more question, I was trying one more alternative but that din't work, would you be able to tell what's wrong with method below:

ButtonList=append1(ButtonList cellview[count])

hiCreateAppForm(

       ?name 'Form

      ?formTitle "test form"

     ?fields append(

                       list(

                           list(label 0:0 600:30 200)

                           list(all 10:20 600:30 20)

   list(none 10:40 600:30 20)

                           list(cellviewFrame 0:70 600:40+(count*30) 200)

                         );list

                        ButtonList

               );append

);hi createAppForm

Regards,

Sandeep

Sandeep,

Probably because ButtonList is just a list of the fields, not a list of lists (where each sublist is the field plus coordinate info). The ?fields argument can either be a simple list of fields, or a list of the 2D attributes, but you can't mix the two together, which is what you're doing here.

Regards,

Andrew.

Hi Sandeep,

Apologies for the earlier mistake, I did not test the code...  For this latest, you will most likely need to use get again and putprop/putpropq, something like the following (again, not tested, so apologies if it still fails):

procedure(allCB(cellview count)
  let((Form)
   	Form=hiGetCurrentForm()
    foreach( key cellview
       putpropq(get(Form cellview[key]) t value)
    ;a=getq( get(checkNsaveForm arrayref(cellview key)) value) ;Form->cellview[key]->value=t
    ;println(a)
    )
  );let
);procedure

Hope this works for you,

Lawrence.

If I've understood your previous examples, the cellview array contains the field structures, not the field names. In which case you'd do:

get(Form cellview[key]->hiFieldSym)->value=t

Regards,

Andrew.

Thanks Lawrence and Andrew.

get(Form cellview[key]->hiFieldSym)->value=t  worked perfectly.

I will keep posting here in case of further problems. appreciate your help.

Regards,

Sandeep