Buttons to close modal dialog

[#1]

As I understand it, only a maximum of two buttons can close a modal dialog: "OK" and "Cancel" (or other similarly named buttons).

What I'd like is to have another button which does something (say, set a variable), then closes the dialog as if I'd pressed the "OK" button. Something like this:

Names Default To Here( 1 );
a=0;
nw = New Window( "Demo",
	<<modal,
	<<returnresult,
	Text Box( "A modal dialog" ),
	Button Box( "Do something different", a = 1 ), // I want this to close the dialog!
	H List Box( Button Box( "OK" ), Button Box( "Cancel" ) )
);
Show( nw, a );

Is there any way of doing this? I tried including "nw << close window" in the button script but that didn't work.

I could use a text edit box, or a check box, or many other options to set a=1 before pressing "OK", but all of those are additional clicks.

Thanks!

[#2 · Accepted solution]

You can make that button press OK button using << Click(1)

Names Default To Here(1);
a = 0;
nw = New Window("Demo",
	<<modal,
	<<returnresult,
	Text Box("A modal dialog"),
	Button Box("Do something different",
		a = 1;
		ok_btn << Click(1);
	), // I want this to close the dialog!
	H List Box(ok_btn = Button Box("OK"), Button Box("Cancel"))
);
Show(nw, a);

[#3]

Thank you, nice solution! I was unaware that Click() existed - one to remember.