The Trunk: Graphics-mtf.172.mcz

Matthew Fulmer uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-mtf.172.mcz

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

Name: Graphics-mtf.172
Author: mtf
Time: 31 December 2010, 12:44:35.01 am
UUID: e4b5eb65-5a67-2e46-86e3-78d51d812047
Ancestors: Graphics-nice.171

added an override from tweak for putting tweak widgets in text

=============== Diff against Graphics-nice.171 ===============

Item was changed:
  ----- Method: DisplayScanner>>placeEmbeddedObject: (in category 'scanning') -----
  placeEmbeddedObject: anchoredMorph
  anchoredMorph relativeTextAnchorPosition ifNotNil:[
  anchoredMorph position:
  anchoredMorph relativeTextAnchorPosition +
  (anchoredMorph owner textBounds origin x @ 0)
  - (0@morphicOffset y) + (0@lineY).
  ^true
  ].
  (super placeEmbeddedObject: anchoredMorph) ifFalse: [^ false].
+ (anchoredMorph isMorph or: [anchoredMorph isPrimitiveCostume]) ifTrue: [
- anchoredMorph isMorph ifTrue: [
  anchoredMorph position: ((destX - anchoredMorph width)@lineY) - morphicOffset
  ] ifFalse: [
  destY := lineY.
  runX := destX.
  anchoredMorph
  displayOn: bitBlt destForm
  at: destX - anchoredMorph width @ destY
  clippingBox: bitBlt clipRect
  ].
  ^ true!