[etoys-dev] Etoys: Sugar-bf.6.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Sugar to project Etoys:
http://source.squeak.org/etoys/Sugar-bf.6.mcz

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

Name: Sugar-bf.6
Author: bf
Time: 20 August 2010, 12:44:36 pm
UUID: cd17e330-eaa1-4d43-9744-e6de8f20a7a7
Ancestors: Sugar-bf.5

- while initializing, do not add nav bar buttons yet


=============== Diff against Sugar-bf.5 ===============

Item was changed:
  ----- Method: SugarNavigatorBar>>color:highLightColor: (in category 'accessing') -----
  color: baseColor highLightColor: hColor
  
  	| oldHeight |
  	oldHeight _ self buttonHeight.
  	(color = baseColor and: [highLightColor = hColor]) ifTrue: [^ self].
  	super color: baseColor.
  	highLightColor _ hColor.
+ 	submorphs ifNotEmpty: [self rebuildButtons].
- 	self rebuildButtons.
  	self buttonHeight ~= oldHeight ifTrue: [
  		self naviHeight: oldHeight.
  	].
  !

Item was changed:
  ----- Method: SugarNavigatorBar>>rebuildButtons (in category 'initialization') -----
  rebuildButtons
+ 	(owner isNil or: [owner hasProperty: #collapsedMode])
- 	(owner hasProperty: #collapsedMode)
  		ifFalse: [
  			submorphs do: [:e | e delete].
  			self addButtons]!

Item was changed:
  ----- Method: SugarNavigatorBar>>highLightColor: (in category 'accessing') -----
  highLightColor: aColor
  
  	| oldHeight |
  	highLightColor = aColor ifTrue: [^ self].
  	highLightColor _ aColor.
  	oldHeight _ self buttonHeight.
+ 	submorphs ifNotEmpty: [self rebuildButtons].
- 	self rebuildButtons.
  	self buttonHeight ~= oldHeight ifTrue: [
  		self naviHeight: oldHeight.
  	].
  !

Item was changed:
  ----- Method: SugarNavigatorBar>>color: (in category 'accessing') -----
  color: aColor
  
  	| oldHeight |
  	color = aColor ifTrue: [^ self].
  	oldHeight _ self buttonHeight.
  	super color: aColor.
+ 	submorphs ifNotEmpty: [self rebuildButtons].
- 	self rebuildButtons.
  	self buttonHeight ~= oldHeight ifTrue: [
  		self naviHeight: oldHeight.
  	].
  !