--- a/ShadowView.st	Sat Dec 11 02:34:56 1993 +0100
+++ b/ShadowView.st	Sat Dec 11 02:36:44 1993 +0100
@@ -25,7 +25,7 @@
 just to give PopUps and ModalBoxes a shadow. A ShadowView just paints black.
 The instance variable myView is the view, the shadow is for.
 
-$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.4 1993-10-13 02:44:17 claus Exp $
+$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.5 1993-12-11 01:32:53 claus Exp $
 written nov 91 by claus.
 real shadow added jun-93 by claus (if shadowColor is nil)
 '!
@@ -107,11 +107,18 @@
 create
     super create.
     self backingStore:false.
+    self saveUnder:true
+!
 
-    "X11/NeWS server is broken here ..."
-    (device serverVendor startsWith:'X11/NeWS') ifFalse:[
-        self saveUnder:true
-    ]
+recreate
+    shadow := Black.
+
+    "the length of the shadow from myView"
+    shadowLength := (device pixelPerMillimeter * 1.0) rounded.
+
+    super recreate.
+    self backingStore:false.
+    self saveUnder:true
 ! !
 
 !ShadowView methodsFor:'events'!