hiCreateComboField() ?callback func

Hi,

I don't get this error. Apply doesn't do anything at all and both Ok as well as Cancel close the form...which is the expected behavior. And since you don't have any callbacks defined, what is that GUI supposed to do...I mean other than displaying the first cell and view of a selected library?

Max

Also, it would be easier to use the ddHiCreate*ComboField functions which make all this a lot easier as they do the work for you. See my example code in this post (note there's a link to another post which gives a newer and expanded version of the example code too).

Thanks for reply, mbracht and Andrew, 

My virtuoso version is 616, and ddHiCreate*ComboField functions can not be used in that version. Other blogger guess, click cancel after selecting libName, fields callback func was triggered, so the value of fields changed but not saved in form. When click cancel form is unmaped, the results is same as hiFormCancel done, fields callback were triggered, the return of hiGetCurrentForm is nil at this time,  error ocurred in callback function routine. 

And I change hiGetCurrentForm to r_form, the problem solved. 

hiGetCurrentForm() => nil ; form->lib->value or form->cell->value => error!

Yush

I made a trial and the error actually occurs twice when you close (or cancel) the form
(It doesn't raise an error with OK, or Apply)

So the callback being triggered by leaving the edited fields makes sense (even though I'm surprised)

Anyway, the error itself is actually coming when one of the following line returns nil.

cells = ddGetObj(form->lib->value)->cells~>name

views = ddGetObj(form->lib->value form->cell->value)->views~>name

You can fix the error using a simpler coding style and doing the appropriate checks.

You have weird statements:

  - You are using both `when' and `unless' when most people would use `if' or `cond'

  - You are using `cond' when `case' is more suitable

Here is the updated code : 

procedure(testSelectCV_SelCB(form @optional field("lib"))
let((cells currentCell views currentView)
    case( field
        ("lib"                ;;Control cell field
            currentCell = form->cell->value
            ;; Fetch library cells
            unless( artBlankString(form->lib->value)
                cells = ddGetObj(form->lib->value)->cells~>name
            )
            ;; Change cell only if :
            ;; - cells where found
            ;; - current cell is not among them
            when( cells
                form->cell->items = cells
                unless( member(currentCell cells)
                    form->cell->value = car(cells)
                )
            )
        )
        ("cell"        ;;Control view field
            currentView = form->view->value
            ;; Fetch cell views
            unless( artBlankString(form->lib->value) && artBlankString(form->cell->value)
                views = ddGetObj(form->lib->value form->cell->value)->views~>name
            )
            ;; Change view only if :
            ;; - views were found
            ;; - current view is not among them
            when( views
                form->view->items = views
                unless(member(currentView views)
                    form->view->value = car(views)
                )
            )
        )
    );end cond
    t
);end let
);end proc

Thanks for help, AurelBuche, 

The updated code sovled the error, but there maybe missing the code of assign value to cell/view field's items：

form->cell->items = cells
unless(member(currentCell cells)
    ......
)
the views case also missing

Yush

You are right, I updated the code of my previous answer