David T. Lewis uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-dtl.109.mcz

==================== Summary ====================

Name: Graphics-dtl.109
Author: dtl
Time: 27 February 2010, 11:45:51.273 am
UUID: f4ad1c84-f2f1-4326-8d32-651a4546e77d
Ancestors: Graphics-ar.108

Remove need for #isMorphic in Form>>setAsBackground

=============== Diff against Graphics-ar.108 ===============

Item was changed:
  ----- Method: Form>>setAsBackground (in category 'other') -----
  setAsBackground
  	"Set this form as a background image."
  
+ 	Project current setAsBackground: self
+ !
- 	| world newColor |
- 	Smalltalk isMorphic 
- 		ifTrue:
- 			[world := self currentWorld.
- 			newColor := InfiniteForm with: self.
- 			self rememberCommand:
- 				(Command new cmdWording: 'set background to a picture' translated;
- 					undoTarget: world selector: #color: argument: world color;
- 					redoTarget: world selector: #color: argument: newColor).
- 			world color: newColor]
- 		ifFalse:
- 			[ScheduledControllers screenController model form: self.
- 			Display restoreAfter: []]!