[squeak-dev] The Trunk: 60Deprecated-mt.10.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 6 09:17:46 UTC 2018


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!



More information about the Squeak-dev mailing list