[squeak-dev] The Trunk: Tools-fbs.419.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jul 25 12:12:20 UTC 2012


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

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

Name: Tools-fbs.419
Author: fbs
Time: 25 July 2012, 1:11:04.382 pm
UUID: 1e59f261-1520-40ab-9da8-cba208b5527e
Ancestors: Tools-fbs.418

Merge Tools-ael.395 which has a fix to prevent the 'recent' facility in a Browser categories pane from discarding changes.

Not a merge because ael.395's ancestor is ael.394, on which I've asked a question on the list.

=============== Diff against Tools-fbs.418 ===============

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



More information about the Squeak-dev mailing list