--- a/Warning.st	Sat Apr 27 12:46:51 2019 +0200
+++ b/Warning.st	Tue Apr 30 13:00:22 2019 +0200
@@ -150,11 +150,35 @@
 showWarnDialog
     "open a warn box with description"
 
-    |text|
+    |maxLineLength text collectedLines|
 
+    maxLineLength := 150.
+    
     text := self description.
 
     (self suppressDialogIfUnhandled not and:[self hasDialog]) ifTrue:[
+        text := text asStringCollection.
+        (text contains:[:line | line size > maxLineLength]) ifTrue:[
+            collectedLines := StringCollection new.
+            text do:[:line |
+                |first|
+                
+                line size > maxLineLength ifTrue:[
+                    first := true.
+                    (line splitForSize:maxLineLength) do:[:eachPart |
+                        first ifTrue:[
+                            collectedLines add:eachPart.
+                            first := false.
+                        ] ifFalse:[
+                            collectedLines add:(('    >> ' withColor:Color lightGrey),eachPart)
+                        ].    
+                    ].
+                ] ifFalse:[
+                    collectedLines add:line
+                ].    
+            ].
+            text := collectedLines
+        ].    
         optionalTitle notNil ifTrue:[
             Dialog warn:text title:optionalTitle
         ] ifFalse:[    
@@ -174,7 +198,7 @@
     "
 
     "Modified: / 03-08-1999 / 14:06:41 / stefan"
-    "Modified: / 29-03-2019 / 10:55:28 / Claus Gittinger"
+    "Modified: / 30-04-2019 / 12:59:53 / Claus Gittinger"
 ! !
 
 !Warning class methodsFor:'documentation'!