Looks good to me
If one day we get a cooler one we could get
>
> self class isVariable & anotherObject class isVariable
> ifTrue:
> [ 1 to: (self basicSize min: anotherObject basicSize)
> do: [ :ind |
> self basicAt: ind put: (anotherObject basicAt: ind) ] ]
>
self class isVariable & anotherObject class isVariable
ifTrue: [ 1 to: (self basicSize min: anotherObject basicSize)
do: [ :ind | self basicAt: ind put:
(anotherObject basicAt: ind) ] ]
self class isVariable & anotherObject class isVariable
ifTrue: [ 1
to: (self basicSize min: anotherObject
basicSize)
do: [ :ind | self basicAt: ind put:
(anotherObject basicAt: ind) ] ]
> Object>>longPrintStringLimitedTo: aLimitValue
> "Answer a String whose characters are a description of the receiver."
>
> | str |
> str := String
> streamContents:
> [ :aStream |
> self
> longPrintOn: aStream
> limitedTo: aLimitValue
> indent: 0 ]. "Objects without inst vars
> should return something"
> ^ str isEmpty
> ifTrue: [ self printString , String cr ]
> ifFalse: [ str ]
>
>
I would love to have it like that ;-D
Object>>longPrintStringLimitedTo: aLimitValue
"Answer a String whose characters are a description of the receiver."
| str |
str := String
streamContents:
[ :aStream |
self
longPrintOn: aStream
limitedTo: aLimitValue
indent: 0 ]. "Objects
without inst vars should return something"
^ str isEmpty
ifTrue: [ self printString , String cr ]
ifFalse: [ str ]
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
