Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: TextView
authorClaus Gittinger <cg@exept.de>
Fri, 26 Apr 2013 15:28:29 +0200
changeset 4579 3a5a72358a0a
parent 4578 9a81e7074007
child 4580 d888cfb6a97c
class: TextView changed: #getFontParameters
TextView.st file | annotate | diff | comparison | revisions 
--- a/TextView.st	Fri Apr 26 15:28:21 2013 +0200
+++ b/TextView.st	Fri Apr 26 15:28:29 2013 +0200
@@ -2581,19 +2581,19 @@
         "/ for now, we do not support variable height entries ...
         fontHeight := list first heightOn:self
     ] ifFalse:[
-        fontHeight := font maxHeight max:(italicFont maxHeight max:(boldFont maxHeight)).
-        "/ fontHeight := font height "maxHeight" max:(italicFont height "maxHeight" max:(boldFont height "maxHeight")).
+        "/ fontHeight := font maxHeight max:(italicFont maxHeight max:(boldFont maxHeight)).
+        fontHeight := font height "maxHeight" max:(italicFont height "maxHeight" max:(boldFont height "maxHeight")).
     ].
-    "/ fontHeight := fontHeight + lineSpacing.
+    fontHeight := fontHeight + lineSpacing.
     "/ fontAscent := font ascent "maxAscent" max:(italicFont ascent "maxAscent" max:(boldFont ascent "maxAscent")).
-    "/ fA := font ascent. 
-    fA := font maxAscent. 
+    fA := font ascent. 
+    "/ fA := font maxAscent. 
     "/ fA := (font maxAscent + font ascent) // 2. 
-    "/ iA := italicFont ascent. 
-    iA := italicFont maxAscent. 
+    iA := italicFont ascent. 
+    "/ iA := italicFont maxAscent. 
     "/ iA := (italicFont maxAscent + italicFont ascent) // 2. 
-    "/ bA := boldFont ascent. 
-    bA := boldFont maxAscent. 
+    bA := boldFont ascent. 
+    "/ bA := boldFont maxAscent. 
     "/ bA := (boldFont maxAscent + boldFont ascent) // 2. 
     fontAscent := fA max:(iA max:bA).
     fontWidth := font width.
@@ -4841,11 +4841,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.354 2013-04-26 13:28:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.354 2013-04-26 13:28:29 cg Exp $'
 ! !
hg/stx-libwidg