The Trunk: Multilingual-mtf.132.mcz

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

The Trunk: Multilingual-mtf.132.mcz

commits-2
Matthew Fulmer uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-mtf.132.mcz

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

Name: Multilingual-mtf.132
Author: mtf
Time: 31 December 2010, 12:59:03.371 am
UUID: 38e9d3a8-003d-7743-bf8b-8caae4a537ea
Ancestors: Multilingual-ul.131

added an override from tweak for putting tweak widgets in text

=============== Diff against Multilingual-ul.131 ===============

Item was changed:
  ----- Method: MultiDisplayScanner>>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.
  baselineY := lineY + anchoredMorph height..
  runX := destX.
  anchoredMorph
  displayOn: bitBlt destForm
  at: destX - anchoredMorph width @ destY
  clippingBox: bitBlt clipRect
  rule: Form blend
  fillColor: Color white
  ].
  ^ true!