[squeak-dev] The Inbox: Tools-ct.1065.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 4 14:24:18 UTC 2021
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.1065.mcz
==================== Summary ====================
Name: Tools-ct.1065
Author: ct
Time: 4 October 2021, 4:24:14.796947 pm
UUID: b693bc16-16c5-bc48-a47e-df8b2fcc255a
Ancestors: Tools-eem.1064
Adds menu items to browse the extensions, dependencies, and the package of a system category or package in the relevant browsers' columns.
Depends on System-ct.1245.
Supersedes Tools-ct.930.
Also integrates Tools-ct.961 for package browsing instead of adding new merge conflicts (though this increases the size of this version -- please report back whether this was a good decision or not).
=============== Diff against Tools-eem.1064 ===============
Item was added:
+ ----- Method: Browser>>browseExtensions (in category 'system category functions') -----
+ browseExtensions
+
+ ^ self systemNavigation browseAllExtensionsOfCategory: self selectedSystemCategory!
Item was added:
+ ----- Method: Browser>>browseInvertedPackageDependencies (in category 'system category functions') -----
+ browseInvertedPackageDependencies
+
+ ^ DependencyBrowser openInvertedOnPackage: self selectedPackage!
Item was added:
+ ----- Method: Browser>>browsePackage (in category 'system category functions') -----
+ browsePackage
+
+ ^ self selectedPackage browse!
Item was added:
+ ----- Method: Browser>>browsePackageDependencies (in category 'system category functions') -----
+ browsePackageDependencies
+
+ ^ DependencyBrowser openOnPackage: self selectedPackage!
Item was added:
+ ----- Method: Browser>>browsePackageExtensions (in category 'system category functions') -----
+ browsePackageExtensions
+
+ ^ self systemNavigation browseAllExtensionsOfPackage: self selectedPackage!
Item was changed:
----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') -----
mainSystemCategoryMenu: aMenu
<systemCategoryMenu>
^ aMenu addList: #(
+ ('find class... (f)' findClass)
+ ('back... (b)' recent)
- ('find class... (f)' findClass)
- ('back... (b)' recent)
-
+ ('browse all' browseAllClasses)
+ ('browse' buildSystemCategoryBrowser)
+ ('browse extensions' browseExtensions)
- ('browse all' browseAllClasses)
- ('browse' buildSystemCategoryBrowser)
-
+ ('browse package' browsePackage)
+ ('browse package extensions' browsePackageExtensions)
+ ('browse dependencies' browsePackageDependencies)
+ ('browse inverted dependencies' browseInvertedPackageDependencies)
- ('printOut' printOutSystemCategory)
- ('fileOut' fileOutSystemCategory)
-
+ ('printOut' printOutSystemCategory)
+ ('fileOut' fileOutSystemCategory)
- ('reorganize' editSystemCategories)
- ('alphabetize' alphabetizeSystemCategories)
-
+ ('reorganize' editSystemCategories)
+ ('alphabetize' alphabetizeSystemCategories)
+ -
+ ('update' updateSystemCategories)
+ ('add item...' addSystemCategory)
+ ('rename...' renameSystemCategory)
+ ('remove (x)' removeSystemCategory));
+ yourself!
- ('update' updateSystemCategories)
- ('add item...' addSystemCategory)
- ('rename...' renameSystemCategory)
- ('remove (x)' removeSystemCategory));
- yourself
- !
Item was added:
+ ----- Method: Browser>>selectedPackage (in category 'system category list') -----
+ selectedPackage
+
+ ^ self environment packageOrganizer packageOfSystemCategory: self selectedSystemCategory!
Item was changed:
----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') -----
openInvertedOn: requiredPackageNames
"DependencyBrowser openInvertedOn: #(Monticello)"
| model |
model := self new.
^ ToolBuilder open: (
model
+ packageList: (Cursor wait showWhile: [
+ model packageList select: [:packageName |
+ model computePackageDependencies: packageName.
+ model packageDeps includesAnyOf: requiredPackageNames]]);
- 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>>openInvertedOnPackage: (in category 'opening') -----
+ openInvertedOnPackage: aPackageInfo
+ "DependencyBrowser openInvertedOnPackage: Morph packageInfo"
+
+ ^ self openInvertedOn: {aPackageInfo name}!
Item was added:
+ ----- Method: DependencyBrowser class>>openOnPackage: (in category 'opening') -----
+ openOnPackage: aPackageInfo
+ "DependencyBrowser openOnPackage: Morph packageInfo"
+
+ ^ ToolBuilder open: (self new
+ selectPackage: aPackageInfo name;
+ yourself)!
Item was added:
+ ----- Method: DependencyBrowser>>selectPackage: (in category 'class list') -----
+ selectPackage: packageName
+
+ self packageListIndex: (self packageList indexOf: packageName).!
Item was added:
+ ----- Method: DependencyBrowser>>selectedPackage (in category 'class list') -----
+ selectedPackage
+
+ ^ self packageList at: self packageListIndex!
Item was added:
+ ----- Method: PackagePaneBrowser class>>fullOnPackage: (in category 'instance creation') -----
+ fullOnPackage: aPackage
+
+ ^ self new
+ selectPackageNamed: aPackage name;
+ buildAndOpenFullBrowser!
Item was changed:
----- Method: PackagePaneBrowser>>mainPackageMenu: (in category 'package list') -----
mainPackageMenu: aMenu
"Answer a Menu of operations on class packages to be
displayed when the operate menu button is pressed."
<packageListMenu>
^aMenu addList: #(
+ ('find class... (f)' findClass)
+ ('back... (b)' recent)
- ('find class...' findClass)
- ('recent classes...' recent)
-
+ ('browse extensions' browsePackageExtensions)
+ ('browse dependencies' browsePackageDependencies)
+ ('browse inverted dependencies' browseInvertedPackageDependencies)
+ -
+ ('reorganize' editSystemCategories)
+ ('alphabetize' alphabetizeSystemCategories)
- ('reorganize' editSystemCategories)
- ('alphabetize' alphabetizeSystemCategories)
-
+ ('update' updatePackages));
+ yourself.!
- ('update' updatePackages));
- yourself.
- !
Item was changed:
----- Method: PackagePaneBrowser>>packageListKey:from: (in category 'package list') -----
packageListKey: aChar from: view
aChar == $f ifTrue: [^ self findClass].
+ aChar == $b ifTrue: [^ self recent].
^ self classListKey: aChar from: view!
Item was added:
+ ----- Method: PackagePaneBrowser>>selectPackageNamed: (in category 'package list') -----
+ selectPackageNamed: aPackageName
+
+ self packageListIndex: (self packageList indexOf: aPackageName).
+ self changed: #packageListIndex.!
Item was added:
+ ----- Method: PackagePaneBrowser>>selectedPackage (in category 'package list') -----
+ selectedPackage
+
+ ^ self package
+ ifNotNil: [:package | PackageInfo named: package]
+ ifNil: [super selectedPackage]!
Item was changed:
----- Method: StandardToolSet class>>browsePackage: (in category 'browsing') -----
browsePackage: aPackageInfo
+ ^ PackagePaneBrowser fullOnPackage: aPackageInfo!
- self flag: #discuss. "mt: Maybe use the package-pane browser?"
- "PackagePaneBrowser fullOnCategory: aPackageInfo name"
-
- ^ self browseCategory: aPackageInfo systemCategories first
-
- !
More information about the Squeak-dev
mailing list
|