--- a/ShadowView.st	Sun Dec 03 21:57:45 1995 +0100
+++ b/ShadowView.st	Mon Dec 04 01:08:24 1995 +0100
@@ -70,6 +70,8 @@
 
     |ws hs|
 
+    ws := shadowLength x.
+    hs := shadowLength y.
     shadowClr isNil ifTrue:[
 	imageUnderShadow isNil ifTrue:[^ self].
 
@@ -77,8 +79,6 @@
 	self foreground:(Color colorId:-1) background:(Color colorId:0).
 	self function:#copy.
 "
-	ws := shadowLength x.
-	hs := shadowLength y.
 	self copyFrom:imageUnderShadow x:(width - ws) y:0 
 				     toX:(width - ws) y:0 
 				   width:ws height:height.
@@ -104,7 +104,7 @@
     super initialize.
     borderWidth := 0.
 
-    shadowClr := StyleSheet at:#shadowColor.
+    shadowClr := StyleSheet at:#popUpShadowColor.
 
     "the length of the shadow from myView"
     shadowLength := (device pixelPerMillimeter * 1.0) rounded
@@ -204,5 +204,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.13 1995-11-27 22:30:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.14 1995-12-04 00:08:08 cg Exp $'
 ! !