Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.372.mcz
==================== Summary ====================
Name: Tools-fbs.372
Author: fbs
Time: 3 August 2011, 8:26:08.804 am
UUID: cda1854b-3aff-43e6-b3a3-bd88c3b9e5de
Ancestors: Tools-bf.371
When you rename a system category, you should have the newly-named system category selected after the rename.
=============== Diff against Tools-bf.371 ===============
Item was changed:
----- Method: Browser>>renameSystemCategory (in category 'system category functions') -----
renameSystemCategory
"Prompt for a new category name and add it before the
current selection, or at the end if no current selection"
| oldSelection newName |
oldSelection := self selectedSystemCategory.
oldSelection isNil
ifTrue: [^ self]. "no selection"
self okToChange ifFalse: [^ self].
newName := self
request: 'Please type new category name'
initialAnswer: oldSelection.
newName isEmpty
ifTrue: [^ self]
ifFalse: [newName := newName asSymbol].
oldSelection = newName ifTrue: [^ self].
systemOrganizer
renameCategory: oldSelection
toBe: newName.
+ self selectSystemCategory: newName.
- self selectSystemCategory: oldSelection.
self changed: #systemCategoryList.!
