Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial focus - if focusFollowsMouse, look for current
authorClaus Gittinger <cg@exept.de>
Wed, 26 May 1999 14:48:14 +0200
changeset 2738 abec21bdad65
parent 2737 f8ca00c8e6d4
child 2739 cb69eee54920
initial focus - if focusFollowsMouse, look for current pointerView - if there is no focusView.
StandardSystemView.st file | annotate | diff | comparison | revisions
StdSysV.st file | annotate | diff | comparison | revisions 
--- a/StandardSystemView.st	Wed May 26 14:41:24 1999 +0200
+++ b/StandardSystemView.st	Wed May 26 14:48:14 1999 +0200
@@ -884,7 +884,13 @@
 
         WindowGroup takeFocusFromDevice:device.
 
-        (v := windowGroup focusView) isNil ifTrue:[
+        v := windowGroup focusView.
+        v isNil ifTrue:[
+            UserPreferences current focusFollowsMouse ~~ false ifTrue:[
+                v := windowGroup pointerView
+            ]
+        ].
+        v isNil ifTrue:[
             self assignKeyboardFocusToFirstInputField.
         ] ifFalse:[
             "/ v requestFocus.  - will be denied; but we must force it here
@@ -1458,6 +1464,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.117 1999-05-25 13:42:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.118 1999-05-26 12:48:14 cg Exp $'
 ! !
 StandardSystemView initialize!
--- a/StdSysV.st	Wed May 26 14:41:24 1999 +0200
+++ b/StdSysV.st	Wed May 26 14:48:14 1999 +0200
@@ -884,7 +884,13 @@
 
         WindowGroup takeFocusFromDevice:device.
 
-        (v := windowGroup focusView) isNil ifTrue:[
+        v := windowGroup focusView.
+        v isNil ifTrue:[
+            UserPreferences current focusFollowsMouse ~~ false ifTrue:[
+                v := windowGroup pointerView
+            ]
+        ].
+        v isNil ifTrue:[
             self assignKeyboardFocusToFirstInputField.
         ] ifFalse:[
             "/ v requestFocus.  - will be denied; but we must force it here
@@ -1458,6 +1464,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.117 1999-05-25 13:42:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.118 1999-05-26 12:48:14 cg Exp $'
 ! !
 StandardSystemView initialize!
hg/stx-libview