The Trunk: Tools-mt.1025.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mt.1025.mcz

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


Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Tools-mt.1025.mcz

marcel.taeumel

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




Reply | Threaded
Open this post in threaded view
|

Re: The Trunk: Tools-mt.1025.mcz

Christoph Thiede

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


Best,

Christoph


Von: Squeak-dev <[hidden email]> im Auftrag von Taeumel, Marcel
Gesendet: Donnerstag, 18. Februar 2021 11:20:41
An: squeak-dev
Betreff: Re: [squeak-dev] 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.!




Carpe Squeak!