[squeak-dev] The Trunk: Tools-fbs.417.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 25 11:24:40 UTC 2012

Frank Shearar uploaded a new version of Tools to project The Trunk:

==================== 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') -----
  	"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?'])
+ 		[| 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]!

More information about the Squeak-dev mailing list