axlselect not getting cancelled using popup menu Cancel option

All,

 

 I am defining a popup to cancel axlselect in the interactive mode .. I need to twice select Cancel in the popup to exit the axlselect command.

How to  determine the axlselect command is exited – tried using axlOKToProceed() while axlSelect command is active it returns ‘t’

 Below is the code.. what am I missing?

 Appreciate your help.

-----------------------------------------------------------------------------

 procedure( testpopup()

 mypopup = axlUIPopupDefine( nil '(

("Next", "myNext()" )

("Oops", "myOops()" )

("Cancel", "myCancel()" )

("Done", "myDone()" )

))

 

axlUIPopupSet(mypopup)

axlSetFindFilter(?enabled '(noall symbols) ?onButtons '(noall symbols))

dbids= axlGetSelSet(axlSelect(?prompt "Select components"))

 

if(dbids then

axlUIWPrint(nil "- symbol selected -")

else

axlUIWPrint(nil "- symbol not selected -")

)

 ) ; end procedure

 

 procedure( myNext()

axlUIWPrint(nil "- Next -")

)

 procedure( myOops()

axlUIWPrint(nil "- oops -")

)

 procedure( myCancel()

axlUIWPrint(nil "- Cancel -")

axlCancelEnterFun()

axlUIPopupSet(nil)

)

procedure( myDone()

axlUIWPrint(nil "- Done -")

)

-------------------------------------------------

 Thanks,

Nagaraj.