The Trunk: Tools-mt.1025.mcz

Am 18.02.2021 11:20:04 schrieb [hidden email] <[hidden email]>:

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.!

Wow, that's a nice extension! Thank you Marcel! :-)

Best,

Christoph