hiCreateListBoxField,callBack

Hi,

well even I'am not Andrew ;-) I think I can answer this. The information about the selected item is available in the listbox callback so from there you may dispatch the required function:

box=hiCreateListBoxField(
   ?name 'box
   ?choices '("pfets" "nfets" "res")
   ?callback (lambda (@rest args)
         (case (car (car args)->value)
            ("pfets"
               (pfets)
            )
            ("nfets"
               (nfets)
            )
            ("res"
            (res)
            )
         )
         t
      )
   )

Hi,

well even I'am not Andrew ;-) I think I can answer this. The information about the selected item is available in the listbox callback so from there you may dispatch the required function:

box=hiCreateListBoxField(
   ?name 'box
   ?choices '("pfets" "nfets" "res")
   ?callback (lambda (@rest args)
         (case (car (car args)->value)
            ("pfets"
               (pfets)
            )
            ("nfets"
               (nfets)
            )
            ("res"
            (res)
            )
         )
         t
      )
   )

I'm struggling to get a post to reply to this thread to work - I had a slightly simpler way of doing what Max suggested. I'm working with our IT to figure out why my post won't go through.

Andrew

Hopefully the post will work this time.

One approach is this:

procedure(MyListBoxCB()
  let((box)
    box=car(hiGetListBoxValue(hiGetCurrentForm()->box))
    when(box
      errset(funcall(concat(box) /*... extra args to function here ... */ ) t)
    )
 )
)

Then change the callback to "MyListBoxCB()". This code retrieves the selected value from the field (only the first, because I'm assuming only single selection is enabled), then converts to a symbol and calls the function with that name using funcall. I wrapped it with an errset in order to catch any errors triggered during the function call and display them.

A second alternative is using something similar to the approach that Max took but putting the function directly in the callback (i.e. using a lambda to avoid having a named function):

box=hiCreateListBoxField(
  ?name 'box
  ?choices '("pfets" "nfets" "res")
  ?callback lambda((field scope)
    errset(funcall(concat(car(hiGetListBoxValue(field)))) t)
  )
)

By the way, I'm not the only person here, so best not to post questions assuming that it is only me that will answer!

Regards,

Andrew

Hi,

   I tried with your snippet,but it was showing error as Error : eval not a function "pfets".

Er, that's because you haven't defined a function called pfets! You said that there were user-defined functions called pfets, nfets, res etc. If you do:

procedure(pfets() printf("HELLO pfets\n"))
procedure(nfets() printf("HELLO nfets\n"))
procedure(res() printf("HELLO res\n"))

The code is simply trying to call the function and if it doesn't exist, it gives an error. If you only want to call the function if it exists, you could do:

box=hiCreateListBoxField(
  ?name 'box
  ?choices '("pfets" "nfets" "res")
  ?callback lambda((field scope)
    letseq(
      ((value car(hiGetListBoxValue(field))) (funcName value && concat(value)))
      when(funcName && isCallable(funcName)
        errset(funcall(concat(car(hiGetListBoxValue(field)))) t)
      )
    )
  )
)

This also checks that a value was specified (the earlier value did that, but I omitted it from the inline version - this can happen if you use ctrl-click to deselect any item in the listbox).

Andrew.