--- a/SimpleDialog.st	Tue Jul 18 14:21:06 2000 +0200
+++ b/SimpleDialog.st	Wed Jul 26 15:13:36 2000 +0200
@@ -213,6 +213,14 @@
     "Modified: / 20.5.1998 / 20:51:05 / cg"
 !
 
+accepted
+    "after the box has closed:
+         return true if accepted, false if canceled"
+
+    ^ self accept value
+
+!
+
 bindings
     "return my builders bindings"
 
@@ -605,5 +613,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.30 2000-05-24 10:49:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.31 2000-07-26 13:13:36 cg Exp $'
 ! !