--- a/XWorkstation.st	Tue Aug 22 16:15:55 2000 +0200
+++ b/XWorkstation.st	Wed Aug 23 01:22:05 2000 +0200
@@ -22,7 +22,7 @@
 		eventRootY displayName eventTrace dispatchingExpose rgbVisual
 		virtualRootId rootId eventBuffer altModifierMask metaModifierMask
 		multiClickTime deviceIOTimeoutErrorSignal activateOnClick'
-	classVariableNames:'RawKeysymTranslation ConservativeSync'
+	classVariableNames:'RawKeysymTranslation ConservativeSync MaxStringLength'
 	poolDictionaries:''
 	category:'Interface-Graphics'
 !
@@ -482,18 +482,22 @@
 
     ConservativeSync := OperatingSystem platformName == #win32.
 
+    "/ some XServers crash, when given too long strings in XDrawString/XDrawInageString.
+    "/ the following is an adjustable soft-limit.
+    MaxStringLength := 4096.
+
     RawKeysymTranslation isNil ifTrue:[
-	"/ the following table maps X-keyevents to ST/X
-	"/ device independed events. 
-	"/ It is NOT meant as a keyboardMap replacement.
-
-	RawKeysymTranslation := d := Dictionary new.
-	d at:'Delete_line' put:#DeleteLine.
-	d at:'Delete_word' put:#DeleteWord.
-	d at:'Down' put:#CursorDown.
-	d at:'Up' put:#CursorUp.
-	d at:'Left' put:#CursorLeft.
-	d at:'Right' put:#CursorRight.
+        "/ the following table maps X-keyevents to ST/X
+        "/ device independed events. 
+        "/ It is NOT meant as a keyboardMap replacement.
+
+        RawKeysymTranslation := d := Dictionary new.
+        d at:'Delete_line' put:#DeleteLine.
+        d at:'Delete_word' put:#DeleteWord.
+        d at:'Down' put:#CursorDown.
+        d at:'Up' put:#CursorUp.
+        d at:'Left' put:#CursorLeft.
+        d at:'Right' put:#CursorRight.
     ]
 
     "Modified: / 27.4.1999 / 17:21:30 / cg"
@@ -11416,6 +11420,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.368 2000-08-21 22:45:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.369 2000-08-22 23:22:05 cg Exp $'
 ! !
 XWorkstation initialize!