Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.123.mcz

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

Name: Tools-ar.123
Author: ar
Time: 6 September 2009, 4:10:21 am
UUID: af39b656-7079-fd48-b5e4-44febd8eb8fc
Ancestors: Tools-eem.122

Fix ChangeSorter labeling.

=============== Diff against Tools-eem.122 ===============

Item was changed:
  ----- Method: DualChangeSorter>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
+ 	| windowSpec window |
- 	| windowSpec |
  	leftCngSorter := ChangeSorter new myChangeSet: ChangeSet current.
  	leftCngSorter parent: self.
  	rightCngSorter := ChangeSorter new myChangeSet: 
  			ChangeSorter secondaryChangeSet.
  	rightCngSorter parent: self.
  
  	windowSpec := builder pluggableWindowSpec new.
  	windowSpec model: self.
  	windowSpec label: 'Change Sorter'.
  	windowSpec children: OrderedCollection new.
+ 	windowSpec label: #labelString.
  	leftCngSorter buildWith: builder in: windowSpec rect: (0 at 0 extent: 0.5 at 1).
  	rightCngSorter buildWith: builder in: windowSpec rect: (0.5 at 0 extent: 0.5 at 1).
+ 	window := builder build: windowSpec.
+ 	leftCngSorter addDependent: window.		"so it will get changed: #relabel"
+ 	rightCngSorter addDependent: window.	"so it will get changed: #relabel"
+ 	^window!
- 	^builder build: windowSpec
- !

Item was changed:
  ----- Method: ChangeSorter>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  	"
  		ToolBuilder open: ChangeSorter.
  	"
  	|  windowSpec |
  	windowSpec := builder pluggableWindowSpec new.
  	windowSpec label: 'Change Sorter'.
  	windowSpec model: self.
  	windowSpec children: OrderedCollection new.
+ 	windowSpec label: #labelString.
  	self buildWith: builder in: windowSpec rect: (0 at 0 extent: 1 at 1).
  	^builder build: windowSpec!

Item was added:
+ ----- Method: ChangeSorter>>initialize (in category 'initialize') -----
+ initialize
+ 	super initialize.
+ 	myChangeSet := ChangeSet current.!