Cancelling axlSingleSelectPoint() ??

did you already try to add this in your code?

mypopup = axlUIPopupDefine( nil

(list (list "Done" 'axlFinishEnterFun)

(list "Cancel" 'axlCancelEnterFun)))

axlUIPopupSet( mypopup)

 I'm doing this from a form field.The program create voids and etch for test coupons, where each layer has a different pattern.

If the user decides to exit after selecting a box, I want to be able to kill the axlSingleSelectPoint, if I can.

The user selects a checkbox and then selects a component(axlSingleSelectPoint) :

        axlSingleSelectPoint()
        coupon_symbol=car(axlGetSelSet())
        coupon_rotation=float(coupon_symbol->rotation)
        coupon_x=car( coupon_symbol->xy)
        coupon_y=cadr( coupon_symbol->xy)

The issue I am having is that if the user decide not to pick a component and exit out the procedures continues to the end, or fails.

My callback looks like this:

 procedure(_callback(form_status)
let((newbox numFields)
    cond(
        (form_status->curField=="cancel"
        axlCancelEnterFun()
        axlUIWUpdate(nil)
        axlFormClose(form_status)
        deleteFile("./DC_Reg_Coupon.form")
        )

        (form_status->curField=="Reset"
        numFields=form_status->fields
        axlClearSelSet()
            foreach(Field numFields
            axlFormColorize(form_status Field 'background nil)
            axlFormSetField(form_status Field nil)
            )
        )

        (integerp(atoi(form_status->curField))
        newbox=atoi(form_status->curField)
        PCD_ceCreatePathTables(newbox)
        axlFormColorize(form_status form_status->curField 'background 'green)
        axlClearSelSet()
        )
)
)
)

Jerry

seyerfred said:

did you already try to add this in your code?

mypopup = axlUIPopupDefine( nil

(list (list "Done" 'axlFinishEnterFun)

(list "Cancel" 'axlCancelEnterFun)))

axlUIPopupSet( mypopup)

Hi Jerry,

I would use a variable to control this:

form_status->continue = nil

.

.

form_status->continue = axlSingleSelectPoint()

.

.

        (form_status->curField=="cancel" || !form_status ->continue

 Hi Dave,

Where do I add form_status->continue=nil?

I tried to add it above the  form_status->continue = axlSingleSelectPoint(), but it closes the form when I select a button.

 Also, this is a global variable, correct?

Thanks,

Jerry

eDave said:

Hi Jerry,

 

I would use a variable to control this:

form_status->continue = nil

.

.

form_status->continue = axlSingleSelectPoint()

.

.

procedure(_callback(form_status)
let((newbox numFields)
    cond(

        (form_status->curField=="cancel" || !form_status ->continue

Sorry, I put you wrong. Initialise it to t.

It's not global because it's an attribute of the form variable. Of course I have assumed that your form variable is form_status and you may well have used something else..