Am 18.02.2021 11:20:04 schrieb commits at source.squeak.org <commits at source.squeak.org>:
Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1025.mcz

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

Name: Tools-mt.1025
Author: mt
Time: 18 February 2021, 11:19:50.596465 am
UUID: 3a18ed90-267b-f545-86b6-a8edb2631a80
Ancestors: Tools-mt.1024

Add scoping and inverted lookup to dependency browser. I am using it for "DependencyBrowser openInvertedOn: #(EToys)"

=============== Diff against Tools-mt.1024 ===============

Item was changed:
CodeHolder subclass: #DependencyBrowser
+ instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString windowTitle'
- instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString'
classVariableNames: ''
poolDictionaries: ''
category: 'Tools-Browser'!

!DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0!
A simple dependency browser showing five panes:
[1]: Packages: The list of available packages in the system.
[2]: Package Dependencies: The dependent packages of the currently selected package.
[3]: Class Dependencies: The classes causing the dependencies.
[4]: Class List: The classes introducing the dependencies.
[5]: Messages: The messages introducing the dependencies.!

Item was added:
+ ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') -----
+ openInvertedOn: requiredPackageNames
+ "DependencyBrowser openInvertedOn: #(Monticello)"
+
+ | model |
+ model := self new.
+ ^ ToolBuilder open: (
+ model
+ packageList: (model packageList select: [:packageName |
+ model computePackageDependencies: packageName.
+ model packageDeps includesAnyOf: requiredPackageNames]);
+ windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames});
+ yourself)
+ !

Item was added:
+ ----- Method: DependencyBrowser class>>openOn: (in category 'opening') -----
+ openOn: packageNames
+ "DependencyBrowser openOn: #(Morphic EToys)"
+
+ ^ ToolBuilder open: (self new
+ packageList: packageNames;
+ windowTitle: 'Dependency Browser (on selected packages)';
+ yourself)!

Item was added:
+ ----- Method: DependencyBrowser>>packageList: (in category 'package list') -----
+ packageList: somePackageNames
+
+ packageList := somePackageNames.
+ self packageListIndex: 0.!

Item was added:
+ ----- Method: DependencyBrowser>>windowTitle (in category 'accessing') -----
+ windowTitle
+
+ ^ windowTitle ifNil: ['Dependency Browser']!

Item was added:
+ ----- Method: DependencyBrowser>>windowTitle: (in category 'accessing') -----
+ windowTitle: aString
+
+ windowTitle := aString.
+ self changed: #windowTitle.!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210218/2fc892af/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 127537 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210218/2fc892af/attachment-0001.png>