Added the ability to make a shell close on escape, but it defaults to false.

Author: nedtwigg

durian-swt/src/main/java/com/diffplug/common/swt/Shells.java

@@ -54,6 +54,7 @@ public class Shells {
 	private boolean positionIncludesTrim = true;
 	private Map.Entry<Corner, Point> location = null;
 	private boolean dontOpen = false;
+	private boolean closeOnEscape = false;
 
 	private Shells(int style, Coat coat) {
 		this.style = style;
@@ -184,6 +185,14 @@ public Shells setDontOpen(boolean dontOpen) {
 		return this;
 	}
 
+	/**
+	 * Determines whether the shell will close on escape, defaults to false.
+	 */
+	public Shells setCloseOnEscape(boolean closeOnEscape) {
+		this.closeOnEscape = closeOnEscape;
+		return this;
+	}
+
 	/** Opens the shell on this parent shell. */
 	public Shell openOn(Shell parent) {
 		Preconditions.checkNotNull(parent);
@@ -352,11 +361,13 @@ private void setupShell(Shell shell) {
 			shell.setAlpha(alpha);
 		}
 		// disable close on ESCAPE
-		shell.addListener(SWT.Traverse, e -> {
-			if (e.detail == SWT.TRAVERSE_ESCAPE) {
-				e.doit = false;
-			}
-		});
+		if (!closeOnEscape) {
+			shell.addListener(SWT.Traverse, e -> {
+				if (e.detail == SWT.TRAVERSE_ESCAPE) {
+					e.doit = false;
+				}
+			});
+		}
 		// find the composite we're going to draw on
 		coat.putOn(shell);