--- a/Tools__Inspector2.st	Tue Mar 27 13:33:09 2018 +0200
+++ b/Tools__Inspector2.st	Tue Mar 27 17:14:06 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2006 by eXept Software AG
 	      All Rights Reserved
@@ -714,6 +712,13 @@
             label: '-'
           )
          (MenuItem
+            label: 'Set the Length Limit on Value Display Strings...'
+            itemValue: menuSetMaxValueDisplayStringLength
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
             label: 'Color Setting'
             submenuChannel: settingsMenu
           )
@@ -1283,6 +1288,21 @@
     ].
 !
 
+menuSetMaxValueDisplayStringLength
+    |s n|
+
+    s := Dialog request:'Set the max. length of displayed value strings (0 for unlimited):'
+            initialAnswer:(InspectorView defaultMaxValueDisplayStringLength) printString.
+    s notEmptyOrNil ifTrue:[
+        n := Integer readFrom:s onError:[
+                Dialog information:'Bad value'.
+                ^ self
+             ].
+        InspectorView defaultMaxValueDisplayStringLength:n.
+        InspectorView allInstancesDo:[:i | i maxValueDisplayStringLength:nil].
+    ].
+!
+
 openDocumentation
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#INSPECTOR'.
 !