--- a/TextView.st	Wed May 22 13:28:38 1996 +0200
+++ b/TextView.st	Wed May 22 13:30:33 1996 +0200
@@ -963,6 +963,28 @@
 
 !
 
+getFontParameters
+    "get some info of the used font. They are cached since we use them often ..
+     This is redefined here, to use the fonts maxHeight/maxAscent for
+     line separation. This is required, to allow for proper handling of
+     national characters, such as A-dieresis ..."
+
+    font := font on:device.
+    includesNonStrings == true ifTrue:[
+        "/ for now, we do not support variable height entries ...
+        fontHeight := list first heightOn:self
+    ] ifFalse:[
+        fontHeight := font maxHeight.
+    ].
+    fontHeight := fontHeight + lineSpacing.
+    fontAscent := font maxAscent.
+    fontWidth := font width.
+    fontIsFixedWidth := font isFixedWidth.
+
+    "Modified: 22.5.1996 / 12:02:47 / cg"
+    "Created: 22.5.1996 / 12:18:34 / cg"
+!
+
 scrollSelectDown
     "auto scroll action; scroll and reinstall timed-block"
 
@@ -2185,5 +2207,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.52 1996-05-18 09:39:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.53 1996-05-22 11:30:33 cg Exp $'
 ! !