Partially revert that last commit. Sorry! All these different preferences around system windows make my head ache. :-)
If there is no current keyboard focus, this can mean you are dragging a window by its label. Especially when "keyboard focus on mouse over" is enabled. In that case, we do not want the window to suddenly look unfocused.
=============== Diff against Morphic-mt.1603 ===============
Item was changed:
----- Method: SystemWindow>>updateFocusLookForKeyboardFocus (in category 'focus') -----
"Ensure that the window holding the current keyboard focus looks focused. Note that the focus window is not necessarily the receiver of this message."
| f w |
(((f := self activeHand keyboardFocus) notNil and: [(w := f containingWindow) notNil])
and: [w isActive])
(self class windowsIn: self world) do: [:window |
w ~~ window ifTrue: [window lookUnfocused]].
+ w lookFocused]!
- w lookFocused]
- ifFalse: [
- "If there is no valid focus holder, we must not look focused even if we are the key window."
- self lookUnfocused]!