--- a/extensions.st	Sun Jul 29 10:17:00 2018 +0200
+++ b/extensions.st	Sun Jul 29 14:33:33 2018 +0200
@@ -59,18 +59,23 @@
 
     atts := super inspectorExtraAttributes.
     builder notNil ifTrue:[
-        (nameDict := builder namedComponents) notNil ifTrue:[
-            nameDict keysAndValuesDo:[:eachName :eachWidget |
-                atts add:('-[: ',eachName,' :]') -> [ nameDict at:eachName ].
+"/        (nameDict := builder namedComponents) notNil ifTrue:[
+"/            nameDict keysAndValuesDo:[:eachName :eachWidget |
+"/                atts add:('-[: ',eachName,' :]') -> [ nameDict at:eachName ].
+"/            ].
+"/        ].
+        (bindingDict := builder bindings) notNil ifTrue:[
+            bindingDict keysAndValuesDo:[:eachName :eachAspect |
+                atts add:('[',eachName allItalic,']') -> [ bindingDict at:eachName ].
             ].
         ].
-        (bindingDict := builder bindings) notNil ifTrue:[
-            bindingDict keysAndValuesDo:[:eachName :eachAspect |
-                atts add:('-~> ',eachName) -> [ bindingDict at:eachName ].
-            ].
-        ].
+        atts add:('-- window automationID') -> [ builder window isNil
+                                                ifTrue:['«no window»']
+                                                ifFalse:[builder window uuid] ].
     ].
     ^ atts
+
+    "Modified: / 29-07-2018 / 13:38:11 / Claus Gittinger"
 ! !
 
 !Array methodsFor:'inspecting'!