The Trunk: Graphics-dtl.109.mcz

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: []]!