equal
deleted
inserted
replaced
3683 "add a component to the input group. |
3683 "add a component to the input group. |
3684 The argument, aComponentOrSubcomponent may even be a nested subcomponent of |
3684 The argument, aComponentOrSubcomponent may even be a nested subcomponent of |
3685 a topLevel component." |
3685 a topLevel component." |
3686 |
3686 |
3687 inputFieldGroup isNil ifTrue:[ |
3687 inputFieldGroup isNil ifTrue:[ |
3688 inputFieldGroup := EnterFieldGroup new. |
3688 inputFieldGroup := EnterFieldGroup new. |
3689 inputFieldGroup leaveAction:[self lastFieldLeft]. |
3689 inputFieldGroup leaveAction:[self lastFieldLeft]. |
3690 aComponentOrSubcomponent hasKeyboardFocus:true. |
3690 "/ |
|
3691 "/ the first inputField gets the focus initially |
|
3692 "/ |
|
3693 aComponentOrSubcomponent hasKeyboardFocus:true. |
3691 ]. |
3694 ]. |
3692 inputFieldGroup add:aComponentOrSubcomponent before:anotherComponent. |
3695 inputFieldGroup add:aComponentOrSubcomponent before:anotherComponent. |
3693 self delegate:(KeyboardForwarder to:inputFieldGroup condition:#noFocus). |
3696 self delegate:(KeyboardForwarder to:inputFieldGroup condition:#noFocus). |
3694 |
3697 |
3695 "/ inputFields isNil ifTrue:[ |
3698 "/ inputFields isNil ifTrue:[ |
5889 ! ! |
5892 ! ! |
5890 |
5893 |
5891 !DialogBox class methodsFor:'documentation'! |
5894 !DialogBox class methodsFor:'documentation'! |
5892 |
5895 |
5893 version |
5896 version |
5894 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.127 1999-03-05 10:10:39 cg Exp $' |
5897 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.128 1999-03-06 01:28:50 cg Exp $' |
5895 ! ! |
5898 ! ! |
5896 DialogBox initialize! |
5899 DialogBox initialize! |