[Pharo-dev] Debugger variable display - poor wrapping of collections

[Ben Coman]

I have a minor irritation that when displaying a variable in the 
debugger, collections wrap like this...
an OrderedCollection(a
MyObject a
MyObject a
MyObject a....
I'd like to see something like this...
an-OrderedCollection(
a-MyObject
a-MyObject
a-MyObject ....

Using the dash has the lowest impact code-wise, but maybe the 
visual-semantics is too great a change?

The required code change is shown below in comments...

Object>>printOn: aStream
   | title |
   title := self class name.
   aStream
       nextPutAll: (title first isVowel ifTrue: ['an '] ifFalse: ['a ']);
       " nextPutAll: (title first isVowel ifTrue: ['an-'] ifFalse: 
['a-']); "
       nextPutAll: title

Collection>>printElementsOn: aStream
   aStream nextPut: $(   " ; space " .
   self do: [:element | aStream print: element] separatedBy: [aStream 
space].
   aStream " space ; " nextPut: $)

cheers -ben