How to create an exit dialog for a JMP Application?

Question

I am trying to add an exit dialog for my JMP application. I currently have made a simple modal window that opens when the user attempts to exit my application.

Here is the code for the exit dialog:

(thisModuleInstance<<GetBox) << On Close(
					New Window("", <<Modal, 
						V List Box(
							Text Box("Are you sure you want to exit? This will close the entire application."),  
							H List Box(
									Button Box("OK",
										close(reportdata, nosave)
									),
									Button Box("Cancel", Stop())
							)
						)	
					);					
				);

The OK button was easy enough, but how do I stop the application from exiting if the user hits cancel? Whenever I hit cancel it just stops the application from running instead of stopping the application from exiting.

Thanks

Jeff_Perkinson · Accepted Answer

Take a look at Interact with a Closing Window. If the On Close() function returns a 0 the window will not close.