--- a/ModalBox.st	Fri Feb 28 22:09:49 1997 +0100
+++ b/ModalBox.st	Fri Feb 28 22:35:19 1997 +0100
@@ -86,11 +86,12 @@
 
 useTransientViews:aBoolean 
     "change the way modalBoxes are created on the Display.
-     If the argument is true, transient views are used; otherwise
-     override redirect views are used. 
+     If the argument is true, transient views are used; 
+     otherwise override redirect views are used. 
      Depending on your windowmanager, either one may have problems. 
      You may want to change the setting
-     from your display.rc or d_xxx.rc file."
+     from your display.rc or d_xxx.rc file.
+     This is now obsolete - transient views work and are always used."
 
     UseTransientViews := aBoolean.
 
@@ -99,7 +100,21 @@
      ModalBox useTransientViews:true 
     "
 
+    "Modified: 28.2.1997 / 22:27:46 / cg"
+!
+
+usingTransientViews 
+    "return true, if transient views are used 
+     for modalBoxes. This is somewhat oboslete."
+
+    ^ UseTransientViews
+
+    "
+     ModalBox usingTransientViews
+    "
+
     "Modified: 18.7.1996 / 19:18:46 / cg"
+    "Created: 28.2.1997 / 22:27:12 / cg"
 ! !
 
 !ModalBox methodsFor:'accessing'!
@@ -591,51 +606,11 @@
      the current active windowgroups cursors to the busy-stop cursor, show
      a shadow, and raise the box."
 
-    |mainGroup mainView mainViewID useTransient|
-
-    useTransient := UseTransientViews.
-
-    "
-     show a stop-cursor in the current group
-    "
-    mainGroup := WindowGroup activeGroup.
-    mainGroup notNil ifTrue:[
-        mainGroup := mainGroup mainGroup.
-    ].
-
-"/    mainGroup isNil ifTrue:[
-"/        useTransient := false
-"/    ].
-
-    useTransient ifTrue:[
-        mainGroup notNil ifTrue:[
-            mainGroup topViews notNil ifTrue:[
-                mainView := mainGroup topViews first.
-            ].
-            mainView notNil ifTrue:[
-                mainViewID := mainView id.
-            ]
-        ]
-    ].
-
-    useTransient ifTrue:[
-        mainViewID isNil ifTrue:[
-            self origin:(device center - (self extent//2))
-        ].
-        shadowView := nil.
-    ] ifFalse:[
-        shadowView notNil ifTrue:[shadowView realize].
-    ].
-    self raise.
-
-    useTransient ifTrue:[
-        device setTransient:drawableId for:mainViewID.
-    ].
-
-    super openModal:aBlock inGroup:mainGroup.
+    shadowView notNil ifTrue:[shadowView realize].
+    super openModal:aBlock.
 
     "Created: 10.12.1995 / 14:07:01 / cg"
-    "Modified: 18.7.1996 / 19:22:53 / cg"
+    "Modified: 28.2.1997 / 22:32:49 / cg"
 !
 
 positionOffset
@@ -834,6 +809,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.52 1997-02-08 16:44:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.53 1997-02-28 21:34:26 cg Exp $'
 ! !
 ModalBox initialize!