--- a/ModalBox.st	Thu Aug 02 11:59:41 2001 +0200
+++ b/ModalBox.st	Thu Aug 02 12:00:50 2001 +0200
@@ -145,6 +145,12 @@
 
 !ModalBox methodsFor:'accessing'!
 
+escapeIsCancel
+    "return the escapeIsCancel setting - defaults to true for modalMox here."
+
+    ^ escapeIsCancel
+!
+
 exclusiveKeyboard:aBoolean
     "set/clear exclusive locking of the keyboard;
      If set, the box will take total control over the
@@ -902,6 +908,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.76 2001-06-13 09:13:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.77 2001-08-02 10:00:50 cg Exp $'
 ! !
 ModalBox initialize!