[Pkg] The Trunk: Multilingual-mtf.132.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 31 06:00:48 UTC 2010


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 at morphicOffset y) + (0 at 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!



More information about the Packages mailing list