class: SimpleView
authorClaus Gittinger <cg@exept.de>
Wed, 29 May 2013 19:40:25 +0200
changeset 6072 69ba59e3fe6d
parent 6071 536027b2080b
child 6073 2983eb433ed6
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
SimpleView.st
--- 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