The Trunk: Morphic-laza.392.mcz

Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.392.mcz

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

Name: Morphic-laza.392
Author: laza
Time: 26 March 2010, 9:56:23.74 am
UUID: 44084591-8dba-45b3-97cd-e2230855d1f1
Ancestors: Morphic-mha.391

Make the progress bar color like the list selection color

=============== Diff against Morphic-mha.391 ===============

Item was changed:
  ----- Method: SystemProgressBarMorph>>initialize (in category 'initialization') -----
  initialize
  super initialize.
 
  self
+ borderWidth: 0;
- borderWidth: 1;
- borderColor: Preferences menuBorderColor;
  color: Preferences menuColor muchLighter.
 
  barSize := 0.
  !

Item was changed:
  RectangleMorph subclass: #SystemProgressBarMorph
  instanceVariableNames: 'barSize'
+ classVariableNames: ''
- classVariableNames: 'BarHeight BarWidth FillColor'
  poolDictionaries: ''
  category: 'Morphic-Widgets'!
 
  !SystemProgressBarMorph commentStamp: 'laza 4/9/2004 11:47' prior: 0!
  Instances of this morph get used by SystemProgressMoprh to quickly display a progress bar.!

Item was changed:
  ----- Method: SystemProgressBarMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
  | area |
  super drawOn: aCanvas.
 
  barSize > 0 ifTrue: [
  area := self innerBounds.
  area := area origin extent: barSize-2@area extent y.
+ aCanvas fillRectangle: area color: LazyListMorph listSelectionColor
- aCanvas fillRectangle: area color: (Preferences menuTitleColor alpha: 1) darker.
  ].
  !