57 inspectorExtraAttributes |
57 inspectorExtraAttributes |
58 |atts nameDict bindingDict| |
58 |atts nameDict bindingDict| |
59 |
59 |
60 atts := super inspectorExtraAttributes. |
60 atts := super inspectorExtraAttributes. |
61 builder notNil ifTrue:[ |
61 builder notNil ifTrue:[ |
62 (nameDict := builder namedComponents) notNil ifTrue:[ |
62 "/ (nameDict := builder namedComponents) notNil ifTrue:[ |
63 nameDict keysAndValuesDo:[:eachName :eachWidget | |
63 "/ nameDict keysAndValuesDo:[:eachName :eachWidget | |
64 atts add:('-[: ',eachName,' :]') -> [ nameDict at:eachName ]. |
64 "/ atts add:('-[: ',eachName,' :]') -> [ nameDict at:eachName ]. |
|
65 "/ ]. |
|
66 "/ ]. |
|
67 (bindingDict := builder bindings) notNil ifTrue:[ |
|
68 bindingDict keysAndValuesDo:[:eachName :eachAspect | |
|
69 atts add:('[',eachName allItalic,']') -> [ bindingDict at:eachName ]. |
65 ]. |
70 ]. |
66 ]. |
71 ]. |
67 (bindingDict := builder bindings) notNil ifTrue:[ |
72 atts add:('-- window automationID') -> [ builder window isNil |
68 bindingDict keysAndValuesDo:[:eachName :eachAspect | |
73 ifTrue:['«no window»'] |
69 atts add:('-~> ',eachName) -> [ bindingDict at:eachName ]. |
74 ifFalse:[builder window uuid] ]. |
70 ]. |
|
71 ]. |
|
72 ]. |
75 ]. |
73 ^ atts |
76 ^ atts |
|
77 |
|
78 "Modified: / 29-07-2018 / 13:38:11 / Claus Gittinger" |
74 ! ! |
79 ! ! |
75 |
80 |
76 !Array methodsFor:'inspecting'! |
81 !Array methodsFor:'inspecting'! |
77 |
82 |
78 inspectorValueStringInListFor:anInspector |
83 inspectorValueStringInListFor:anInspector |