'From Squeak3.10.2 of ''5 June 2008'' [latest update: #7179] on 31 January 2009 at 3:14:43 pm'! !Morph methodsFor: 'drawing' stamp: 'wiz 1/31/2009 15:12'! shadowForm "Return a form representing the 'shadow' of the receiver - e.g., all pixels that are occupied by the receiver are one, all others are zero." | canvas fBounds | fBounds := self fullBounds . canvas := (Display defaultCanvasClass extent: fBounds extent depth: 1) asShadowDrawingCanvas: Color black. "Color black represents one for 1bpp" canvas translateBy: fBounds topLeft negated during:[:tempCanvas| tempCanvas fullDrawMorph: self]. ^ canvas form offset: fBounds topLeft ! !