<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
        {margin-top:0;
        margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Helvetica,sans-serif">
<p><img size="88617" id="x_img121717" tabindex="0" style="max-width:99.9%" src="cid:22ae7dc5-95ca-4375-bcdc-0ed01465bfce"><br>
</p>
<p><img size="26465" id="x_img680812" tabindex="0" style="max-width:99.9%" src="cid:117179d6-8f25-46e1-88de-204a7609ea92"><br>
</p>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Montag, 4. Oktober 2021 16:24:18<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Inbox: Tools-ct.1065.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">A new version of Tools was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Tools-ct.1065.mcz">http://source.squeak.org/inbox/Tools-ct.1065.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-ct.1065<br>
Author: ct<br>
Time: 4 October 2021, 4:24:14.796947 pm<br>
UUID: b693bc16-16c5-bc48-a47e-df8b2fcc255a<br>
Ancestors: Tools-eem.1064<br>
<br>
Adds menu items to browse the extensions, dependencies, and the package of a system category or package in the relevant browsers' columns.<br>
<br>
Depends on System-ct.1245.<br>
Supersedes Tools-ct.930.<br>
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).<br>
<br>
=============== Diff against Tools-eem.1064 ===============<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>browseExtensions (in category 'system category functions') -----<br>
+ browseExtensions<br>
+        <br>
+        ^ self systemNavigation browseAllExtensionsOfCategory: self selectedSystemCategory!<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>browseInvertedPackageDependencies (in category 'system category functions') -----<br>
+ browseInvertedPackageDependencies<br>
+ <br>
+        ^ DependencyBrowser openInvertedOnPackage: self selectedPackage!<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>browsePackage (in category 'system category functions') -----<br>
+ browsePackage<br>
+        <br>
+        ^ self selectedPackage browse!<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>browsePackageDependencies (in category 'system category functions') -----<br>
+ browsePackageDependencies<br>
+ <br>
+        ^ DependencyBrowser openOnPackage: self selectedPackage!<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>browsePackageExtensions (in category 'system category functions') -----<br>
+ browsePackageExtensions<br>
+        <br>
+        ^ self systemNavigation browseAllExtensionsOfPackage: self selectedPackage!<br>
<br>
Item was changed:<br>
  ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') -----<br>
  mainSystemCategoryMenu: aMenu<br>
         <systemCategoryMenu><br>
         ^ aMenu addList: #(<br>
+                        ('find class... (f)'                                    findClass)<br>
+                        ('back... (b)'                                          recent)<br>
-                        ('find class... (f)'                    findClass)<br>
-                        ('back... (b)'                          recent)<br>
                         -<br>
+                        ('browse all'                                                   browseAllClasses)<br>
+                        ('browse'                                                       buildSystemCategoryBrowser)<br>
+                        ('browse extensions'                            browseExtensions)<br>
-                        ('browse all'                   browseAllClasses)<br>
-                        ('browse'                               buildSystemCategoryBrowser)<br>
                         -<br>
+                        ('browse package'                                       browsePackage)<br>
+                        ('browse package extensions'            browsePackageExtensions)<br>
+                        ('browse dependencies'                          browsePackageDependencies)<br>
+                        ('browse inverted dependencies' browseInvertedPackageDependencies)<br>
-                        ('printOut'                             printOutSystemCategory)<br>
-                        ('fileOut'                              fileOutSystemCategory)<br>
                         -<br>
+                        ('printOut'                                                     printOutSystemCategory)<br>
+                        ('fileOut'                                                      fileOutSystemCategory)<br>
-                        ('reorganize'                   editSystemCategories)<br>
-                        ('alphabetize'                  alphabetizeSystemCategories)<br>
                         -<br>
+                        ('reorganize'                                           editSystemCategories)<br>
+                        ('alphabetize'                                          alphabetizeSystemCategories)<br>
+                        -<br>
+                        ('update'                                                       updateSystemCategories)<br>
+                        ('add item...'                                          addSystemCategory)<br>
+                        ('rename...'                                                    renameSystemCategory)<br>
+                        ('remove (x)'                                           removeSystemCategory));<br>
+                yourself!<br>
-                        ('update'                               updateSystemCategories)<br>
-                        ('add item...'                          addSystemCategory)<br>
-                        ('rename...'                            renameSystemCategory)<br>
-                        ('remove (x)'                   removeSystemCategory));<br>
-                yourself<br>
- !<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>selectedPackage (in category 'system category list') -----<br>
+ selectedPackage<br>
+ <br>
+        ^ self environment packageOrganizer packageOfSystemCategory: self selectedSystemCategory!<br>
<br>
Item was changed:<br>
  ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') -----<br>
  openInvertedOn: requiredPackageNames<br>
         "DependencyBrowser openInvertedOn: #(Monticello)"<br>
         <br>
         | model |<br>
         model := self new.      <br>
         ^ ToolBuilder open: (<br>
                 model<br>
+                        packageList: (Cursor wait showWhile: [<br>
+                                model packageList select: [:packageName |<br>
+                                        model computePackageDependencies: packageName.<br>
+                                        model packageDeps includesAnyOf: requiredPackageNames]]);<br>
-                        packageList: (model packageList select: [:packageName |<br>
-                                model computePackageDependencies: packageName.<br>
-                                model packageDeps includesAnyOf: requiredPackageNames]);<br>
                         windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames});<br>
                         yourself)<br>
  !<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser class>>openInvertedOnPackage: (in category 'opening') -----<br>
+ openInvertedOnPackage: aPackageInfo<br>
+        "DependencyBrowser openInvertedOnPackage: Morph packageInfo"<br>
+        <br>
+        ^ self openInvertedOn: {aPackageInfo name}!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser class>>openOnPackage: (in category 'opening') -----<br>
+ openOnPackage: aPackageInfo<br>
+        "DependencyBrowser openOnPackage: Morph packageInfo"<br>
+        <br>
+        ^ ToolBuilder open: (self new<br>
+                selectPackage: aPackageInfo name;<br>
+                yourself)!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser>>selectPackage: (in category 'class list') -----<br>
+ selectPackage: packageName<br>
+ <br>
+        self packageListIndex: (self packageList indexOf: packageName).!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser>>selectedPackage (in category 'class list') -----<br>
+ selectedPackage<br>
+ <br>
+        ^ self packageList at: self packageListIndex!<br>
<br>
Item was added:<br>
+ ----- Method: PackagePaneBrowser class>>fullOnPackage: (in category 'instance creation') -----<br>
+ fullOnPackage: aPackage<br>
+ <br>
+        ^ self new<br>
+                selectPackageNamed: aPackage name;<br>
+                buildAndOpenFullBrowser!<br>
<br>
Item was changed:<br>
  ----- Method: PackagePaneBrowser>>mainPackageMenu: (in category 'package list') -----<br>
  mainPackageMenu: aMenu<br>
         "Answer a Menu of operations on class packages to be <br>
         displayed when the operate menu button is pressed."<br>
         <packageListMenu><br>
         ^aMenu addList: #(<br>
+                        ('find class... (f)'            findClass)<br>
+                        ('back... (b)'                  recent)<br>
-                        ('find class...'                findClass)<br>
-                        ('recent classes...'    recent)<br>
                         -<br>
+                        ('browse extensions'    browsePackageExtensions)<br>
+                        ('browse dependencies'  browsePackageDependencies)<br>
+                        ('browse inverted dependencies' browseInvertedPackageDependencies)<br>
+                        -<br>
+                        ('reorganize'                   editSystemCategories)<br>
+                        ('alphabetize'                  alphabetizeSystemCategories)<br>
-                        ('reorganize'           editSystemCategories)<br>
-                        ('alphabetize'          alphabetizeSystemCategories)<br>
                         -                               <br>
+                        ('update'                               updatePackages));<br>
+                yourself.!<br>
-                        ('update'                       updatePackages));<br>
-                yourself.<br>
- !<br>
<br>
Item was changed:<br>
  ----- Method: PackagePaneBrowser>>packageListKey:from: (in category 'package list') -----<br>
  packageListKey: aChar from: view<br>
         aChar == $f ifTrue: [^ self findClass].<br>
+        aChar == $b ifTrue: [^ self recent].<br>
         ^ self classListKey: aChar from: view!<br>
<br>
Item was added:<br>
+ ----- Method: PackagePaneBrowser>>selectPackageNamed: (in category 'package list') -----<br>
+ selectPackageNamed: aPackageName<br>
+ <br>
+        self packageListIndex: (self packageList indexOf: aPackageName).<br>
+        self changed: #packageListIndex.!<br>
<br>
Item was added:<br>
+ ----- Method: PackagePaneBrowser>>selectedPackage (in category 'package list') -----<br>
+ selectedPackage<br>
+ <br>
+        ^ self package<br>
+                ifNotNil: [:package | PackageInfo named: package]<br>
+                ifNil: [super selectedPackage]!<br>
<br>
Item was changed:<br>
  ----- Method: StandardToolSet class>>browsePackage: (in category 'browsing') -----<br>
  browsePackage: aPackageInfo<br>
         <br>
+        ^ PackagePaneBrowser fullOnPackage: aPackageInfo!<br>
-        self flag: #discuss. "mt: Maybe use the package-pane browser?"<br>
-        "PackagePaneBrowser fullOnCategory: aPackageInfo name"<br>
-        <br>
-        ^ self browseCategory: aPackageInfo systemCategories first<br>
-        <br>
- !<br>
<br>
<br>
</div>
</span></font>
</body>
</html>