--- a/EnterFieldGroup.st Thu Apr 25 13:15:39 1996 +0200
+++ b/EnterFieldGroup.st Thu Apr 25 18:33:37 1996 +0200
@@ -55,21 +55,24 @@
a normal character. To step using tab, you have to add the Tab key to the
fields leaveKeys.
- Instance variables:
+ [Instance variables:]
+
+ fields <Collection of EditField> the fields of the group
- fields <Collection of EditField> the fields of the group
+ currentField <EditField> the active field
- currentField <EditField> the active field
+ leaveAction <nil|Block> action to perform, when the
+ last field is left by a non-wrap
- leaveAction <nil|Block> action to perform, when the
- last field is left by a non-wrap
+ wrap <Boolean> if true, non-return next-keys wrap
+ back to the first field.
+ If false (the default), next in
+ the last field is taken as return.
+ This is ignored, if no leaveAction was
+ defined.
- wrap <Boolean> if true, non-return next-keys wrap
- back to the first field.
- If false (the default), next in
- the last field is taken as return.
- This is ignored, if no leaveAction was
- defined.
+ [author:]
+ Claus Gittinger
"
!
@@ -519,5 +522,5 @@
!EnterFieldGroup class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.20 1996-03-04 22:32:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.21 1996-04-25 16:33:37 cg Exp $'
! !