--- a/ApplicationModel.st	Fri Apr 19 11:38:12 2013 +0200
+++ b/ApplicationModel.st	Wed Apr 24 17:12:15 2013 +0200
@@ -3787,6 +3787,15 @@
 
 !ApplicationModel methodsFor:'window events'!
 
+autoRaise:oneOfMyViews
+    "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"
+
+    oneOfMyViews raise.
+!
+
 clientMessage:msgType format:msgFormat eventData:msgData
     "a client message - very X-Window specific and only useful for special applications.
      Subclasses prepared to receive them should redefine this method"
@@ -3952,11 +3961,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.335 2013-03-24 11:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.336 2013-04-24 15:12:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.335 2013-03-24 11:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.336 2013-04-24 15:12:15 cg Exp $'
 ! !