--- a/ModalBox.st	Sun Dec 10 16:19:59 1995 +0100
+++ b/ModalBox.st	Sun Dec 10 16:21:17 1995 +0100
@@ -508,46 +508,46 @@
     "
     mainGroup := WindowGroup activeGroup.
     mainGroup notNil ifTrue:[
-	mainGroup := mainGroup mainGroup.
-	mainGroup notNil ifTrue:[
-	    mainGroup showCursor:(Cursor stop).
-	]
+        mainGroup := mainGroup mainGroup.
+        mainGroup notNil ifTrue:[
+            mainGroup showCursor:(Cursor stop).
+        ]
     ].
 
     mainGroup isNil ifTrue:[
-	useTransient := false
+        useTransient := false
     ].
 
     useTransient ifTrue:[
-	mainGroup topViews notNil ifTrue:[
-	    mainView := mainGroup topViews first.
-	].
-	mainView isNil ifTrue:[
-	    useTransient := false.
-	]
+        mainGroup topViews notNil ifTrue:[
+            mainView := mainGroup topViews first.
+        ].
+        mainView isNil ifTrue:[
+            useTransient := false.
+        ]
     ].
 
     useTransient ifTrue:[
-	shadowView := nil.
+        shadowView := nil.
     ] ifFalse:[
-	shadowView notNil ifTrue:[shadowView realize].
+        shadowView notNil ifTrue:[shadowView realize].
     ].
     self raise.
 
     useTransient ifTrue:[
-	device setTransient:drawableId for:(mainView id).
+        device setTransient:drawableId for:(mainView id).
     ].
 
     [
-	super openModal:aBlock.
+        super openModal:aBlock inGroup:mainGroup.
     ] valueNowOrOnUnwindDo:[
-	"
-	 restore cursors in the main group
-	"
-	mainGroup notNil ifTrue:[
-	    mainGroup restoreCursors.
-	    mainGroup sensor flushUserEvents.
-	]
+        "
+         restore cursors in the main group
+        "
+        mainGroup notNil ifTrue:[
+            mainGroup restoreCursors.
+            mainGroup sensor flushUserEvents.
+        ]
     ].
 
 "/    mainGroup notNil ifTrue:[
@@ -557,6 +557,9 @@
 "/        "
 "/        mainGroup sensor flushUserEvents.
 "/    ].
+
+    "Created: 10.12.1995 / 14:07:01 / cg"
+    "Modified: 10.12.1995 / 14:08:41 / cg"
 !
 
 positionOffset
@@ -737,6 +740,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.32 1995-12-10 00:38:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.33 1995-12-10 15:21:17 cg Exp $'
 ! !
 ModalBox initialize!