equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libview' }" |
12 |
14 |
13 SimpleView subclass:#ShadowView |
15 SimpleView subclass:#ShadowView |
14 instanceVariableNames:'myView shadowLength shadowClr imageUnderShadow' |
16 instanceVariableNames:'myView shadowLength shadowClr imageUnderShadow' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
236 |
238 |
237 "Modified: 12.5.1997 / 21:38:04 / cg" |
239 "Modified: 12.5.1997 / 21:38:04 / cg" |
238 ! |
240 ! |
239 |
241 |
240 recreate |
242 recreate |
|
243 "sent after a snapin, reinit for new device" |
|
244 |
241 shadowClr notNil ifTrue:[ |
245 shadowClr notNil ifTrue:[ |
242 shadowClr := shadowClr onDevice:device |
246 shadowClr := shadowClr onDevice:device |
243 ]. |
247 ]. |
244 |
248 |
245 "the length of the shadow from myView" |
249 "the length of the shadow from myView" |
262 ! ! |
266 ! ! |
263 |
267 |
264 !ShadowView class methodsFor:'documentation'! |
268 !ShadowView class methodsFor:'documentation'! |
265 |
269 |
266 version |
270 version |
267 ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.30 1999-09-20 06:58:54 cg Exp $' |
271 ^ '$Header: /cvs/stx/stx/libview/ShadowView.st,v 1.31 2000-09-05 12:03:54 cg Exp $' |
268 ! ! |
272 ! ! |