--- a/ShadowV.st	Sun Dec 03 21:57:45 1995 +0100
+++ b/ShadowV.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/Attic/ShadowV.st,v 1.13 1995-11-27 22:30:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.14 1995-12-04 00:08:08 cg Exp $'
 ! !

--- 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 $'
 ! !

--- a/styles/normal2.style	Sun Dec 03 21:57:45 1995 +0100
+++ b/styles/normal2.style	Mon Dec 04 01:08:24 1995 +0100
@@ -2,11 +2,11 @@
 ;
 ; like good-old normal style - with some added colors
 ;
-; $Header: /cvs/stx/stx/libview/styles/normal2.style,v 1.2 1995-05-16 17:16:43 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/normal2.style,v 1.3 1995-12-04 00:08:23 cg Exp $
 
 #include 'normal.style'
 
-comment  'plain good old 2D style\\with changed selection colors'
+comment  'plain good old 2D style\\with changed selection & menu-border colors'
 
 selectionHilightBackgroundColor     Color blue
 selectionHilightFrameColor          Color black

--- a/styles/st80.style	Sun Dec 03 21:57:45 1995 +0100
+++ b/styles/st80.style	Mon Dec 04 01:08:24 1995 +0100
@@ -2,7 +2,7 @@
 ;
 ; simulation of the old st80 style - looks somewhat like os2
 ;
-; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.4 1995-06-27 02:21:42 claus Exp $
+; $Header: /cvs/stx/stx/libview/styles/st80.style,v 1.5 1995-12-04 00:08:24 cg Exp $
 
 comment  'old ST80 3D look alike'
 
@@ -46,9 +46,15 @@
 
 textCursorType                   #solidCaret
 textCursorBackgroundColor        Color black
-#if Display hasGreyscales
-textSelectionBackgroundColor     Color grey
+
+#if Display hasColors
+textSelectionBackgroundColor     Color green
 textSelectionForegroundColor     Color black
+#else
+# if Display hasGreyscales
+textSelectionBackgroundColor     =viewGrey "Color grey"
+textSelectionForegroundColor     Color black
+# endif
 #endif
 
 popupBorderWidth                 1