--- a/ShadowV.st Wed May 07 18:47:24 1997 +0200
+++ b/ShadowV.st Wed May 07 20:27:20 1997 +0200
@@ -142,7 +142,7 @@
(copy from root-view into the 'imageUnderShadow'-form)
"
imageUnderShadow := Form width:width height:height depth:device depth on:device.
- imageUnderShadow clippedByChildren:false.
+ "/ imageUnderShadow clippedByChildren:false.
shW := shadowLength x.
shH := shadowLength y.
@@ -226,5 +226,5 @@
!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.22 1997-01-29 12:18:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.23 1997-05-07 18:27:20 cg Exp $'
! !
--- a/ShadowView.st Wed May 07 18:47:24 1997 +0200
+++ b/ShadowView.st Wed May 07 20:27:20 1997 +0200
@@ -142,7 +142,7 @@
(copy from root-view into the 'imageUnderShadow'-form)
"
imageUnderShadow := Form width:width height:height depth:device depth on:device.
- imageUnderShadow clippedByChildren:false.
+ "/ imageUnderShadow clippedByChildren:false.
shW := shadowLength x.
shH := shadowLength y.
@@ -226,5 +226,5 @@
!ShadowView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.22 1997-01-29 12:18:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.23 1997-05-07 18:27:20 cg Exp $'
! !