# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1366815095 -7200
# Node ID 25578230982a8dc1d467ed8ad6842d0c9bb1f1a8
# Parent  d8080f253e26467f10c9c0900bb64331dd096ab6
class: StandardSystemView
added:
        #autoRaise
        #autoRaiseOnFocusIn
changed: #focusIn

diff -r d8080f253e26 -r 25578230982a StandardSystemView.st
--- a/StandardSystemView.st	Wed Apr 24 16:42:50 2013 +0200
+++ b/StandardSystemView.st	Wed Apr 24 16:51:35 2013 +0200
@@ -999,6 +999,15 @@
 
 !StandardSystemView methodsFor:'event handling'!
 
+autoRaise
+    "called with a delay by the focusIn code, iff the userPref setting is active.
+     Some (a small number only) may want to prevent autoraise in certain situations
+     - for example, if one view is controlling another. These get a chance to redefine this
+     method"
+
+    self raise.
+!
+
 focusIn
     "the view got the keyboard focus (via the window manager).
      I.e. the mouse was moved out into the topView area - restore the
@@ -1046,7 +1055,7 @@
                                     addTimedBlock:
                                         [   TimedRaiseAction := nil.
                                             self sensor 
-                                                pushUserEvent: #raise 
+                                                pushUserEvent: #autoRaise 
                                                 for: self 
                                         ]
                                     afterMilliseconds:ms.
@@ -1613,8 +1622,12 @@
 
 !StandardSystemView class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.204 2013-04-24 14:51:35 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.203 2013-04-24 14:42:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.204 2013-04-24 14:51:35 cg Exp $'
 ! !