The Inbox: Tools-ct.906.mcz

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] }!