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]!
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]!
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]!
Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.415.mcz
==================== Summary ====================
Name: Tools-fbs.415
Author: fbs
Time: 19 July 2012, 2:39:10.14 pm
UUID: 5cc4c76f-cd59-410c-b5de-8dd427098e6d
Ancestors: Tools-cmm.414
Mantis bug 7697: deleting a message from a MessageSet doesn't automatically select another message, breaking the flow when, say, deleting a large number of messages.
=============== Diff against Tools-cmm.414 ===============
Item was changed:
----- Method: MessageSet>>deleteFromMessageList: (in category 'message functions') -----
deleteFromMessageList: aMessage
"Delete the given message from the receiver's message list"
+ | currIdx |
+ currIdx := self messageListIndex.
+ messageList := messageList copyWithout: aMessage.
+ messageList ifNotEmpty: [self messageListIndex: {currIdx. messageList size.} min]!
-
- messageList := messageList copyWithout: aMessage!
Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.415.mcz
==================== Summary ====================
Name: Tools-fbs.415
Author: fbs
Time: 19 July 2012, 2:39:10.14 pm
UUID: 5cc4c76f-cd59-410c-b5de-8dd427098e6d
Ancestors: Tools-cmm.414
Mantis bug 7697: deleting a message from a MessageSet doesn't automatically select another message, breaking the flow when, say, deleting a large number of messages.
=============== Diff against Tools-cmm.414 ===============
Item was changed:
----- Method: MessageSet>>deleteFromMessageList: (in category 'message functions') -----
deleteFromMessageList: aMessage
"Delete the given message from the receiver's message list"
+ | currIdx |
+ currIdx := self messageListIndex.
+ messageList := messageList copyWithout: aMessage.
+ messageList ifNotEmpty: [self messageListIndex: {currIdx. messageList size.} min]!
-
- messageList := messageList copyWithout: aMessage!
Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.415.mcz
==================== Summary ====================
Name: Tools-fbs.415
Author: fbs
Time: 19 July 2012, 2:39:10.14 pm
UUID: 5cc4c76f-cd59-410c-b5de-8dd427098e6d
Ancestors: Tools-cmm.414
Mantis bug 7697: deleting a message from a MessageSet doesn't automatically select another message, breaking the flow when, say, deleting a large number of messages.
=============== Diff against Tools-cmm.414 ===============
Item was changed:
----- Method: MessageSet>>deleteFromMessageList: (in category 'message functions') -----
deleteFromMessageList: aMessage
"Delete the given message from the receiver's message list"
+ | currIdx |
+ currIdx := self messageListIndex.
+ messageList := messageList copyWithout: aMessage.
+ messageList ifNotEmpty: [self messageListIndex: {currIdx. messageList size.} min]!
-
- messageList := messageList copyWithout: aMessage!