Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.10.mcz
==================== Summary ====================
Name: 60Deprecated-mt.10 Author: mt Time: 6 February 2018, 10:17:47.542461 am UUID: 631fd266-800b-4b03-bce4-088fb80d5d99 Ancestors: 60Deprecated-mt.9
Deprecate some old inspector-related code.
=============== Diff against 60Deprecated-mt.9 ===============
Item was changed: SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-System-Support'! + SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'!
Item was added: + Inspector subclass: #ExternalStructureInspector + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Tools-Inspector'!
Item was added: + ----- Method: ExternalStructureInspector>>fieldList (in category 'accessing') ----- + fieldList + ^ (Array with: 'self: ', object defaultLabelForInspector with: 'all inst vars'), self recordFieldList!
Item was added: + ----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') ----- + recordFieldList + | fields | + fields := object class fields. + (fields first isKindOf: Array) ifFalse: [fields := Array with: fields]. + ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]!
Item was added: + ----- 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 added: + ----- 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: StandardToolSet class>>inspectorClassOf: (in category '*60Deprecated-inspecting') ----- + inspectorClassOf: anObject + + self deprecated: 'Use #inspectorClass.'. + ^ anObject inspectorClass!
Item was added: + ----- Method: ToolSet class>>inspectorClassOf: (in category '*60Deprecated-inspecting') ----- + inspectorClassOf: anObject + + self deprecated: 'Use #inspectorClass.'. + ^ anObject inspectorClass!
packages@lists.squeakfoundation.org