--- a/ShadowV.st	Mon May 12 19:33:26 1997 +0200
+++ b/ShadowV.st	Mon May 12 21:38:30 1997 +0200
@@ -142,6 +142,7 @@
              (copy from root-view into the 'imageUnderShadow'-form)
             "
             imageUnderShadow := Form width:width height:height depth:device depth on:device.
+            imageUnderShadow clippedByChildren:false.
 
             shW := shadowLength x.
             shH := shadowLength y.
@@ -156,7 +157,7 @@
             kludge := device depth == 1.
             blackIs0 := (device blackpixel == 0).
             (kludge and:[blackIs0]) ifTrue:[
-                imageUnderShadow foreground:clr0  background:clr1.
+                imageUnderShadow foreground:clr0 background:clr1.
             ].
 
             org := self origin.
@@ -196,7 +197,7 @@
         self raise
     ]
 
-    "Modified: 29.1.1997 / 13:10:32 / cg"
+    "Modified: 12.5.1997 / 21:38:04 / cg"
 !
 
 recreate
@@ -225,5 +226,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.24 1997-05-07 18:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.25 1997-05-12 19:38:30 cg Exp $'
 ! !

--- a/ShadowView.st	Mon May 12 19:33:26 1997 +0200
+++ b/ShadowView.st	Mon May 12 21:38:30 1997 +0200
@@ -142,6 +142,7 @@
              (copy from root-view into the 'imageUnderShadow'-form)
             "
             imageUnderShadow := Form width:width height:height depth:device depth on:device.
+            imageUnderShadow clippedByChildren:false.
 
             shW := shadowLength x.
             shH := shadowLength y.
@@ -156,7 +157,7 @@
             kludge := device depth == 1.
             blackIs0 := (device blackpixel == 0).
             (kludge and:[blackIs0]) ifTrue:[
-                imageUnderShadow foreground:clr0  background:clr1.
+                imageUnderShadow foreground:clr0 background:clr1.
             ].
 
             org := self origin.
@@ -196,7 +197,7 @@
         self raise
     ]
 
-    "Modified: 29.1.1997 / 13:10:32 / cg"
+    "Modified: 12.5.1997 / 21:38:04 / cg"
 !
 
 recreate
@@ -225,5 +226,5 @@
 !ShadowView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.24 1997-05-07 18:49:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.25 1997-05-12 19:38:30 cg Exp $'
 ! !