--- a/SimpleDialog.st	Wed Mar 10 01:00:08 1999 +0100
+++ b/SimpleDialog.st	Wed Mar 10 01:04:14 1999 +0100
@@ -329,7 +329,9 @@
     "accept was pressed. close the dialog"
 
     self requestForWindowClose ifTrue:[
-        self closeWindow
+        builder keyboardProcessor requestGlobalAutoAccept ifTrue:[
+            self closeWindow
+        ]
     ]
 
     "Modified: 17.6.1997 / 14:10:23 / cg"
@@ -378,6 +380,11 @@
 doAccept
     "force accept"
 
+    |kp|
+
+    (kp := self window keyboardProcessor) notNil ifTrue:[
+        kp requestGlobalAutoAccept ifFalse:[^ self]
+    ].
     accept value:true
 
     "Created: / 18.10.1997 / 05:18:09 / cg"
@@ -601,5 +608,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.24 1998-09-08 11:42:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.25 1999-03-10 00:04:14 cg Exp $'
 ! !