--- a/PopUpView.st	Fri May 12 20:10:19 1995 +0200
+++ b/PopUpView.st	Tue May 16 19:17:11 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.12 1995-05-10 02:25:39 claus Exp $
+$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.13 1995-05-16 17:13:40 claus Exp $
 '!
 
 !PopUpView class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.12 1995-05-10 02:25:39 claus Exp $
+$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.13 1995-05-16 17:13:40 claus Exp $
 "
 !
 
@@ -77,6 +77,21 @@
     DefaultLevel := StyleSheet at:'popupLevel'.
     DefaultBorderWidth := StyleSheet at:'popupBorderWidth'.
     DefaultBorderColor := StyleSheet colorAt:'popupBorderColor'.
+!
+
+shadows:aBoolean
+    "turn on/off shadows under popUpViews. 
+     On slow displays, turning them off makes menus appear a bit snappier.
+     The default is set via the styleSheet and changes when the viewStyle
+     is changed."
+
+    DefaultShadow := aBoolean
+!
+
+shadows
+    "return the shadows-flag. False means: turned off."
+
+    ^ DefaultShadow
 ! !
 
 !PopUpView methodsFor:'initialize / release'!