Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.688.mcz

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

Name: Tools-mt.688
Author: mt
Time: 12 April 2016, 5:30:57.841201 pm
UUID: bc552370-bdf0-2546-9e5c-a53a46d96323
Ancestors: Tools-ul.687

Fixes Inspector Browser tool.

=============== Diff against Tools-ul.687 ===============

Item was changed:
  Inspector subclass: #InspectorBrowser
  	instanceVariableNames: 'fieldList msgList msgListIndex'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Tools-Inspector'!
+ 
+ !InspectorBrowser commentStamp: 'mt 4/12/2016 17:29' prior: 0!
+ I am an inspector that also shows all messages the inspected objects can understand. I combine inspetor and code browser.
+ 
+ InspectorBrowser openOn: Smalltalk!

Item was removed:
- ----- Method: InspectorBrowser class>>openAsMorphOn: (in category 'as yet unclassified') -----
- openAsMorphOn: anObject
- 	"(InspectorBrowser openAsMorphOn: SystemOrganization) openInMVC"
- 	| window inspector |
- 	inspector := self inspect: anObject.
- 	window := (SystemWindow labelled: anObject defaultLabelForInspector)
- 				model: inspector.
- 
- 	window addMorph: (PluggableListMorph on: inspector list: #fieldList
- 				selected: #selectionIndex changeSelected: #toggleIndex: menu: #fieldListMenu:)
- 		frame: (0 at 0 corner: 0.3 at 0.5).
- 	window addMorph: (PluggableTextMorph on: inspector text: #contents accept: #accept:
- 				readSelection: nil menu: #codePaneMenu:shifted:)
- 		frame: (0.3 at 0 corner: 1.0 at 0.5).
- 	window addMorph: (PluggableListMorph on: inspector list: #msgList
- 				selected: #msgListIndex changeSelected: #msgListIndex: menu: #msgListMenu:)
- 		frame: (0 at 0.5 corner: 0.3 at 1.0).
- 	window addMorph: (PluggableTextMorph on: inspector text: #msgText accept: #msgAccept:from:
- 				readSelection: nil menu: #msgPaneMenu:shifted:)
- 		frame: (0.3 at 0.5 corner: 1.0 at 1.0).
- 	
- 	window setUpdatablePanesFrom: #(fieldList msgList).
- 	window position: 16 at 0.  "Room for scroll bar."
- 	^ window!

Item was added:
+ ----- Method: InspectorBrowser>>buildWith: (in category 'tool builder') -----
+ buildWith: builder
+ 
+ 	| window fieldSpec valueSpec msgSpec codeSpec |
+ 	
+ 	window := builder pluggableWindowSpec new
+ 		model: self;
+ 		children: OrderedCollection new;
+ 		yourself.
+ 		
+ 	fieldSpec := builder pluggableListSpec new
+ 		model: self;
+ 		list: #fieldList;
+ 		getIndex: #selectionIndex;
+ 		setIndex: #toggleIndex:;
+ 		menu: #fieldListMenu:;
+ 		frame: (0 at 0 corner: 0.3 at 0.5).
+ 	
+ 	valueSpec := builder pluggableTextSpec new
+ 		model: self;
+ 		getText: #contents;
+ 		setText: #accept:;
+ 		menu: #codePaneMenu:shifted:;
+ 		frame: (0.3 at 0 corner: 1.0 at 0.5).
+ 
+ 	msgSpec := builder pluggableListSpec new
+ 		model: self;
+ 		list: #msgList;
+ 		getIndex: #msgListIndex;
+ 		setIndex: #msgListIndex:;
+ 		menu: #msgListMenu;
+ 		frame: (0 at 0.5 corner: 0.3 at 1.0).
+ 		
+ 	codeSpec := builder pluggableTextSpec new
+ 		model: self;
+ 		getText: #msgText;
+ 		setText: #msgAccept:from:;
+ 		menu: #msgPaneMenu:shifted:;
+ 		frame: (0.3 at 0.5 corner: 1.0 at 1.0).
+ 	
+ 	window children addAll: {fieldSpec. valueSpec. msgSpec. codeSpec}.
+ 	^ builder build: window!

Item was removed:
- ----- Method: TheWorldMenu>>inspectWorldModel (in category '*Tools') -----
- inspectWorldModel
- 	| insp |
- 
- 	insp := InspectorBrowser openOn: myWorld model.
- 	myWorld addMorph: insp; startStepping: insp!