[squeak-dev] The Inbox: Tools-ct.906.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Oct 13 21:17:59 UTC 2019
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] }!
More information about the Squeak-dev
mailing list
|