[squeak-dev] The Trunk: Tools-mt.1072.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 23 13:07:27 UTC 2021


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1072.mcz

==================== Summary ====================

Name: Tools-mt.1072
Author: mt
Time: 23 November 2021, 2:07:24.430922 pm
UUID: a0289326-43fe-3148-b3e6-ec35b8155669
Ancestors: Tools-ct.1071

In code browsers, adds "browse trait users" to class-list menu when a trait is selected in the class list.

Note that the "*tools-traits" extension was already there. I considered adding a TraitsTools package but this here is easier for now.

Thanks to Christoph (ct) for the idea! See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-October/216830.html

=============== Diff against Tools-ct.1071 ===============

Item was added:
+ ----- Method: Browser>>traitsMenu: (in category '*Tools-traits') -----
+ traitsMenu: aMenu
+ 	<classListMenuShifted: false>
+ 	<menuPriority: 140>
+ 
+ 	self selectedClass isTrait ifTrue: [
+ 		aMenu add: 'browse trait users' action: #browseTraitUsers].
+ 	^ aMenu!

Item was added:
+ ----- Method: StringHolder>>browseTraitUsers (in category '*Tools-traits') -----
+ browseTraitUsers
+ 
+ 	self selectedClass ifNotNil: [:classOrTrait |
+ 		classOrTrait isTrait ifTrue: [self systemNavigation browseAllUsersOfTrait: classOrTrait]]
+ !

Item was added:
+ ----- Method: SystemNavigation>>allUsersOfTrait: (in category '*tools-traits') -----
+ allUsersOfTrait: aTrait
+ 
+ 	^ aTrait users collect: [:class | MethodReference class: class selector: #Definition]!

Item was added:
+ ----- Method: SystemNavigation>>browseAllUsersOfTrait: (in category '*tools-traits') -----
+ browseAllUsersOfTrait: aTrait
+  
+ 	^ self
+ 		browseMessageList: [self allUsersOfTrait: aTrait]
+ 		name: 'Users of ', aTrait name!



More information about the Squeak-dev mailing list