Why does not DCL close in the X?

[carlos_m_gil_p]

Hello boys how are you?

I want to ask, if anyone knows, why do not you close the dialog box, by clicking in the upper right corner (In the X)
It is not the first time that happens to me and I always have the doubt.

Thank you and excuse my English.

[scot-65]

Without looking at your attachments...

Inside the DCL:
:button {key="cancel"; label="Cancel"; is_cancel="true";}

If you are using the built-in ok_cancel, it is written inside by default.

???

[carlos_m_gil_p]

Hello Brother how are you.
It does not work.
Open another option.

[scot-65 · Accepted solution]

Looking at your original code, the is_default is there
but not the is_cancel.

From what I remember, both of them have to be
somewhere inside the DCL.

Possibly another item is to add a return to the last line
(the cursor will go below the last line).

I have remove some redundant code:
[code]
Selectclose :dialog
{label="list";
spacer;
spacer;
:boxed_column {
:list_box {key="txtobjorg"; is_enabled=true; width=18; height=13;}
spacer;
}
spacer;
:button {key="canselobj"; label="Cancel"; is_default=true; is_cancel=true;}
spacer;
}
[/code]

???

[carlos_m_gil_p]

Hello Brother how are you.
Now if it works, I'll take your comments for future lisp.
Thank you.

[scot-65]

Try this for more elegance:
:button {
key="canselobj";
label="&Cancel";
is_default=true;
is_cancel=true;
fixed_width=true;
alignment=centered;
}

Optional is to assign a width... especially if using
more than one button on a line (row). A value of 12.0
usually does the trick for all OK, Cancel and Help with
a spacer that is 2.0 units wide in between.
:row {fixed_width=true; alignment=centered;
:button... &OK
:spacer {width=2.0;}
:button... &Cancel
:spacer {width=2.0;}
:button... &Help
}

[carlos_m_gil_p]

Thanks brother.
Everyday I learn more.