--- a/StandardSystemView.st Thu May 13 21:13:35 2004 +0200
+++ b/StandardSystemView.st Mon May 17 17:12:25 2004 +0200
@@ -918,33 +918,33 @@
|v|
windowGroup notNil ifTrue:[
- "/ I got the focus - tell the current focus-windowgroup
- "/ that its focus is gone elsewhere ...
+ "/ I got the focus - tell the current focus-windowgroup
+ "/ that its focus is gone elsewhere ...
"/ 'focusIn ' print. windowGroup process name printCR.
"/ 'focusView is ' print. windowGroup focusView printCR.
- WindowGroup takeFocusFromDevice:device.
+ WindowGroup takeFocusFromDevice:device.
- v := windowGroup focusView.
- v isNil ifTrue:[
- UserPreferences current focusFollowsMouse ~~ false ifTrue:[
- v := windowGroup pointerView.
+ v := windowGroup focusView.
+ v isNil ifTrue:[
+ UserPreferences current focusFollowsMouse ~~ false ifTrue:[
+ v := windowGroup pointerView.
"/ 'pointerView is ' print. v printCR.
- (v notNil
- and:[v isKeyboardConsumer not
- and:[v wantsFocusWithPointerEnter not]]) ifTrue:[
- "/ no - not this one
+ (v notNil
+ and:[v isKeyboardConsumer not
+ and:[v wantsFocusWithPointerEnter not]]) ifTrue:[
+ "/ no - not this one
"/ 'not a kbdConsumer' printCR.
- v := nil.
- ]
- ]
- ].
- v isNil ifTrue:[
- self assignKeyboardFocusToFirstInputField.
- ] ifFalse:[
- "/ v requestFocus. - will be denied; but we must force it here
- windowGroup focusView:v byTab:false.
- ]
+ v := nil.
+ ]
+ ]
+ ].
+ v isNil ifTrue:[
+ self assignInitialKeyboardFocus.
+ ] ifFalse:[
+ "/ v requestFocus. - will be denied; but we must force it here
+ windowGroup focusView:v byTab:false.
+ ]
].
super focusIn
@@ -1535,7 +1535,7 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.157 2004-03-30 20:34:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.158 2004-05-17 15:12:04 cg Exp $'
! !
StandardSystemView initialize!