--- a/SimpleView.st	Thu Feb 08 20:31:54 1996 +0100
+++ b/SimpleView.st	Fri Feb 09 00:28:07 1996 +0100
@@ -1167,8 +1167,7 @@
     ^ self innerWidth max:(self maxSubViewRight)
 
     "Modified: 8.2.1996 / 20:01:50 / cg"
-!
-
+! !
 
 !SimpleView methodsFor:'accessing-dimensions'!
 
@@ -5553,14 +5552,17 @@
     |wg|
 
     ProcessorScheduler isPureEventDriven ifFalse:[
-	wg := WindowGroup new.
-	self windowGroup:wg.
-	wg addView:self.
-	wg startup:false.
-	self realizeInGroup.
+        wg := WindowGroup new.
+        self windowGroup:wg.
+        wg addView:self.
+        wg startup:false.
+        wg isForModalSubview:true.
+        self realizeInGroup.
     ] ifTrue:[
-	self realize
+        self realize
     ]
+
+    "Modified: 9.2.1996 / 00:17:24 / cg"
 !
 
 openInGroup:aGroup
@@ -5870,6 +5872,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.51 1996-02-08 19:31:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.52 1996-02-08 23:28:07 cg Exp $'
 ! !
 SimpleView initialize!