ButtonController.st
changeset 1783 5b0f9d671e2a
parent 1779 cd68cec6ebe8
child 1832 192a7e6fdbef
--- a/ButtonController.st	Wed Mar 10 23:31:29 1999 +0100
+++ b/ButtonController.st	Wed Mar 10 23:38:39 1999 +0100
@@ -661,6 +661,13 @@
     ]
 
     "Modified: 28.5.1996 / 20:21:24 / cg"
+!
+
+requestAutoAccept
+    "request autoAccept from a keyboardProcessor.
+     AutoAccept is allowed, if I am enabled and a default buttons controller"
+
+    ^ self enabled and:[view isDefault]
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -710,5 +717,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.55 1999-03-09 16:00:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.56 1999-03-10 22:38:39 cg Exp $'
 ! !