David T. Lewis uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-dtl.384.mcz

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

Name: Graphics-dtl.384
Author: dtl
Time: 14 November 2017, 10:45:54.935133 pm
UUID: 09eeccf5-ae5f-45f7-91ae-72430a337370
Ancestors: Graphics-raa.383

Remove unnecessary references to global World.

=============== Diff against Graphics-raa.383 ===============

Item was changed:
  ----- Method: Form>>displayResourceFormOn: (in category 'displaying') -----
  displayResourceFormOn: aForm
  	"a special display method for blowing up resource thumbnails"
  	| engine tx cmap blitter |
  	self extent = aForm extent ifTrue:[^self displayOn: aForm].
  	engine := Smalltalk at: #B3DRenderEngine ifPresent:
  		[:engineClass | engineClass defaultForPlatformOn: aForm].
  	engine ifNil:[
  		"We've got no bilinear interpolation. Use WarpBlt instead"
  		(WarpBlt toForm: aForm)
  			sourceForm: self destRect: aForm boundingBox;
  			combinationRule: 3;
  			cellSize: 2;
  			warpBits.
  		^self
  	].
  	tx := self asTexture.
  	(blitter := BitBlt toForm: tx)
  		sourceForm: self; destRect: aForm boundingBox;
  		sourceOrigin: 0 at 0;
  		combinationRule: Form paint.
  	"map transparency to current World background color"
+ 	(Project current world color respondsTo: #pixelWordForDepth:) ifTrue: [
- 	(World color respondsTo: #pixelWordForDepth:) ifTrue: [
  		cmap := Bitmap new: (self depth <= 8 ifTrue: [1 << self depth] ifFalse: [4096]).
+ 		cmap at: 1 put: (tx pixelWordFor: Project current world color).
- 		cmap at: 1 put: (tx pixelWordFor: World color).
  		blitter colorMap: cmap.
  	].
  	blitter copyBits.
  	engine viewport: aForm boundingBox.
  	engine material: ((Smalltalk at: #B3DMaterial) new emission: Color white).
  	engine texture: tx.
  	engine render: ((Smalltalk at: #B3DIndexedQuadMesh) new plainTextureRect).
  	engine finish.
  	"the above, using bilinear interpolation doesn't leave transparent pixel values intact"
  	(WarpBlt toForm: aForm)
  		sourceForm: self destRect: aForm boundingBox;
  		combinationRule: Form and;
  		colorMap: (Color maskingMap: self depth);
  		warpBits.!

Item was changed:
  ----- Method: TextStyle class>>replaceFontsIn:with: (in category 'mime file in/out') -----
  replaceFontsIn: oldFontArray with: newStyle
  	"
  	TextStyle replaceFontsIn: (TextStyle looseFontsFromFamily: #Accuny) with: (TextStyle named: #Accuny)
  	"
  	"Try to find corresponding fonts in newStyle and substitute them for the fonts in oldFontArray"
  
  	newStyle fontArray do: [ :newFont | newFont releaseCachedState ].
  
  	oldFontArray do: [ :oldFont | | newFont |
  		oldFont reset.
  		newFont := (newStyle fontOfPointSize: oldFont pointSize) emphasis: oldFont emphasis.
  		oldFont becomeForward: newFont ].
  
  	Smalltalk at: #StringMorph ifPresent:[:cls| cls allSubInstancesDo: [ :s | s layoutChanged]].
  	Smalltalk at: #TextMorph ifPresent:[:cls| cls allSubInstancesDo: [ :s | s layoutChanged]].
  	Smalltalk at: #SystemWindow ifPresent:[:cls| 
  		cls allInstancesDo: [ :w | [ w update: #relabel ] on: Error do: [ :ex | ] ]].
+ 	Project current world ifNotNil: [ :w | w changed ].!
- 	World ifNotNil: [ :w | w changed ].!