1686 for special highlighting (i.e. drawing a focus-border around itself)" |
1686 for special highlighting (i.e. drawing a focus-border around itself)" |
1687 |
1687 |
1688 |prevFocusView myDisplay| |
1688 |prevFocusView myDisplay| |
1689 |
1689 |
1690 myDisplay := self graphicsDevice. |
1690 myDisplay := self graphicsDevice. |
1691 prevFocusView := FocusViewPerDisplay at:myDisplay ifAbsent:nil. |
1691 myDisplay notNil ifTrue:[ |
1692 |
1692 prevFocusView := FocusViewPerDisplay at:myDisplay ifAbsent:nil. |
1693 (prevFocusView notNil |
1693 |
1694 and:[prevFocusView ~~ aViewOrNil]) ifTrue:[ |
1694 (prevFocusView notNil |
1695 prevFocusView showNoFocus:true. |
1695 and:[prevFocusView ~~ aViewOrNil]) ifTrue:[ |
1696 prevFocusView hasKeyboardFocus:false. |
1696 prevFocusView showNoFocus:true. |
1697 ]. |
1697 prevFocusView hasKeyboardFocus:false. |
1698 FocusViewPerDisplay at:myDisplay put:aViewOrNil. |
1698 ]. |
|
1699 FocusViewPerDisplay at:myDisplay put:aViewOrNil. |
|
1700 ]. |
1699 |
1701 |
1700 focusView == aViewOrNil ifTrue:[ |
1702 focusView == aViewOrNil ifTrue:[ |
1701 focusView notNil ifTrue:[ |
1703 focusView notNil ifTrue:[ |
1702 focusByTab := focusCameViaTab. |
1704 focusByTab := focusCameViaTab. |
1703 focusView showFocus:focusByTab. |
1705 focusView showFocus:focusByTab. |