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

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

Name: Tools-mt.978
Author: mt
Time: 13 June 2020, 12:12:13.228814 pm
UUID: 2b303276-0f03-1643-80da-7a436f6d2f89
Ancestors: Tools-mt.977

In the deps browser, reveal whether there is any class-definition or extension dependency at all as early as possible.

Feel free to adjust the labels. For now, they are:

2nd / 3rd pane
	... ()
	... *
	... () *
	... *exts only
	... (defs only)
4th pane:
	... (class definition)
	*extensions

=============== Diff against Tools-mt.977 ===============

Item was changed:
  ----- Method: DependencyBrowser>>classDepsList (in category 'class deps') -----
  classDepsList
  	"Class dependencies for the currently selected package"
  
+ 	| checkDef checkExt |
+ 	checkDef := [:mref | mref selector = #Definition].
+ 	checkExt := [:mref | mref category notNil and: [mref category first = $*]].
+ 	
  	^ classDepsList ifNil: [	
  		classDepsList := self classDeps.
  		classDepsList := classDepsList collect: [:className |
+ 			String streamContents: [:label |
+ 				label nextPutAll: className.
+ 				(self depsForClassNamed: className allSatisfy: checkDef)
+ 					ifTrue: [label nextPutAll: ' (defs only)']
+ 					ifFalse: [(self depsForClassNamed: className allSatisfy: checkExt)
+ 						ifTrue: [label nextPutAll: ' *exts only']
+ 						ifFalse: [
+ 							(self depsForClassNamed: className anySatisfy: checkDef)
+ 								ifTrue: [label nextPutAll: ' ()'].
+ 							(self depsForClassNamed: className anySatisfy: checkExt)
+ 								ifTrue: [label nextPutAll: ' *']]]]]]!
- 			(self
- 				depsForClassNamed: className
- 				allSatisfy: [:mref | mref selector = #Definition])
- 					ifTrue: [className, ' (defs only)']
- 					ifFalse: [(self
- 						depsForClassNamed: className
- 						allSatisfy: [:mref | mref category notNil and: [mref category first = $*]])
- 							ifTrue: [className, ' *ext only*']
- 							ifFalse: [className]]].
- 		classDepsList]!

Item was added:
+ ----- Method: DependencyBrowser>>depsForClassNamed:anySatisfy: (in category 'enumerating') -----
+ depsForClassNamed: className anySatisfy: workBlock
+ 
+ 	self
+ 		depsForClassNamed: className
+ 		do: [:mref | (workBlock value: mref) ifTrue: [^ true]].
+ 	^ false!

Item was added:
+ ----- Method: DependencyBrowser>>depsForPackageNamed:anySatisfy: (in category 'enumerating') -----
+ depsForPackageNamed: packageName anySatisfy: workBlock
+ 
+ 	self
+ 		depsForPackageNamed: packageName
+ 		do: [:mref | (workBlock value: mref) ifTrue: [^ true]].
+ 	^ false!

Item was changed:
  ----- Method: DependencyBrowser>>packageDepsList (in category 'package deps') -----
  packageDepsList
  	"Package dependencies for the currently selected package"
  	
+ 	| checkDef checkExt |
+ 	checkDef := [:mref | mref selector = #Definition].
+ 	checkExt := [:mref | mref category notNil and: [mref category first = $*]].
+ 	
  	^ packageDepsList ifNil: [
  		packageDepsList := self packageDeps.
  		packageDepsList := packageDepsList collect: [:packageName |
+ 			String streamContents: [:label |
+ 				label nextPutAll: packageName.
+ 				(self depsForPackageNamed: packageName allSatisfy: checkDef)
+ 					ifTrue: [label nextPutAll: ' (defs only)']
+ 					ifFalse: [(self depsForPackageNamed: packageName allSatisfy: checkExt)
+ 						ifTrue: [label nextPutAll: ' *exts only']
+ 						ifFalse: [
+ 							(self depsForPackageNamed: packageName anySatisfy: checkDef)
+ 								ifTrue: [label nextPutAll: ' ()'].
+ 							(self depsForPackageNamed: packageName anySatisfy: checkExt)
+ 								ifTrue: [label nextPutAll: ' *']]]]]]!
- 			(self
- 				depsForPackageNamed: packageName
- 				allSatisfy: [:mref | mref selector = #Definition])
- 					ifTrue: [packageName, ' (defs only)']
- 					ifFalse: [(self
- 						depsForPackageNamed: packageName
- 						allSatisfy: [:mref | mref category notNil and: [mref category first = $*]])
- 							ifTrue: [packageName, ' *ext only*']
- 							ifFalse: [packageName]]].
- 		packageDepsList]!