equal
deleted
inserted
replaced
30 ! ! |
30 ! ! |
31 |
31 |
32 !ApplicationModel methodsFor:'debugging'! |
32 !ApplicationModel methodsFor:'debugging'! |
33 |
33 |
34 inspectorExtraAttributes |
34 inspectorExtraAttributes |
35 |atts| |
35 |atts dict| |
36 |
36 |
37 atts := super inspectorExtraAttributes. |
37 atts := super inspectorExtraAttributes. |
38 builder notNil ifTrue:[ |
38 builder notNil ifTrue:[ |
39 builder namedComponents keysAndValuesDo:[:eachName :eachWidget | |
39 (dict := builder namedComponents) notNil ifTrue:[ |
40 atts add:('-[: ',eachName,' :]') -> [ builder namedComponents at:eachName ]. |
40 dict keysAndValuesDo:[:eachName :eachWidget | |
|
41 atts add:('-[: ',eachName,' :]') -> [ dict at:eachName ]. |
|
42 ]. |
41 ]. |
43 ]. |
42 builder bindings notNil ifTrue:[ |
44 (dict := builder bindings) notNil ifTrue:[ |
43 builder bindings keysAndValuesDo:[:eachName :eachAspect | |
45 dict keysAndValuesDo:[:eachName :eachAspect | |
44 atts add:('-~> ',eachName) -> [ builder bindings at:eachName ]. |
46 atts add:('-~> ',eachName) -> [ dict at:eachName ]. |
45 ]. |
47 ]. |
46 ]. |
48 ]. |
47 ]. |
49 ]. |
48 ^ atts |
50 ^ atts |
49 ! ! |
51 ! ! |