Frank Shearar uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-fbs.417.mcz
==================== Summary ====================
Name: Tools-fbs.417 Author: fbs Time: 25 July 2012, 12:23:22.059 pm UUID: 047b09ab-4352-4fe8-a6d0-961517a92226 Ancestors: Tools-fbs.415
Fix for Mantis issue 7699: deleting a system category causes a jarring leap to the top of the category list.
=============== Diff against Tools-fbs.415 ===============
Item was changed: ----- Method: Browser>>removeSystemCategory (in category 'system category functions') ----- removeSystemCategory "If a class category is selected, create a Confirmer so the user can verify that the currently selected class category and all of its classes should be removed from the system. If so, remove it."
self hasSystemCategorySelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. (self classList size = 0 or: [self confirm: 'Are you sure you want to remove this system category and all its classes?']) ifTrue: + [| nextSelectedCat | + nextSelectedCat := self systemCategoryList before: self selectedSystemCategory ifAbsent: [nil]. + systemOrganizer removeSystemCategory: self selectedSystemCategory. + self selectSystemCategory: nextSelectedCat. - [systemOrganizer removeSystemCategory: self selectedSystemCategory. - self selectSystemCategory: nil. self changed: #systemCategoryList]!
packages@lists.squeakfoundation.org