The Trunk: Morphic-ct.1532.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-ct.1532.mcz

commits-2
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1532.mcz

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

Name: Morphic-ct.1532
Author: ct
Time: 20 September 2019, 8:50:11.086726 pm
UUID: f16e48a8-1b9c-dc40-9320-d8e4d7fcbdc4
Ancestors: Morphic-mt.1526

Fix a bug in MorphicProject>>#setAsBackground:

Why should you be restricted to only change the background of the current world?

=============== Diff against Morphic-mt.1526 ===============

Item was changed:
  ----- Method: MorphicProject>>setAsBackground: (in category 'utilities') -----
  setAsBackground: aFormOrColorOrFillStyle
  "Set  aForm as a background image."
 
  | thisWorld newFill oldFill |
+ thisWorld := self world.
- thisWorld := self currentWorld.
 
  oldFill := thisWorld fillStyle.
  thisWorld fillStyle: aFormOrColorOrFillStyle.
  newFill := thisWorld fillStyle.
 
  newFill rememberCommand:
  (Command new cmdWording: 'set background to a picture' translated;
  undoTarget: thisWorld selector: #fillStyle: argument: oldFill;
  redoTarget: thisWorld selector: #fillStyle: argument: newFill).
 
+ thisWorld setProperty: #hasCustomBackground toValue: true.!
- thisWorld setProperty: #hasCustomBackground toValue: true.
- !