--- a/ShadowView.st	Wed Jul 17 12:43:03 1996 +0200
+++ b/ShadowView.st	Wed Jul 17 14:18:28 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Views-Special'
 !
 
-!ShadowView class methodsFor:'documentation'!
+!ShadowView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -142,8 +142,9 @@
              (copy from root-view into the 'imageUnderShadow'-form)
             "
             imageUnderShadow := Form width:width height:height depth:device depth on:device.
-            imageUnderShadow initGC.
-            device setClipByChildren:false in:imageUnderShadow gcId.
+"/            imageUnderShadow initGC.
+"/            device setClipByChildren:false in:imageUnderShadow gcId.
+            imageUnderShadow clippedByChildren:false.
 
             shW := shadowLength x.
             shH := shadowLength y.
@@ -198,7 +199,7 @@
         self raise
     ]
 
-    "Modified: 28.5.1996 / 20:24:34 / cg"
+    "Modified: 17.7.1996 / 13:23:37 / cg"
 !
 
 recreate
@@ -224,8 +225,8 @@
     "Modified: 12.5.1996 / 22:01:17 / cg"
 ! !
 
-!ShadowView class methodsFor:'documentation'!
+!ShadowView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.20 1996-05-28 18:31:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.21 1996-07-17 12:18:28 cg Exp $'
 ! !