[squeak-dev] The Trunk: Tools-tpr.1155.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 12 19:49:29 UTC 2022


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]!



More information about the Squeak-dev mailing list