<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>Very nice! :-)</p>
<p><br>
</p>
<p>But do the recent classes need to appear twice in the list?</p>
<p></p>
<div class="x_ms-border-color-themePrimary" id="OWATemporaryImageDivContainer847433" style="width:252px; max-width:99.9%; max-height:89px; overflow:hidden; border-width:1px; border-style:dashed; display:inline-block">
<div title="pastedImage.png" style="width:252px; max-width:100%; padding-bottom:35%">
</div>
</div>
<br>
<p></p>
<p><br>
</p>
<p>Best,</p>
<p>Christoph</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> Donnerstag, 12. Mai 2022 21:49:29<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: Tools-tpr.1155.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">tim Rowledge uploaded a new version of Tools to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Tools-tpr.1155.mcz">http://source.squeak.org/trunk/Tools-tpr.1155.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-tpr.1155<br>
Author: tpr<br>
Time: 12 May 2022, 12:49:24.759381 pm<br>
UUID: a73844bb-c34b-4398-863e-dc806a623f72<br>
Ancestors: Tools-ct.1153<br>
<br>
This allows the 'find class...' dialog to add the recently browser-viewed classes at the top of the list of all classes.<br>
<br>
=============== Diff against Tools-ct.1153 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Browser>>findClass (in category 'system category functions') -----<br>
  findClass<br>
         "Search for a class by name."<br>
  <br>
         | foundClass |<br>
         (self multiWindowState notNil<br>
          or: [self okToChange]) ifFalse:<br>
                 [^self classNotFound].<br>
+        foundClass := Project uiManager chooseClassOrTraitFrom: self environment withRecentList: self recentClassList.<br>
-        foundClass := UIManager default chooseClassOrTraitFrom: self environment.<br>
         foundClass ifNil: [^self classNotFound].<br>
         (self selectedClass notNil<br>
          and: [self multiWindowState notNil<br>
          "Can only support multi-window if original window has all the right panes."<br>
          and: [self multiWindowState prototype isHierarchy not]]) ifTrue:<br>
                 [(self classList includes: foundClass name)<br>
                         ifTrue: [self multiWindowState copyWindow]<br>
                         ifFalse: [self multiWindowState addNewWindow]].<br>
         self selectCategoryForClass: foundClass.<br>
         self selectClass: foundClass!<br>
<br>
Item was changed:<br>
  ----- Method: Browser>>recent (in category 'class list') -----<br>
  recent<br>
+        "Let the user select from a list of recently visited classes"<br>
-        "Let the user select from a list of recently visited classes.  11/96 stp.<br>
-         12/96 di:  use class name, not classes themselves.<br>
-         : dont fall into debugger in empty case"<br>
  <br>
         | className class recentList |<br>
+        recentList := self recentClassList.<br>
-        recentList := (RecentClasses reject: [:s | s = self selectedClassName]) select: [:n | Smalltalk hasClassNamed: n].<br>
         recentList size = 0 ifTrue: [^ Beeper beep].<br>
         className := UIManager default chooseFrom: recentList values: recentList.<br>
         className == nil ifTrue: [^ self].<br>
         <br>
         self okToChange ifFalse: [^ self].<br>
  <br>
         class := Smalltalk at: className.<br>
         self selectCategoryForClass: class.<br>
         self classListIndex: (self classListIndexOf: class name)!<br>
<br>
Item was added:<br>
+ ----- Method: Browser>>recentClassList (in category 'class list') -----<br>
+ recentClassList<br>
+ <br>
+        <br>
+        ^(RecentClasses reject: [:s | s = self selectedClassName]) select: [:n | Smalltalk hasClassNamed: n]!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>