Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.476.mcz==================== Summary ====================
Name: Tools-fbs.476
Author: fbs
Time: 28 June 2013, 8:56:08.948 pm
UUID: e33fa621-870c-af40-9e54-5b343a5e8367
Ancestors: Tools-fbs.475
When you rename a message category, select the _new_ name so that you stay where you were.
=============== Diff against Tools-fbs.475 ===============
Item was changed:
----- Method: Browser>>renameCategory (in category 'message category functions') -----
renameCategory
"Prompt for a new category name and add it before the
current selection, or at the end if no current selection"
| oldName newName |
self hasClassSelected ifFalse: [^ self].
self okToChange ifFalse: [^ self].
self hasMessageCategorySelected ifFalse: [^ self].
oldName := self selectedMessageCategoryName.
newName := self
request: 'Please type new category name'
initialAnswer: oldName.
newName isEmpty
ifTrue: [^ self]
ifFalse: [newName := newName asSymbol].
newName = oldName ifTrue: [^ self].
self classOrMetaClassOrganizer
renameCategory: oldName
toBe: newName.
self selectClassNamed: selectedClassName.
+ self selectMessageCategoryNamed: newName.
- self selectMessageCategoryNamed: oldName.
self changed: #messageCategoryList.
!