David T. Lewis uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-dtl.154.mcz==================== Summary ====================
Name: Tools-dtl.154
Author: dtl
Time: 28 December 2009, 11:36:21 am
UUID: d6aa53ab-51a8-4dfb-9f92-b478b8412b85
Ancestors: Tools-dtl.153
Change ChangesOrganizer class>>reorderChangesSets to use 'Project current wakeUpTopWindow' rather than an #isMorphic test.
=============== Diff against Tools-dtl.153 ===============
Item was changed:
----- Method: ChangesOrganizer class>>reorderChangeSets (in category 'services') -----
reorderChangeSets
"Change the order of the change sets to something more convenient:
First come the project changesets that come with the release. These are mostly empty.
Next come all numbered updates.
Next come all remaining changesets
In a ChangeSorter, they will appear in the reversed order."
"ChangeSorter reorderChangeSets"
| newHead newMid newTail |
newHead := OrderedCollection new.
newMid := OrderedCollection new.
newTail := OrderedCollection new.
ChangeSet allChangeSets do:
[:aChangeSet |
(self belongsInProjectsInRelease: aChangeSet)
ifTrue:
[newHead add: aChangeSet]
ifFalse:
[(self belongsInNumbered: aChangeSet)
ifTrue:
[newMid add: aChangeSet]
ifFalse:
[newTail add: aChangeSet]]].
ChangeSet allChangeSets: newHead, newMid, newTail.
+ Project current wakeUpTopWindow!
- Smalltalk isMorphic ifTrue: [SystemWindow wakeUpTopWindowUponStartup]!