support for autoAccept
authorClaus Gittinger <cg@exept.de>
Wed, 10 Mar 1999 23:38:39 +0100
changeset 1783 5b0f9d671e2a
parent 1782 b385efd8a4b9
child 1784 e45846a6af7a
support for autoAccept
ButtonC.st
ButtonController.st
--- a/ButtonC.st	Wed Mar 10 23:31:29 1999 +0100
+++ b/ButtonC.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/Attic/ButtonC.st,v 1.55 1999-03-09 16:00:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.56 1999-03-10 22:38:39 cg Exp $'
 ! !
--- 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 $'
 ! !