The Inbox: Tools-ael.395.mcz

A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ael.395.mcz

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

Name: Tools-ael.395
Author: ael
Time: 23 February 2012, 12:28:46.056 pm
UUID: 435b2241-2f40-d64c-8075-f566bd21a1c5
Ancestors: Tools-ael.394

fix to prevent the 'recent' facility in a Browser categories pane from discarding changes

=============== Diff against Tools-ael.394 ===============

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