equal
deleted
inserted
replaced
9815 ! ! |
9815 ! ! |
9816 |
9816 |
9817 !DialogBox methodsFor:'private'! |
9817 !DialogBox methodsFor:'private'! |
9818 |
9818 |
9819 assignKeyboardFocusToFirstInputField |
9819 assignKeyboardFocusToFirstInputField |
9820 (inputFieldGroup notNil and:[inputFieldGroup currentField notNil]) ifTrue:[ |
9820 |field| |
|
9821 |
|
9822 (inputFieldGroup notNil |
|
9823 and:[(field := inputFieldGroup currentField) notNil |
|
9824 and:[field shown]]) ifTrue:[ |
|
9825 self assignKeyboardFocusTo:field. |
9821 ^ self "/ disabled - the focus might have already been changed |
9826 ^ self "/ disabled - the focus might have already been changed |
9822 "/ explicitly to another field |
9827 "/ explicitly to another field |
9823 ]. |
9828 ]. |
9824 ^ super assignKeyboardFocusToFirstInputField |
9829 ^ super assignKeyboardFocusToFirstInputField |
9825 ! |
9830 ! |
10172 ! ! |
10177 ! ! |
10173 |
10178 |
10174 !DialogBox class methodsFor:'documentation'! |
10179 !DialogBox class methodsFor:'documentation'! |
10175 |
10180 |
10176 version |
10181 version |
10177 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.357 2014-06-11 13:45:41 cg Exp $' |
10182 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.358 2014-06-13 21:06:30 cg Exp $' |
10178 ! |
10183 ! |
10179 |
10184 |
10180 version_CVS |
10185 version_CVS |
10181 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.357 2014-06-11 13:45:41 cg Exp $' |
10186 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.358 2014-06-13 21:06:30 cg Exp $' |
10182 ! ! |
10187 ! ! |
10183 |
10188 |
10184 |
10189 |
10185 DialogBox initialize! |
10190 DialogBox initialize! |