[squeak-dev] The Trunk: Kernel-fbs.787.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jul 6 15:12:00 UTC 2013


Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.787.mcz

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

Name: Kernel-fbs.787
Author: fbs
Time: 6 July 2013, 4:11:07.014 pm
UUID: 4db737f7-4391-be4f-be00-57ab4fd8ca10
Ancestors: Kernel-fbs.786

All the other #stringFor: implementors live in *Etoys-tiles.

=============== Diff against Kernel-fbs.786 ===============

Item was removed:
- ----- Method: MessageSend>>stringFor: (in category 'tiles') -----
- stringFor: anObject
- 	"Return a string suitable for compiling.  Literal or reference from global ref dictionary.  self is always named via the ref dictionary."
- 
- 	| generic aName |
- 	anObject isLiteral ifTrue: [^ anObject printString].
- 	anObject class == Color ifTrue: [^ anObject printString].
- 	anObject class superclass == Boolean ifTrue: [^ anObject printString].
- 	anObject isBlock ifTrue: [^ '[''do nothing'']'].	"default block"
- 		"Real blocks need to construct tiles in a different way"
- 	anObject class isMeta ifTrue: ["a class" ^ anObject name].
- 	generic := anObject knownName.	"may be nil or 'Ellipse' "
- 	aName := anObject uniqueNameForReference.
- 	generic ifNil:
- 		[(anObject respondsTo: #renameTo:) 
- 			ifTrue: [anObject renameTo: aName]
- 			ifFalse: [aName := anObject storeString]].	"for Fraction, LargeInt, etc"
- 	^ aName
- !



More information about the Squeak-dev mailing list