--- a/ModalBox.st	Sat May 04 01:06:56 1996 +0200
+++ b/ModalBox.st	Sat May 04 01:09:14 1996 +0200
@@ -303,7 +303,9 @@
 
 reinitialize
    super reinitialize.
-   self unrealize.
+   self unmap.
+
+    "Modified: 3.5.1996 / 23:48:04 / stefan"
 !
 
 resize
@@ -315,13 +317,15 @@
     newExtent = self extent ifTrue:[^ self].
 
     (shown and:[shadowView notNil]) ifTrue:[
-	shadowView unrealize.
-	self extent:newExtent.
-	shadowView realize.
-	self raise
+        shadowView unmap.
+        self extent:newExtent.
+        shadowView realize.
+        self raise
     ] ifFalse:[
-	self extent:newExtent.
+        self extent:newExtent.
     ].
+
+    "Modified: 3.5.1996 / 23:48:12 / stefan"
 !
 
 resizeUnderPointer
@@ -336,28 +340,29 @@
     newExtent = self extent ifTrue:[^ self].
 
     shown ifTrue:[
-	delta := width - newExtent x.
-	newLeft := left + delta.
-	(((newLeft @ top) extent:newExtent) 
-	    containsPoint:device pointerPosition)
-	ifFalse:[newLeft := left].
-	newLeft < 0 ifTrue:[newLeft := 0].
-	newLeft + newExtent x > device width ifTrue:[
-	    newLeft := device width - newExtent x
-	].
-	shadowView notNil ifTrue:[
-	    shadowView unrealize.
-	].
-	self origin:(newLeft @ top) extent:newExtent.
-	shadowView notNil ifTrue:[
-	    shadowView realize.
-	    self raise.
-	].
+        delta := width - newExtent x.
+        newLeft := left + delta.
+        (((newLeft @ top) extent:newExtent) 
+            containsPoint:device pointerPosition)
+        ifFalse:[newLeft := left].
+        newLeft < 0 ifTrue:[newLeft := 0].
+        newLeft + newExtent x > device width ifTrue:[
+            newLeft := device width - newExtent x
+        ].
+        shadowView notNil ifTrue:[
+            shadowView unmap.
+        ].
+        self origin:(newLeft @ top) extent:newExtent.
+        shadowView notNil ifTrue:[
+            shadowView realize.
+            self raise.
+        ].
     ] ifFalse:[
-	self extent:newExtent.
+        self extent:newExtent.
     ].
 
     "Modified: 6.9.1995 / 15:31:21 / claus"
+    "Modified: 3.5.1996 / 23:48:17 / stefan"
 ! !
 
 !ModalBox methodsFor:'move & resize'!
@@ -369,13 +374,15 @@
 
     r := device rectangleFromUser:(self origin corner:self corner).
     shadowView notNil ifTrue:[
-	shadowView unrealize
+        shadowView unmap
     ].
     self origin:r origin extent:(r extent max:(100@100)).
     shadowView notNil ifTrue:[
-	shadowView realize.
-	self raise
+        shadowView realize.
+        self raise
     ].
+
+    "Modified: 3.5.1996 / 23:47:38 / stefan"
 !
 
 doResize
@@ -385,13 +392,15 @@
 
     r := device rectangleFromUser:(self origin corner:self corner).
     shadowView notNil ifTrue:[
-	shadowView unrealize
+        shadowView unmap
     ].
     self origin:r origin extent:(r extent max:(100@100)).
     shadowView notNil ifTrue:[
-	shadowView realize.
-	self raise
+        shadowView realize.
+        self raise
     ].
+
+    "Modified: 3.5.1996 / 23:47:47 / stefan"
 ! !
 
 !ModalBox methodsFor:'private'!
@@ -463,24 +472,26 @@
 
     |p|
 
-    shadowView notNil ifTrue:[shadowView unrealize].
+    shadowView notNil ifTrue:[shadowView unmap].
     windowGroup notNil ifTrue:[windowGroup focusView:nil].
     self leaveControl.
-    self unrealize.
+    self unmap.
     device flush. 
 
     (windowGroup notNil and:[(p := windowGroup previousGroup) notNil]) ifTrue:[
-	"
-	 this is a kludge for IRIS which does not provide backingstore:
-	 when we hide a modalbox (such as a searchbox) which covered
-	 a scrollbar, the scrollbars bitblt-method will copy from the
-	 not-yet redrawn area - effectively clearing the scroller.
-	 We need a short delay here, since at this time, the expose event has
-	 not yet arrived.
-	"
-	Delay waitForSeconds:0.1.
-	p processExposeEvents   
+        "
+         this is a kludge for IRIS which does not provide backingstore:
+         when we hide a modalbox (such as a searchbox) which covered
+         a scrollbar, the scrollbars bitblt-method will copy from the
+         not-yet redrawn area - effectively clearing the scroller.
+         We need a short delay here, since at this time, the expose event has
+         not yet arrived.
+        "
+        Delay waitForSeconds:0.1.
+        p processExposeEvents   
     ].
+
+    "Modified: 3.5.1996 / 23:47:57 / stefan"
 !
 
 hideRequest
@@ -776,6 +787,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.40 1996-04-25 17:16:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.41 1996-05-03 23:09:14 stefan Exp $'
 ! !
 ModalBox initialize!