Cancelling axlSingleSelectPoint() ??

 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)

 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)