--- a/XftFontDescription.st Sun Oct 11 07:57:11 2015 +0100
+++ b/XftFontDescription.st Sun Oct 11 08:27:36 2015 +0100
@@ -600,11 +600,13 @@
displayString:aString from:index1 to:index2Arg x:xArg y:yArg in:aGC opaque:opaque
"display a partial string at some position in aGC."
-
- |index2 bytesPerCharacter transformation clipR clipX clipY clipW clipH fg fgR fgG fgB fgA fgPixel
- bg bgR bgG bgB bgA bgPixel drawX drawY displayId screen drawableId drawId drawIdIsShared error stringLen drawPnt clipPnt |
-
-
+
+ |index2 bytesPerCharacter transformation
+ clipR clipX clipY clipW clipH clipPnt
+ fg fgR fgG fgB fgA fgPixel bg bgR bgG bgB bgA bgPixel
+ drawX drawY drawPnt displayId screen drawableId error stringLen drawId drawIdIsShared
+ newXftDrawId newDrawableAssociation|
+
"limit the string len, otherwise bad output is generated"
stringLen := index2Arg - index1 + 1.
stringLen > 8000 ifTrue:[