'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 15 August 2008 at 5:59:39 pm'!

!ImageLW methodsFor: 'drawing' stamp: 'jmv 8/15/2008 17:35'!
drawOn: aCanvas 
	stretched notNil ifTrue: [
		aCanvas drawImage: stretched at: bounds topLeft ]! !

!ImageLW methodsFor: 'drawing' stamp: 'jmv 8/15/2008 17:35'!
generateStretchedForm
	| scale smoothPix pair |
	form isNil ifTrue: [
		stretched _ nil.
		^self ].
	scale _ 1.0 * bounds extent / form extent.
	smoothPix _ (scale x < 1.0 or: [scale y < 1.0]) 
		ifTrue: [2]
		ifFalse: [1].
	stretched _ scale = (1 @ 1) 
				ifTrue: [form]
				ifFalse: [
					pair := WarpBlt current 
								rotate: form
								degrees: 0
								center: form boundingBox center
								scaleBy: scale
								smoothing: smoothPix.
					pair first]! !

!ImageLW methodsFor: 'updating' stamp: 'jmv 8/15/2008 17:34'!
updateView
	self form: (target ifNotNil: [target form])! !


!ImageLW reorganize!
('accessing' form:)
('initialization' initialize)
('drawing' drawOn: generateStretchedForm)
('layout' layoutChanged)
('geometry' bounds:)
('updating' updateView)
!

