--- a/ShadowView.st Wed May 07 20:27:20 1997 +0200
+++ b/ShadowView.st Wed May 07 20:49:34 1997 +0200
@@ -142,7 +142,6 @@
(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.
@@ -226,5 +225,5 @@
!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.23 1997-05-07 18:27:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.24 1997-05-07 18:49:34 cg Exp $'
! !