The Trunk: Tools-mt.688.mcz

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@0 corner: 0.3@0.5).
- window addMorph: (PluggableTextMorph on: inspector text: #contents accept: #accept:
- readSelection: nil menu: #codePaneMenu:shifted:)
- frame: (0.3@0 corner: 1.0@0.5).
- window addMorph: (PluggableListMorph on: inspector list: #msgList
- selected: #msgListIndex changeSelected: #msgListIndex: menu: #msgListMenu:)
- frame: (0@0.5 corner: 0.3@1.0).
- window addMorph: (PluggableTextMorph on: inspector text: #msgText accept: #msgAccept:from:
- readSelection: nil menu: #msgPaneMenu:shifted:)
- frame: (0.3@0.5 corner: 1.0@1.0).
-
- window setUpdatablePanesFrom: #(fieldList msgList).
- window position: 16@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@0 corner: 0.3@0.5).
+
+ valueSpec := builder pluggableTextSpec new
+ model: self;
+ getText: #contents;
+ setText: #accept:;
+ menu: #codePaneMenu:shifted:;
+ frame: (0.3@0 corner: 1.0@0.5).
+
+ msgSpec := builder pluggableListSpec new
+ model: self;
+ list: #msgList;
+ getIndex: #msgListIndex;
+ setIndex: #msgListIndex:;
+ menu: #msgListMenu;
+ frame: (0@0.5 corner: 0.3@1.0).
+
+ codeSpec := builder pluggableTextSpec new
+ model: self;
+ getText: #msgText;
+ setText: #msgAccept:from:;
+ menu: #msgPaneMenu:shifted:;
+ frame: (0.3@0.5 corner: 1.0@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!