[Pkg] The Trunk: Tools-topa.733.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Nov 29 14:30:55 UTC 2016


Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.733.mcz

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

Name: Tools-topa.733
Author: topa
Time: 29 November 2016, 3:30:41.552525 pm
UUID: d6d53751-c59e-42e7-85b1-cc4278da5052
Ancestors: Tools-nice.732, Tools-topa.721

merge

=============== Diff against Tools-nice.732 ===============

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

Item was added:
+ ----- Method: Behavior>>createInstVarAccessors (in category '*Tools-Browser-accessors') -----
+ createInstVarAccessors
+ 	"Create getters and setters for all inst vars defined here,
+ 	 except do NOT clobber or override any selectors already understood by me"
+ 
+ 	self instVarNames
+ 		collect: [:each | each asSymbol]
+ 		thenDo: [:instVar |
+ 			(self canUnderstand: instVar) ifFalse: [self createGetterFor: instVar].
+ 			(self canUnderstand: instVar asMutator) ifFalse: [self createSetterFor: instVar]].
+ 
+ !

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

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"
  
+ 	self selectedClassOrMetaClass
+ 		ifNotNil: [:aClass | aClass createInstVarAccessors].
+ !
- 	self selectedClassOrMetaClass ifNotNil:
- 		[:aClass| | cr |
- 		cr := String with: Character cr.
- 		aClass instVarNames do: 
- 			[:aName | | newMessage setter |
- 			(aClass canUnderstand: aName asSymbol) ifFalse:
- 				[newMessage :=
- 					aName, cr, cr,
- 					'	^ ', aName.
- 				aClass compile: newMessage classified: #accessing notifying: nil].
- 			(aClass canUnderstand: (setter := aName, ':') asSymbol) ifFalse:
- 				[newMessage :=
- 					setter, ' anObject', cr, cr,
- 						(aClass settersReturnValue ifTrue: ['	^'] ifFalse: ['	']),
- 						aName, ' := anObject'.
- 				aClass compile: newMessage classified: #accessing notifying: nil]]]!



More information about the Packages mailing list