--- a/Tools__Inspector2.st	Tue Jun 04 16:21:31 2013 +0100
+++ b/Tools__Inspector2.st	Wed Jun 12 16:47:06 2013 +0100
@@ -430,14 +430,12 @@
         (
          (MenuItem
             label: 'File'
-            translateLabel: true
             submenu: 
            (Menu
               (
                (MenuItem
                   label: 'Exit'
                   itemValue: closeRequest
-                  translateLabel: true
                 )
                )
               nil
@@ -446,14 +444,12 @@
           )
          (MenuItem
             label: 'View'
-            translateLabel: true
             submenu: 
            (Menu
               (
                (MenuItem
                   label: 'Expand Arrays in "all xxx"-Lists'
                   itemValue: expandArraysInAllList:
-                  translateLabel: true
                   indication: expandArraysInAllList
                 )
                (MenuItem
@@ -461,7 +457,6 @@
                 )
                (MenuItem
                   label: 'Color Setting'
-                  translateLabel: true
                   submenuChannel: settingsMenu
                 )
                )
@@ -469,6 +464,28 @@
               nil
             )
           )
+         (MenuItem
+            label: 'Help'
+            startGroup: conditionalRight
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Documentation'
+                  itemValue: openDocumentation
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'About this Application...'
+                  itemValue: openAboutThisApplication
+                )
+               )
+              nil
+              nil
+            )
+          )
          )
         nil
         nil
@@ -495,52 +512,53 @@
         (
          (MenuItem
             label: 'Default'
-            nameKey: #'Default'
-            translateLabel: true
+            nameKey: Default
+            hideMenuOnActivated: false
             choice: colorProfileHolder
             choiceValue: default
           )
          (MenuItem
+            label: '-'
+          )
+         (MenuItem
             label: 'Red'
-            nameKey: #'Red'
-            translateLabel: true
+            nameKey: Red
+            hideMenuOnActivated: false
             choice: colorProfileHolder
             choiceValue: red
           )
          (MenuItem
             label: 'Green'
-            nameKey: #'Green'
-            translateLabel: true
+            nameKey: Green
+            hideMenuOnActivated: false
+            choice: colorProfileHolder
             choiceValue: green
-            choice: colorProfileHolder
           )
          (MenuItem
             label: 'Blue'
-            nameKey: #'Blue'
-            translateLabel: true
+            nameKey: Blue
+            hideMenuOnActivated: false
+            choice: colorProfileHolder
             choiceValue: blue
-            choice: colorProfileHolder
           )
          (MenuItem
             label: 'Yellow'
-            nameKey: #'Yellow'
-            translateLabel: true
+            nameKey: Yellow
+            hideMenuOnActivated: false
+            choice: colorProfileHolder
             choiceValue: yellow
-            choice: colorProfileHolder
           )
          (MenuItem
             label: 'Gray'
-            nameKey: #'Gray'
-            translateLabel: true
+            nameKey: Gray
+            hideMenuOnActivated: false
+            choice: colorProfileHolder
             choiceValue: gray
-            choice: colorProfileHolder
           )
          )
         nil
         nil
       )
-
-    "Modified: / 17-01-2012 / 13:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 toolbarMenu
@@ -912,6 +930,26 @@
 
     "Created: / 12-01-2008 / 18:57:30 / janfrog"
     "Modified: / 22-02-2008 / 16:58:11 / janfrog"
+!
+
+settingsMenu
+    |m|
+
+    m := self class settingsMenu decodeAsLiteralArray.
+    m itemsDo:[:eachItem |
+        |lbl labelWithColor clr|
+
+        lbl := resources string:eachItem label.
+        (eachItem choiceValue ? #default) ~~ #default ifTrue:[
+            clr := Color perform:eachItem choiceValue.
+            labelWithColor := lbl asText backgroundColorizeAllWith:clr.
+            clr brightness < 0.5 ifTrue:[
+                labelWithColor := labelWithColor colorizeAllWith:Color white.
+            ].
+            eachItem label:labelWithColor.
+        ].
+    ].
+    ^ m
 ! !
 
 !Inspector2 methodsFor:'menu actions'!
@@ -986,6 +1024,10 @@
     "Modified: / 15-07-2011 / 16:26:33 / cg"
 !
 
+openDocumentation
+    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'.
+!
+
 refreshTabs
     self navigationHistoryHolder currentItem refreshTabs.
     self tabViewAspect changed.
@@ -1073,11 +1115,11 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.36 2013-05-01 15:10:01 stefan Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 !
 
 version_SVN
-    ^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'
+    ^'$Id: Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1293,15 +1335,15 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.36 2013-05-01 15:10:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.36 2013-05-01 15:10:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 !
 
 version_CVS_jvrany
-    ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 !
 
 version_HG
@@ -1310,7 +1352,7 @@
 !
 
 version_SVN
-    ^ '§Id: Tools__Inspector2.st 7486 2009-10-26 22:06:24Z vranyj1 §'
+    ^ '$Id: Tools__Inspector2.st,v 1.37 2013-06-04 13:51:50 cg Exp $'
 ! !