The Trunk: Tools-cmm.234.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.234.mcz

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

Name: Tools-cmm.234
Author: cmm
Time: 23 April 2010, 5:05:05.618 pm
UUID: 89309cc9-17bf-4936-82dd-2c2656bfa33f
Ancestors: Tools-ar.233

- Added in a blank line to generated accessors, per community preference.

=============== Diff against Tools-ar.233 ===============

Item was changed:
  ----- Method: Browser>>createInstVarAccessors (in category 'class functions') -----
  createInstVarAccessors
  "Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class"
 
  | aClass |
  (aClass := self selectedClassOrMetaClass) ifNotNil:
  [aClass instVarNames do:
  [:aName |
  | newMessage setter |
  (aClass canUnderstand: aName asSymbol)
  ifFalse:
  [newMessage := aName, '
+
+ ^', aName.
- ^ ', aName.
  aClass compile: newMessage classified: 'accessing' notifying: nil].
  (aClass canUnderstand: (setter := aName, ':') asSymbol)
  ifFalse:
  [newMessage := setter, ' anObject
+
  ', aName, ' := anObject'.
  aClass compile: newMessage classified: 'accessing' notifying: nil]]]!