The Trunk: 60Deprecated-mt.75.mcz

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

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

Name: 60Deprecated-mt.75
Author: mt
Time: 27 April 2020, 10:23:37.40034 am
UUID: aa22ba85-9bb6-ec4c-837e-afefdf3fc490
Ancestors: 60Deprecated-nice.74

Complements Tools-mt.965. Inspector refactoring. See: http://forum.world.st/Please-try-out-Inspector-Refactoring-tp5114974.html

=============== Diff against 60Deprecated-nice.74 ===============

Item was added:
+ CompiledCodeInspector subclass: #CompiledMethodInspector
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '60Deprecated-Tools-Inspector'!
+
+ !CompiledMethodInspector commentStamp: 'mt 4/6/2020 08:30' prior: 0!
+ Deprecated since CompiledCodeInspector can inspect both CompiledBlock and CompiledMethod.!

Item was added:
+ ----- Method: Debugger>>receiverInspectorObject:context: (in category '*60Deprecated-accessing') -----
+ receiverInspectorObject: obj context: ctxt
+ "set context before object so it can refer to context when building field list"
+
+ self deprecated: 'Talk to #receiverInspector directly.'.
+
+ receiverInspector context: ctxt.
+ receiverInspector inspect: obj.
+ !

Item was added:
+ ----- Method: DictionaryInspector>>refreshView (in category '*60Deprecated-menu commands') -----
+ refreshView
+
+ self deprecated: 'Use #update instead.'.
+ ^ self update!

Item was added:
+ ----- Method: DictionaryInspector>>selectionReferences (in category '*60Deprecated-menu commands') -----
+ selectionReferences
+
+ self deprecated: 'Use #usersOfSelectedBinding.'.
+ self usersOfSelectedBinding.!

Item was removed:
- ----- Method: ExternalStructureInspector>>fieldList (in category 'accessing') -----
- fieldList
- ^  (Array with: 'self: ', object defaultLabelForInspector with: 'all inst vars'), self recordFieldList!

Item was added:
+ ----- Method: ExternalStructureInspector>>fieldSelf (in category 'fields') -----
+ fieldSelf
+
+ ^ super fieldSelf
+ name: 'self: ', object defaultLabelForInspector;
+ yourself!

Item was added:
+ ----- Method: ExternalStructureInspector>>fieldsRecordsOn: (in category 'fields') -----
+ fieldsRecordsOn: aStream
+
+ self recordFieldList do: [:field |
+ aStream nextPut: ((self newFieldForType: #record key: field)
+ valueGetter: [:object | object perform: field];
+ valueSetter: [:object :value | (field, ':') asSymbol with: value];
+ yourself)].!

Item was removed:
- ----- Method: ExternalStructureInspector>>replaceSelectionValue: (in category 'selecting') -----
- replaceSelectionValue: anObject
- "Add colon to fieldname to get setter selector, and send it to object with the argument.
- Refer to the comment in Inspector|replaceSelectionValue:."
-
- selectionIndex = 1
- ifTrue: [^object]
- ifFalse: [^object perform: ((self fieldList at: selectionIndex), ':') asSymbol with: anObject]!

Item was removed:
- ----- Method: ExternalStructureInspector>>selection (in category 'selecting') -----
- selection
- "Refer to the comment in Inspector|selection."
- selectionIndex = 0 ifTrue:[^object printString].
- selectionIndex = 1 ifTrue: [^object].
- selectionIndex = 2 ifTrue:[^object longPrintString].
- selectionIndex > 2
- ifTrue: [^object perform: (self fieldList at: selectionIndex)]!

Item was added:
+ ----- Method: ExternalStructureInspector>>streamFieldsOn: (in category 'fields') -----
+ streamFieldsOn: aStream
+
+ self
+ streamBaseFieldsOn: aStream;
+ fieldsRecordsOn: aStream.!

Item was added:
+ ----- Method: Inspector>>classHierarchy (in category '*60Deprecated-menu') -----
+ classHierarchy
+
+ self deprecated.
+ ^ self browseClassHierarchy!

Item was added:
+ ----- Method: Inspector>>exploreObject (in category '*60Deprecated-toolbuilder') -----
+ exploreObject
+
+ self deprecated.
+ self replaceInspectorWithExplorer.!

Item was added:
+ ----- Method: MorphExtension>>inspectElement (in category '*60Deprecated-other') -----
+ inspectElement
+
+ self deprecated: 'Use MorphInspector. Also see Inspector >> #inspectOne'.!

Item was added:
+ CollectionInspector subclass: #OrderedCollectionInspector
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: '60Deprecated-Tools-Inspector'!
+
+ !OrderedCollectionInspector commentStamp: 'mt 4/6/2020 08:30' prior: 0!
+ I am an Inspector that is specialized for inspecting OrderedCollections. Deprecated since regular CollectionInspector can add and remove elements.!