<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
</head>
<body>
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">
<p>Wow, that's a nice extension! Thank you Marcel! :-)</p>
<p><br>
</p>
<p>Best,</p>
<p>Christoph</p>
<div id="Signature">
<div id="divtagdefaultwrapper" dir="ltr" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;">
<div name="divtagdefaultwrapper" style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:; margin:0">
<div>
<div class="_rp_T4" id="Item.MessagePartBody">
<div class="_rp_U4 ms-font-weight-regular ms-font-color-neutralDark rpHighlightAllClass rpHighlightBodyClass" id="Item.MessageUniqueBody" style="font-family:wf_segoe-ui_normal,"Segoe UI","Segoe WP",Tahoma,Arial,sans-serif,serif,EmojiFont">
<div dir="ltr">
<div id="divtagdefaultwrapper"><font face="Calibri,Helvetica,sans-serif,EmojiFont,Apple Color Emoji,Segoe UI Emoji,NotoColorEmoji,Segoe UI Symbol,Android Emoji,EmojiSymbols">
<div id="Signature">
<div style="margin:0px"><font style="font-family:Calibri,Arial,Helvetica,sans-serif,serif,EmojiFont">
<div><font size="3" color="black"><span style="font-size:12pt"><a href="http://www.hpi.de/" target="_blank" rel="noopener noreferrer" id="LPNoLP"><font size="2"><span id="LPlnk909538"><font color="#757B80"></font></span></font></a></span></font></div>
</font></div>
</div>
</font></div>
</div>
</div>
</div>
</div>
<div><font size="2" color="#808080"></font></div>
</div>
</div>
</div>
</div>
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von Taeumel, Marcel<br>
<b>Gesendet:</b> Donnerstag, 18. Februar 2021 11:20:41<br>
<b>An:</b> squeak-dev<br>
<b>Betreff:</b> Re: [squeak-dev] The Trunk: Tools-mt.1025.mcz</font>
<div> </div>
</div>
<div>
<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
<img id="1cff3713-45a6-42e2-8156-4d1ee4b5e326" width="662" height="294" src="cid:d991405c-3612-459e-ae58-46f61fd467c1"><!-- </img> --><br>
<div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 18.02.2021 11:20:04 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p>
<div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of Tools to project The Trunk:<br>
http://source.squeak.org/trunk/Tools-mt.1025.mcz<br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-mt.1025<br>
Author: mt<br>
Time: 18 February 2021, 11:19:50.596465 am<br>
UUID: 3a18ed90-267b-f545-86b6-a8edb2631a80<br>
Ancestors: Tools-mt.1024<br>
<br>
Add scoping and inverted lookup to dependency browser. I am using it for "DependencyBrowser openInvertedOn: #(EToys)"<br>
<br>
=============== Diff against Tools-mt.1024 ===============<br>
<br>
Item was changed:<br>
CodeHolder subclass: #DependencyBrowser<br>
+ instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString windowTitle'<br>
- instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString'<br>
classVariableNames: ''<br>
poolDictionaries: ''<br>
category: 'Tools-Browser'!<br>
<br>
!DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0!<br>
A simple dependency browser showing five panes:<br>
[1]: Packages: The list of available packages in the system.<br>
[2]: Package Dependencies: The dependent packages of the currently selected package.<br>
[3]: Class Dependencies: The classes causing the dependencies.<br>
[4]: Class List: The classes introducing the dependencies.<br>
[5]: Messages: The messages introducing the dependencies.!<br>
<br>
Item was added:<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: (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>>openOn: (in category 'opening') -----<br>
+ openOn: packageNames<br>
+ "DependencyBrowser openOn: #(Morphic EToys)"<br>
+ <br>
+ ^ ToolBuilder open: (self new<br>
+ packageList: packageNames;<br>
+ windowTitle: 'Dependency Browser (on selected packages)';<br>
+ yourself)!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser>>packageList: (in category 'package list') -----<br>
+ packageList: somePackageNames<br>
+ <br>
+ packageList := somePackageNames.<br>
+ self packageListIndex: 0.!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser>>windowTitle (in category 'accessing') -----<br>
+ windowTitle<br>
+ <br>
+ ^ windowTitle ifNil: ['Dependency Browser']!<br>
<br>
Item was added:<br>
+ ----- Method: DependencyBrowser>>windowTitle: (in category 'accessing') -----<br>
+ windowTitle: aString<br>
+ <br>
+ windowTitle := aString.<br>
+ self changed: #windowTitle.!<br>
<br>
<br>
</div>
</blockquote>
</div>
</div>
</body>
</html>