--- a/Tools__ViewTreeApplication.st	Sun May 19 11:49:14 2019 +0200
+++ b/Tools__ViewTreeApplication.st	Mon May 27 13:28:21 2019 +0200
@@ -3300,9 +3300,15 @@
     |specClass model|
 
     menuItem notNil ifTrue:[
-	menuItem label isImage ifTrue:[
-	    ^ menuItem label magnifiedTo:20@20.
-	].
+        menuItem isSeparator ifTrue:[
+            (parent widget perform:#isVerticalLayout ifNotUnderstood:[^ DividerSpec icon]) ifTrue:[
+                ^ DividerSpec horizontalIcon.
+            ].    
+            ^ DividerSpec verticalIcon.
+        ].    
+        menuItem label isImage ifTrue:[
+            ^ menuItem label magnifiedTo:20@20.
+        ].
     ].
 
     specClass := self specClass.
@@ -3310,11 +3316,12 @@
 
     model := self treeModel.
     model notNil ifTrue:[
-	^ model iconAt:specClass ifNonePut:[specClass icon]
+        ^ model iconAt:specClass ifNonePut:[specClass icon]
     ].
     ^ specClass icon
 
     "Modified: / 16-08-2017 / 13:00:35 / cg"
+    "Modified: / 27-05-2019 / 13:27:28 / Claus Gittinger"
 !
 
 label
@@ -4764,35 +4771,46 @@
 additionalLabelForItem:anItem
     "answer the additional lable for an item or nil"
 
-    |widget l applClass applClassName key|
+    |widget l applClass applClassName key label|
 
     l := nil.
     showWidgetNames == true ifTrue:[
-	(widget := anItem widget) notNil ifTrue:[
-	    l := '"', widget name, '"'
-	] ifFalse:[
-	    l := '"', anItem menuItem label asString, '"'
-	].
+        (widget := anItem widget) notNil ifTrue:[
+            l := '"', widget name, '"'
+        ] ifFalse:[
+            "/ a menuItem
+            anItem menuItem isSeparator ifTrue:[
+            ] ifFalse:[    
+                label := anItem menuItem label.
+                label isImage ifTrue:[
+                    l := ''
+                ] ifFalse:[
+                    l := '"', label asString, '"'
+                ].
+                l := l , ' value: ',anItem menuItem itemValue printString.
+            ].
+        ].
     ].
 
     anItem isApplicationClass ifTrue:[
-	applClass := anItem applicationClass.
-	applClass notNil ifTrue:[
-	    applClassName := '[', applClass name allBold, ']'.
-	    l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
-	].
+        applClass := anItem applicationClass.
+        applClass notNil ifTrue:[
+            applClassName := '[', applClass name allBold, ']'.
+            l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
+        ].
     ].
 
     application notNil ifTrue:[
-	key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
-	key notNil ifTrue:[
-	    l := l , ' #',key
-	].
+        key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
+        key notNil ifTrue:[
+            l := l , ' #',key
+        ].
     ].
 
     ^ l
 
     "Modified: / 16-08-2017 / 12:47:12 / cg"
+    "Modified: / 27-05-2019 / 13:19:35 / Claus Gittinger"
 !
 
 showWidgetNames