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

commits at source.squeak.org commits at source.squeak.org
Thu Feb 18 10:19:54 UTC 2021


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



More information about the Squeak-dev mailing list