Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 15 Mar 1999 11:59:32 +0100
changeset 1793 769bcc27886b
parent 1792 2ce7e48e00d4
child 1794 f3dd5bcc9876
checkin from browser
EFGroup.st file | annotate | diff | comparison | revisions
EnterFieldGroup.st file | annotate | diff | comparison | revisions 
--- a/EFGroup.st	Sun Mar 14 14:06:59 1999 +0100
+++ b/EFGroup.st	Mon Mar 15 11:59:32 1999 +0100
@@ -749,10 +749,12 @@
 
     currentField isNil ifTrue:[
         self activateFirst
+    ] ifFalse:[
+        currentField requestFocus
     ]
 
-    "Modified: / 7.2.1996 / 15:23:09 / cg"
     "Created: / 13.8.1998 / 21:22:35 / cg"
+    "Modified: / 15.3.1999 / 08:22:18 / cg"
 !
 
 activateLast
@@ -816,5 +818,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.34 1998-09-18 19:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.35 1999-03-15 10:59:32 cg Exp $'
 ! !
--- a/EnterFieldGroup.st	Sun Mar 14 14:06:59 1999 +0100
+++ b/EnterFieldGroup.st	Mon Mar 15 11:59:32 1999 +0100
@@ -749,10 +749,12 @@
 
     currentField isNil ifTrue:[
         self activateFirst
+    ] ifFalse:[
+        currentField requestFocus
     ]
 
-    "Modified: / 7.2.1996 / 15:23:09 / cg"
     "Created: / 13.8.1998 / 21:22:35 / cg"
+    "Modified: / 15.3.1999 / 08:22:18 / cg"
 !
 
 activateLast
@@ -816,5 +818,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.34 1998-09-18 19:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.35 1999-03-15 10:59:32 cg Exp $'
 ! !
hg/stx-libwidg