Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1224.mcz
==================== Summary ====================
Name: Tools-mt.1224 Author: mt Time: 9 August 2023, 1:31:00.763576 pm UUID: 9d479465-5f01-254a-aac3-c50067595733 Ancestors: Tools-mt.1223
In TreeBrowser, fix issue where saving a method with some special category selected would set that special category.
=============== Diff against Tools-mt.1223 ===============
Item was changed: ----- Method: Browser>>compileMessage:notifying: (in category 'code pane') ----- compileMessage: aText notifying: aController "Compile the code that was accepted by the user, placing the compiled method into an appropriate message category. Return true if the compilation succeeded, else false." | fallBackCategoryName originalSelectorName result fallBackMethodName | + self hasSpecialMessageCategorySelected - self selectedMessageCategoryName = ClassOrganizer allCategory ifTrue: [ "User tried to save a method while the ALL category was selected" fallBackCategoryName := selectedMessageCategoryName. fallBackMethodName := selectedMessageName. editSelection == #newMessage ifTrue: [ "Select the 'as yet unclassified' category" selectedMessageCategoryName := nil. (result := self defineMessageFrom: aText notifying: aController) ifNil: ["Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName] ifNotNil: [self setSelector: result]] ifFalse: [originalSelectorName := self selectedMessageName. self setOriginalCategoryIndexForCurrentMethod. selectedMessageName := fallBackMethodName := originalSelectorName. (result := self defineMessageFrom: aText notifying: aController) ifNotNil: [self setSelector: result] ifNil: [ "Compilation failure: reselect the original category & method" selectedMessageCategoryName := fallBackCategoryName. selectedMessageName := fallBackMethodName. ^ result notNil]]. self changed: #messageCategoryList. self changed: #messageList. ^ result notNil] ifFalse: [ "User tried to save a method while the ALL category was NOT selected" ^ (self defineMessageFrom: aText notifying: aController) notNil]!
Item was added: + ----- Method: Browser>>hasSpecialMessageCategorySelected (in category 'message category list') ----- + hasSpecialMessageCategorySelected + ^ self selectedMessageCategoryName = ClassOrganizer allCategory!
Item was added: + ----- Method: TreeBrowser>>hasSpecialMessageCategorySelected (in category 'message category list') ----- + hasSpecialMessageCategorySelected + + ^ (selectedMessageCategoryName = ClassOrganizer allCategory + or: [selectedMessageCategoryName = self class extensionCategory]) + or: [selectedMessageCategoryName = self class coreCategory]!