--- a/PopUpView.st	Fri Dec 04 14:28:03 1998 +0100
+++ b/PopUpView.st	Fri Dec 04 15:11:51 1998 +0100
@@ -182,6 +182,14 @@
 		 - (self extent // 2))
 ! !
 
+!PopUpView methodsFor:'defaults'!
+
+defaultShadow
+    ^ DefaultShadow
+
+    "Created: / 4.12.1998 / 15:11:20 / cg"
+! !
+
 !PopUpView methodsFor:'dispatching'!
 
 modalLoop
@@ -240,11 +248,11 @@
         self level:DefaultLevel.
     ].
 
-    DefaultShadow ifTrue:[
+    self defaultShadow ifTrue:[
         shadowView := (ShadowView onDevice:device) for:self.
     ].
 
-    "Modified: 22.1.1997 / 11:57:38 / cg"
+    "Modified: / 4.12.1998 / 15:11:28 / cg"
 !
 
 initialize
@@ -363,5 +371,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.37 1998-10-02 10:55:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.38 1998-12-04 14:11:51 cg Exp $'
 ! !