'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 27 January 2009 at 12:34:17 pm'!
!classDefinition: #TraslucentImageLW category: #'LightWidgets-Kernel'!
ImageLW subclass: #TraslucentImageLW
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'LightWidgets-Kernel'!

!TraslucentImageLW methodsFor: 'as yet unclassified' stamp: 'jmv 1/16/2009 11:08'!
drawOn: aCanvas 
	| f |
	f _ self formToDraw.
	f notNil ifTrue: [
		aCanvas image: f at: bounds topLeft sourceRect: f boundingBox rule: 31 alpha: 0.7
		]! !

!TraslucentImageLW methodsFor: 'geometry testing' stamp: 'jmv 1/27/2009 12:07'!
containsPoint: aPoint
	"Just in case backColor happens to be transparent"
	^bounds containsPoint: aPoint! !

