A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.906.mcz

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

Name: Tools-ct.906
Author: ct
Time: 13 October 2019, 11:17:54.382932 pm
UUID: addb22f5-135f-894f-b07a-8afbecd297c5
Ancestors: Tools-ct.900

I mixed up #asTextFromHtml with the *widgets version, sorry :(

=============== Diff against Tools-ct.900 ===============

Item was changed:
  ----- Method: CompiledMethodInspector>>createSlotSpecs (in category 'accessing') -----
  createSlotSpecs
  
  	| keys |
  	keys := super createSlotSpecs first: 1.
  	keys
+ 		at: '<i>all bytecodes</i>' asTextFromHtml put: #byteCodes;
+ 		at: '<i>header</i>' asTextFromHtml put: #header.
- 		at: '<i>all bytecodes</i>' asHtmlText put: #byteCodes;
- 		at: '<i>header</i>' asHtmlText put: #header.
  	keys addAll: (
  		(1 to: object numLiterals) collect: [:i | 'literal', i -> {#literal. i}]).
  	keys addAll: (self truncateList: (
  		(object initialPC to: object size) collect: [:pc | pc asString -> {#pc. pc}])).
  	^ keys!

Item was changed:
  ----- Method: ContextVariablesInspector>>createSlotSpecs (in category 'accessing') -----
  createSlotSpecs
  	"Refer to the comment in Inspector|fieldList."
  
  	object == nil ifTrue: [^ OrderedDictionary new].
  	^ fieldList ifNil: [ | styler |
  		styler := SHTextStylerST80 new.
  		styler context: object.
  		fieldList := OrderedDictionary newFrom: {
  			(styler styledTextFor: 'thisContext' asText) -> #thisContext.
+ 			'<i>stack top</i>' asTextFromHtml -> #stackTop.
+ 			'<i>all temp vars</i>' asTextFromHtml -> #allTempVars }
- 			'<i>stack top</i>' asHtmlText -> #stackTop.
- 			'<i>all temp vars</i>' asHtmlText -> #allTempVars }
  			, (object tempNames collectWithIndex: [:name :index |
  				(styler styledTextFor: name asText) -> {#tempVar. index}])]!

Item was changed:
  ----- Method: Inspector>>createBaseSlotSpecs (in category 'accessing') -----
  createBaseSlotSpecs
  
  	^ OrderedDictionary newFrom: {
  		(SHTextStylerST80 new styledTextFor: 'self' asText) -> #self.
+ 		'<i>all inst vars</i>' asTextFromHtml -> #allInstVars }
- 		'<i>all inst vars</i>' asHtmlText -> #allInstVars }
  		, (object class allInstVarNames withIndexCollect: [:name :index |
  			name -> {#instVar. index}])!

Item was changed:
  ----- Method: Inspector>>printStringErrorText (in category 'toolbuilder') -----
  printStringErrorText
  
  	| command |
  	command := self typeOfSelection = #allInstVars
  		ifTrue: ['self longPrintString']
  		ifFalse: ['{1} printString' format: {self nameOfSelection}].
  	^ '<{1} evaluate "{2}" to debug>' asText
  		addAttribute: TextColor red;
  		format: {
+ 			'<b>error in #printString:</b>' asTextFromHtml.
- 			'<b>error in #printString:</b>' asHtmlText.
  			Smalltalk isMorphic
  				ifTrue: [command asText
  					addAttribute: (PluggableTextAttribute evalBlock: [Compiler evaluate: command for: self object]);
  					yourself]
  				ifFalse: [command] }!