--- a/EFGroup.st Sun Nov 02 18:33:23 1997 +0100
+++ b/EFGroup.st Sun Nov 02 18:35:07 1997 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:23:15 pm' !
-
Object subclass:#EnterFieldGroup
instanceVariableNames:'fields currentField leaveAction wrap leaveOnTabLast'
classVariableNames:''
@@ -609,6 +607,11 @@
!EnterFieldGroup methodsFor:'group control'!
fieldLeft:aField withKey:key
+ "some of my fields was left using key.
+ Figure out, which one to give the focus:
+ If there are more fields, go to that one;
+ otherwise, handle this like tabbing to the next component"
+
|thisIndex action next wg explicit nFields nextField fs|
"/ currentField notNil ifTrue:[
@@ -623,6 +626,7 @@
"/ if there is a windowGroup, which has a focusSequence,
"/ and the group is left, let it control who is going to get the
"/ focus. Otherwise, stay within the group.
+ "/ Q: is this a good idea (or should we always stay here) ?
((wg := aField windowGroup) notNil
and:[(fs := wg focusSequence) notNil
@@ -691,8 +695,8 @@
]
]
- "Created: 18.10.1997 / 03:03:34 / cg"
- "Modified: 18.10.1997 / 03:22:19 / cg"
+ "Created: / 18.10.1997 / 03:03:34 / cg"
+ "Modified: / 31.10.1997 / 19:15:55 / cg"
! !
!EnterFieldGroup methodsFor:'misc'!
@@ -761,5 +765,5 @@
!EnterFieldGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.30 1997-10-21 18:28:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.31 1997-11-02 17:35:07 cg Exp $'
! !
--- a/EnterFieldGroup.st Sun Nov 02 18:33:23 1997 +0100
+++ b/EnterFieldGroup.st Sun Nov 02 18:35:07 1997 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:23:15 pm' !
-
Object subclass:#EnterFieldGroup
instanceVariableNames:'fields currentField leaveAction wrap leaveOnTabLast'
classVariableNames:''
@@ -609,6 +607,11 @@
!EnterFieldGroup methodsFor:'group control'!
fieldLeft:aField withKey:key
+ "some of my fields was left using key.
+ Figure out, which one to give the focus:
+ If there are more fields, go to that one;
+ otherwise, handle this like tabbing to the next component"
+
|thisIndex action next wg explicit nFields nextField fs|
"/ currentField notNil ifTrue:[
@@ -623,6 +626,7 @@
"/ if there is a windowGroup, which has a focusSequence,
"/ and the group is left, let it control who is going to get the
"/ focus. Otherwise, stay within the group.
+ "/ Q: is this a good idea (or should we always stay here) ?
((wg := aField windowGroup) notNil
and:[(fs := wg focusSequence) notNil
@@ -691,8 +695,8 @@
]
]
- "Created: 18.10.1997 / 03:03:34 / cg"
- "Modified: 18.10.1997 / 03:22:19 / cg"
+ "Created: / 18.10.1997 / 03:03:34 / cg"
+ "Modified: / 31.10.1997 / 19:15:55 / cg"
! !
!EnterFieldGroup methodsFor:'misc'!
@@ -761,5 +765,5 @@
!EnterFieldGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.30 1997-10-21 18:28:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.31 1997-11-02 17:35:07 cg Exp $'
! !