class: SimpleView
changed:
#openModal:inGroup:
#openModelessAt:iconified:
cancel any scheduled autoraise whenever a new window
is created. This prevents glitches and race conditions
when opening dialogs or popups
--- a/SimpleView.st Wed May 29 19:25:46 2013 +0200
+++ b/SimpleView.st Wed May 29 19:40:25 2013 +0200
@@ -10561,6 +10561,8 @@
|tops mainView previousGroup mainGroup cursorChanged|
+ StandardSystemView cancelAutoRaise.
+
aWindowGroup notNil ifTrue:[
mainGroup := aWindowGroup mainGroup.
mainView := mainGroup mainView.
@@ -10789,13 +10791,14 @@
|newGroup|
+ StandardSystemView cancelAutoRaise.
drawableId isNil ifTrue:[self create].
windowGroup isNil ifTrue:[
- newGroup := true.
- windowGroup := self windowGroupClass new.
+ newGroup := true.
+ windowGroup := self windowGroupClass new.
] ifFalse:[
- newGroup := false.
+ newGroup := false.
].
windowGroup addTopView:self.
@@ -10804,13 +10807,13 @@
device nonModalWindowListenersDo:[:listener | listener aboutToOpenWindow:self].
newGroup ifTrue:[
- (aPoint isNil and:[iconified not]) ifTrue:[
- windowGroup startupWith:[self realize].
- ] ifFalse:[
- windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
- ].
+ (aPoint isNil and:[iconified not]) ifTrue:[
+ windowGroup startupWith:[self realize].
+ ] ifFalse:[
+ windowGroup startupWith:[self realizeKeepingGroup:false at:aPoint iconified:iconified].
+ ].
] ifFalse:[
- self realizeInGroup.
+ self realizeInGroup.
].
"
@@ -10994,11 +10997,11 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.718 2013-05-29 13:22:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.719 2013-05-29 17:40:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.718 2013-05-29 13:22:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.719 2013-05-29 17:40:25 cg Exp $'
!
version_SVN