The Trunk: Tools-ar.144.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.144.mcz

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

Name: Tools-ar.144
Author: ar
Time: 12 November 2009, 8:27:17 am
UUID: a06f820c-c6d7-194c-bad0-b3dd0e04efba
Ancestors: Tools-ar.142, Tools-ul.143

Merging Tools-ul.143:

- moved CompiledMethod >> #explorerContents to Morphic-Explorer

=============== Diff against Tools-ar.142 ===============

Item was removed:
- ----- Method: CompiledMethod>>explorerContents (in category '*Tools-Inspector') -----
- explorerContents
- "(CompiledMethod compiledMethodAt: #explorerContents) explore"
-
- ^Array streamContents:
- [:s| | tokens |
- tokens := Scanner new scanTokens: (self headerDescription readStream skipTo: $"; upTo: $").
- s nextPut: (ObjectExplorerWrapper
- with: ((0 to: tokens size by: 2) collect:
- [:i| i = 0 ifTrue: [self header] ifFalse: [{tokens at: i - 1. tokens at: i}]])
- name: 'header'
- model: self).
- (1 to: self numLiterals) do:
- [:key|
- s nextPut: (ObjectExplorerWrapper
- with: (self literalAt: key)
- name: ('literal', key printString contractTo: 32)
- model: self)].
- self isQuick
- ifTrue: [s nextPut: (ObjectExplorerWrapper
- with: self symbolic
- name: #symbolic
- model: self)]
- ifFalse:
- [self symbolicLinesDo:
- [:pc :line|
- pc <= 1
- ifTrue:
- [s nextPut: (ObjectExplorerWrapper
- with: line
- name: 'pragma'
- model: self)]
- ifFalse:
- [s nextPut: (ObjectExplorerWrapper
- with: line
- name: pc printString
- model: self)]]].
- "should be self numLiterals + 1 * Smalltalk wordSize + 1"
- self endPC + 1
- to: self basicSize
- do: [:key|
- s nextPut: (ObjectExplorerWrapper
- with: (self basicAt: key)
- name: key printString
- model: self)]]!