equal
deleted
inserted
replaced
715 wg focusView == currentField ifTrue:[ |
715 wg focusView == currentField ifTrue:[ |
716 explicit := true. |
716 explicit := true. |
717 ] |
717 ] |
718 ]. |
718 ]. |
719 explicit ifTrue:[ |
719 explicit ifTrue:[ |
720 wg focusView:nextField. |
720 wg focusView:nextField byTab:(wg focusCameByTab). |
721 ] ifFalse:[ |
721 ] ifFalse:[ |
722 self makeActive:nextField |
722 self makeActive:nextField |
723 ] |
723 ] |
724 ] |
724 ] |
725 |
725 |
811 ! ! |
811 ! ! |
812 |
812 |
813 !EnterFieldGroup class methodsFor:'documentation'! |
813 !EnterFieldGroup class methodsFor:'documentation'! |
814 |
814 |
815 version |
815 version |
816 ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.36 1999-03-16 13:35:00 cg Exp $' |
816 ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.37 1999-03-16 14:13:29 cg Exp $' |
817 ! ! |
817 ! ! |