equal
deleted
inserted
replaced
140 " |
140 " |
141 get the pixels under the shadow |
141 get the pixels under the shadow |
142 (copy from root-view into the 'imageUnderShadow'-form) |
142 (copy from root-view into the 'imageUnderShadow'-form) |
143 " |
143 " |
144 imageUnderShadow := Form width:width height:height depth:device depth on:device. |
144 imageUnderShadow := Form width:width height:height depth:device depth on:device. |
145 "/ imageUnderShadow clippedByChildren:false. |
|
146 |
145 |
147 shW := shadowLength x. |
146 shW := shadowLength x. |
148 shH := shadowLength y. |
147 shH := shadowLength y. |
149 right := width - shW. |
148 right := width - shW. |
150 bot := height - shH. |
149 bot := height - shH. |
224 ! ! |
223 ! ! |
225 |
224 |
226 !ShadowView class methodsFor:'documentation'! |
225 !ShadowView class methodsFor:'documentation'! |
227 |
226 |
228 version |
227 version |
229 ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.23 1997-05-07 18:27:20 cg Exp $' |
228 ^ '$Header: /cvs/stx/stx/libview/Attic/ShadowV.st,v 1.24 1997-05-07 18:49:34 cg Exp $' |
230 ! ! |
229 ! ! |