[Pkg] The Trunk: Morphic-laza.392.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Mar 26 08:57:44 UTC 2010


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 at area extent y.
+ 		aCanvas fillRectangle: area color: LazyListMorph listSelectionColor
- 		aCanvas fillRectangle: area color: (Preferences menuTitleColor alpha: 1) darker.
  	].
  !



More information about the Packages mailing list