Juan Vuletich uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-jmv.170.mcz

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

Name: Morphic-jmv.170
Author: jmv
Time: 7 September 2009, 12:40:02 pm
UUID: d337edca-bacc-48e7-8005-5f7496842d76
Ancestors: Morphic-bf.169

Fix a couple of issues with AntiAliased StrikeFonts in StringMorph and in ProjectViewMorph.

=============== Diff against Morphic-bf.169 ===============

Item was added:
+ ----- Method: StringMorph>>imageForm:forRectangle: (in category 'drawing') -----
+ imageForm: depth forRectangle: rect
+ 	| canvas |
+ 	canvas := Display defaultCanvasClass extent: rect extent depth: depth.
+ 	canvas form fillColor: Color white. 
+ 	canvas translateBy: rect topLeft negated
+ 		during:[:tempCanvas| tempCanvas fullDrawMorph: self].
+ 	^ canvas form offset: rect topLeft!

Item was added:
+ ----- Method: StringMorph>>hasTranslucentColor (in category 'accessing') -----
+ hasTranslucentColor
+ 
+ 	^true!

Item was changed:
  ----- Method: ProjectViewMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
  
  	| font projectName nameForm rectForName |
  
  	self ensureImageReady.
  	super drawOn: aCanvas.
  	self isEditingName ifTrue: [^self].
  
  	font := self fontForName.
  	projectName := self safeProjectName.
  	nameForm := (StringMorph contents: projectName font: font) imageForm.
  	nameForm := nameForm scaledToSize: (self extent - (4 at 2) min: nameForm extent).
  	rectForName := self bottomLeft + 
  			(self width - nameForm width // 2 @ (nameForm height + 2) negated)
  				extent: nameForm extent.
  	rectForName topLeft eightNeighbors do: [ :pt |
  		aCanvas
  			stencil: nameForm 
  			at: pt
  			color: self colorAroundName.
  	].
  	aCanvas
+ 		drawImage: nameForm 
+ 		at: rectForName topLeft
- 		stencil: nameForm 
- 		at: rectForName topLeft 
- 		color: Color black.
- 
- 
- 	
  !