equal
deleted
inserted
replaced
684 ] ifFalse:[ |
684 ] ifFalse:[ |
685 nextField := fields at:next. |
685 nextField := fields at:next. |
686 ] |
686 ] |
687 ]. |
687 ]. |
688 |
688 |
689 (wg := currentField windowGroup) notNil ifTrue:[ |
689 next isNil ifTrue:[ |
690 next isNil ifTrue:[ |
690 (wg := currentField windowGroup) notNil ifTrue:[ |
691 delta < 0 ifTrue:[ |
691 delta < 0 ifTrue:[ |
692 ^ wg focusPreviousFrom:aField |
692 wg focusPreviousFrom:aField |
|
693 ] ifFalse:[ |
|
694 wg focusNextFrom:aField. |
693 ]. |
695 ]. |
694 ^ wg focusNextFrom:aField. |
|
695 ]. |
696 ]. |
|
697 ^ self. |
696 ]. |
698 ]. |
697 |
699 |
698 nextField := fields at:next. |
700 nextField := fields at:next. |
699 explicit := false. |
701 explicit := false. |
700 wg notNil ifTrue:[ |
702 wg notNil ifTrue:[ |
796 ! ! |
798 ! ! |
797 |
799 |
798 !EnterFieldGroup class methodsFor:'documentation'! |
800 !EnterFieldGroup class methodsFor:'documentation'! |
799 |
801 |
800 version |
802 version |
801 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.42 2014-06-11 13:45:58 cg Exp $' |
803 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.43 2014-06-13 21:06:48 cg Exp $' |
802 ! |
804 ! |
803 |
805 |
804 version_CVS |
806 version_CVS |
805 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.42 2014-06-11 13:45:58 cg Exp $' |
807 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.43 2014-06-13 21:06:48 cg Exp $' |
806 ! ! |
808 ! ! |
807 |
809 |