[Pkg] The Trunk: Tools-fbs.446.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.446.mcz

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

Name: Tools-fbs.446
Author: fbs
Time: 8 February 2013, 1:00:12.536 pm
UUID: a5408de8-5b26-4362-a0de-ee5742617600
Ancestors: Tools-fbs.445

Fixes http://bugs.squeak.org/view.php?id=7730

If you're browsing class Foo, there's no need to go back to Foo, so don't show it in the list of recently visited classes.

=============== Diff against Tools-fbs.445 ===============

Item was changed:
  ----- Method: Browser>>recent (in category 'class list') -----
  recent
  	"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 := (RecentClasses reject: [:s | s = self selectedClassName]) select: [:n | Smalltalk hasClassNamed: n].
- 	recentList := RecentClasses 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)!