class: StandardSystemView
authorClaus Gittinger <cg@exept.de>
Mon, 16 Feb 2015 01:45:22 +0100
changeset 6774 77b76d35d778
parent 6773 2127b803f496
child 6775 e2bc7c2df198
class: StandardSystemView changed: #focusIn focus in a modal view
StandardSystemView.st
--- a/StandardSystemView.st	Sun Feb 15 18:22:28 2015 +0100
+++ b/StandardSystemView.st	Mon Feb 16 01:45:22 2015 +0100
@@ -1087,6 +1087,7 @@
             windowGroup allTopViewsDo:[:t |
                 t ~~ self ifTrue:[
                     t focusIn.
+                    t raise.
                     ^ self.
                 ].
             ]
@@ -1746,11 +1747,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.226 2015-02-15 16:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.227 2015-02-16 00:45:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.226 2015-02-15 16:14:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.227 2015-02-16 00:45:22 cg Exp $'
 ! !