--- a/ModalBox.st	Mon Jul 03 02:35:52 1995 +0200
+++ b/ModalBox.st	Sun Jul 23 04:29:59 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.25 1995-06-06 04:07:35 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.26 1995-07-23 02:27:44 claus Exp $
 '!
 
 !ModalBox class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.25 1995-06-06 04:07:35 claus Exp $
+$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.26 1995-07-23 02:27:44 claus Exp $
 "
 !
 
@@ -203,7 +203,7 @@
     ]
 !
 
-createOnTop
+isPopUpView
     ^ UseTransientViews not
 !
 
@@ -632,7 +632,17 @@
     "this is the close from a windowmanager
      (only if UseTransientViews == true)"
 
-    self hide
+    "
+     if I am a dialog, make the receiver invisible and leave control.
+     But, do not destroy the underlying view resources, to allow for
+     another open/show to occur later.
+     if I have been opened modeLess, perform the normal destroy operation.
+    "
+    windowGroup isModal ifTrue:[
+	self hide
+    ] ifFalse:[
+	super terminate
+    ]
 !
 
 visibilityChange:how
@@ -660,7 +670,7 @@
      if the other view is not a modal- (or shadow-, or popup-) -view,
      bring myself to the front again.
     "
-    aView createOnTop ifFalse:[
+    aView isPopUpView ifFalse:[
 	"
 	 if I have a mainGroup,
 	 only raise if its one of my maingroup-views