Very nice! :-)


But do the recent classes need to appear twice in the list?



Best,

Christoph

________________________________
Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von commits at source.squeak.org <commits at source.squeak.org>
Gesendet: Donnerstag, 12. Mai 2022 21:49:29
An: squeak-dev at lists.squeakfoundation.org; packages at lists.squeakfoundation.org
Betreff: [squeak-dev] The Trunk: Tools-tpr.1155.mcz

tim Rowledge uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tpr.1155.mcz

==================== Summary ====================

Name: Tools-tpr.1155
Author: tpr
Time: 12 May 2022, 12:49:24.759381 pm
UUID: a73844bb-c34b-4398-863e-dc806a623f72
Ancestors: Tools-ct.1153

This allows the 'find class...' dialog to add the recently browser-viewed classes at the top of the list of all classes.

=============== Diff against Tools-ct.1153 ===============

Item was changed:
  ----- Method: Browser>>findClass (in category 'system category functions') -----
  findClass
         "Search for a class by name."

         | foundClass |
         (self multiWindowState notNil
          or: [self okToChange]) ifFalse:
                 [^self classNotFound].
+        foundClass := Project uiManager chooseClassOrTraitFrom: self environment withRecentList: self recentClassList.
-        foundClass := UIManager default chooseClassOrTraitFrom: self environment.
         foundClass ifNil: [^self classNotFound].
         (self selectedClass notNil
          and: [self multiWindowState notNil
          "Can only support multi-window if original window has all the right panes."
          and: [self multiWindowState prototype isHierarchy not]]) ifTrue:
                 [(self classList includes: foundClass name)
                         ifTrue: [self multiWindowState copyWindow]
                         ifFalse: [self multiWindowState addNewWindow]].
         self selectCategoryForClass: foundClass.
         self selectClass: foundClass!

Item was changed:
  ----- Method: Browser>>recent (in category 'class list') -----
  recent
+        "Let the user select from a list of recently visited classes"
-        "Let the user select from a list of recently visited classes.  11/96 stp.
-         12/96 di:  use class name, not classes themselves.
-         : dont fall into debugger in empty case"

         | className class recentList |
+        recentList := self recentClassList.
-        recentList := (RecentClasses reject: [:s | s = self selectedClassName]) select: [:n | Smalltalk hasClassNamed: n].
         recentList size = 0 ifTrue: [^ Beeper beep].
         className := UIManager default chooseFrom: recentList values: recentList.
         className == nil ifTrue: [^ self].

         self okToChange ifFalse: [^ self].

         class := Smalltalk at: className.
         self selectCategoryForClass: class.
         self classListIndex: (self classListIndexOf: class name)!

Item was added:
+ ----- Method: Browser>>recentClassList (in category 'class list') -----
+ recentClassList
+
+
+        ^(RecentClasses reject: [:s | s = self selectedClassName]) select: [:n | Smalltalk hasClassNamed: n]!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220520/498c7288/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pastedImage.png
Type: image/png
Size: 7730 bytes
Desc: pastedImage.png
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220520/498c7288/attachment.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pastedImage.png
Type: image/png
Size: 7730 bytes
Desc: pastedImage.png
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220520/498c7288/attachment-0001.png>