checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 16 Mar 1999 15:13:29 +0100
changeset 1798 db5f59b1af9d
parent 1797 1f8d0d5ee22d
child 1799 7d3daeab6afe
checkin from browser
EFGroup.st
EnterFieldGroup.st
--- a/EFGroup.st	Tue Mar 16 14:39:43 1999 +0100
+++ b/EFGroup.st	Tue Mar 16 15:13:29 1999 +0100
@@ -717,7 +717,7 @@
             ]
         ].
         explicit ifTrue:[
-            wg focusView:nextField.
+            wg focusView:nextField byTab:(wg focusCameByTab).
         ] ifFalse:[
             self makeActive:nextField 
         ]
@@ -813,5 +813,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.36 1999-03-16 13:35:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.37 1999-03-16 14:13:29 cg Exp $'
 ! !
--- a/EnterFieldGroup.st	Tue Mar 16 14:39:43 1999 +0100
+++ b/EnterFieldGroup.st	Tue Mar 16 15:13:29 1999 +0100
@@ -717,7 +717,7 @@
             ]
         ].
         explicit ifTrue:[
-            wg focusView:nextField.
+            wg focusView:nextField byTab:(wg focusCameByTab).
         ] ifFalse:[
             self makeActive:nextField 
         ]
@@ -813,5 +813,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.36 1999-03-16 13:35:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.37 1999-03-16 14:13:29 cg Exp $'
 ! !