equal
deleted
inserted
replaced
466 ! ! |
466 ! ! |
467 |
467 |
468 !EnterFieldGroup methodsFor:'adding / removing'! |
468 !EnterFieldGroup methodsFor:'adding / removing'! |
469 |
469 |
470 add:aField |
470 add:aField |
471 |thisIndex action| |
471 |thisIndex| |
472 |
472 |
473 fields isNil ifTrue:[ |
473 fields isNil ifTrue:[ |
474 fields := OrderedCollection new |
474 fields := OrderedCollection new |
475 ]. |
475 ]. |
476 fields add:aField. |
476 fields add:aField. |
726 ! ! |
726 ! ! |
727 |
727 |
728 !EnterFieldGroup class methodsFor:'documentation'! |
728 !EnterFieldGroup class methodsFor:'documentation'! |
729 |
729 |
730 version |
730 version |
731 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.28 1996-08-01 16:18:35 cg Exp $' |
731 ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.29 1997-07-25 14:20:49 cg Exp $' |
732 ! ! |
732 ! ! |