--- a/FlyByHelp.st	Fri Oct 04 20:28:31 2013 +0200
+++ b/FlyByHelp.st	Mon Oct 14 17:44:31 2013 +0200
@@ -13,7 +13,7 @@
 
 ActiveHelp subclass:#FlyByHelp
 	instanceVariableNames:'currentFrame currentView currentHelpView showProcess closeProcess'
-	classVariableNames:''
+	classVariableNames:'MaxNumberOfLines MaxNumberOfColumns'
 	poolDictionaries:''
 	category:'Interface-Help'
 !
@@ -53,6 +53,14 @@
     ^ TheOneAndOnlyHelpListener currentlyShownView
 
     "Modified: / 09-06-2010 / 16:35:48 / cg"
+!
+
+maxNumberOfColumns
+    ^ MaxNumberOfColumns ? 200
+!
+
+maxNumberOfLines
+    ^ MaxNumberOfLines ? 40
 ! !
 
 !FlyByHelp methodsFor:'defaults'!
@@ -355,11 +363,11 @@
 
     lastHelpText := aHelpText.
     helpTextShown := aHelpText.
-    textLines := helpTextShown asCollectionOfLines asStringCollection.
-    textLines size > 40 ifTrue:[
-        textLines := (textLines copyTo:40) copyWith:'...'
+    textLines := helpTextShown withCRs asCollectionOfLines asStringCollection.
+    textLines size > (self class maxNumberOfLines) ifTrue:[
+        textLines := (textLines copyTo:(self class maxNumberOfLines)) copyWith:'...'
     ].
-    textLines := textLines collect:[:l | l contractAtEndTo:100].
+    textLines := textLines collect:[:l | l contractAtEndTo:(self class maxNumberOfColumns)].
     helpTextShown := textLines asString.
 
     (p := closeProcess) notNil ifTrue:[
@@ -442,10 +450,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.61 2013-09-19 16:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.62 2013-10-14 15:44:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.61 2013-09-19 16:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.62 2013-10-14 15:44:31 cg Exp $'
 ! !