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.!