[squeak-dev] The Trunk: Morphic-jmv.170.mcz

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@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.
-
-
-
  !