[Pkg] The Trunk: Tools-cmm.231.mcz

[commits at source.squeak.org]

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

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

Name: Tools-cmm.231
Author: cmm
Time: 22 April 2010, 12:23:43.234 pm
UUID: bbca9c17-2eab-4dfa-888c-031a276042c3
Ancestors: Tools-ar.230

- Removed generation of meaningless comments when generating inst-var accessors.

=============== Diff against Tools-ar.230 ===============

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, '
- 	"Answer the value of ', aName, '"
- 
  	^ ', aName.
  						aClass compile: newMessage classified: 'accessing' notifying: nil].
  				(aClass canUnderstand: (setter := aName, ':') asSymbol)
  					ifFalse:
  						[newMessage := setter, ' anObject
- 	"Set the value of ', aName, '"
- 
  	', aName, ' := anObject'.
  						aClass compile: newMessage classified: 'accessing' notifying: nil]]]!