class: StandardSystemView
added:
#autoRaise
#autoRaiseOnFocusIn
changed: #focusIn
--- 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 $'
! !