[Pkg] The Trunk: Tools-mt.815.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.815.mcz

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

Name: Tools-mt.815
Author: mt
Time: 24 May 2018, 10:49:38.933621 am
UUID: d4418382-5b3a-b74d-ac4c-a16f2306827d
Ancestors: Tools-tpr.814

Avoid unnecessary tabs or linebreaks when creating accessors.

=============== Diff against Tools-tpr.814 ===============

Item was changed:
  ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') -----
  createGetterFor: aName
  
  	| code |
+ 	code := '{1}\\	^ {1}' withCRs format: {aName}.
- 	code := '{1}\	\	^ {1}\' withCRs format: {aName.}.
  	self compile: code classified: #accessing notifying: nil.!

Item was changed:
  ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') -----
  createSetterFor: aName
  
  	| code |
+ 	code := '{1}: anObject\\	{2}{1} := anObject.' withCRs
+ 		format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: ['']}.
- 	code := '{1}: anObject\	\	{2}{1} := anObject.\' withCRs
- 		format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: [''].}.
  	self compile: code classified: #accessing notifying: nil.!

Item was changed:
  ----- Method: Behavior>>settersReturnValue (in category '*Tools-Browser-accessors') -----
  settersReturnValue
  	"Determine whether the browser's createInstVarAccessors code will generate
  	 setters that answer self (the default here) or the value set.  Classes that want
  	 to answer the value set (e.g. VMStructType) override."
+ 
+ 	^ false!
- 	^false!