How to close associated data table with a warning, when chart window is closed ?

Neo

I want to show a warning dialog to the user when a chart window is closed and close the associated data table (without saving) if the user selects OK and keep both the data table and the chart, if the user selects "Cancel".

The script below is for the dialog box I want, but where do I need to put the statement for closing [if OK] or keeping [if Cancel] the data table?

gb << On Close(
	New Window( "Are you sure?",
		<<modal,
		V List Box(
			Text Box( "This will close the associated data table" ), 
			H List Box( Button Box( "OK" ), Button Box( "Cancel" ) )
		)
	)["button"] == 1
);

 

hogi

Any reason why you don't use the free upgrade to jmp17?

The new Workflow Builder is really great

Here a version with

<<Modal

which should work on Jmp 16.2

 

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
gb = dt << Graph Builder(
	<<on close(
		ex = New Window( "message",
			<<Modal,
			V List Box( 
				Text Box( "close?" ),
				H List Box( Button Box( "OK" ), Button Box( "Cancel" ) ) )
		);
		If( ex["button"] == 1,
			Close( (gb << Get Data Table), noSave )
		);
		ex["button"] == 1 // don't close the window if the user doesn't press OK
		;
	),
	Variables( X( :height ), Y( :weight ), Overlay( :sex ) ),
	Elements( Points( X, Y, Legend( 1 ) ), Smoother( X, Y, Legend( 2 ) ) )
);