--- a/EnterFieldGroup.st	Mon May 08 17:19:27 1995 +0200
+++ b/EnterFieldGroup.st	Tue May 09 03:57:16 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.9 1995-05-07 00:15:50 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.10 1995-05-09 01:55:13 claus Exp $
 '!
 
 !EnterFieldGroup class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.9 1995-05-07 00:15:50 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.10 1995-05-09 01:55:13 claus Exp $
 "
 !
 
@@ -343,10 +343,11 @@
 
     aField enableAction:[
 "/ Transcript showCr:'enable field with: ' , aField editValue.
-	currentField notNil ifTrue:[
-	    currentField disable
-	].
-	currentField := aField
+"/        currentField notNil ifTrue:[
+"/            currentField disable
+"/        ].
+"/        currentField := aField
+	self makeActive:aField
     ].
 
     "set the fields leaveAction to enable next field"
@@ -472,7 +473,7 @@
     "key-press in any field - forward the key to the active field"
 
     currentField notNil ifTrue:[
-	currentField keyPress:key x:0 y:0
+	currentField keyPress:key x:-1 y:-1
     ]
 !