2582 fontHeight := list first heightOn:self |
2582 fontHeight := list first heightOn:self |
2583 ] ifFalse:[ |
2583 ] ifFalse:[ |
2584 fontHeight := font maxHeight max:(italicFont maxHeight max:(boldFont maxHeight)). |
2584 fontHeight := font maxHeight max:(italicFont maxHeight max:(boldFont maxHeight)). |
2585 "/ fontHeight := font height "maxHeight" max:(italicFont height "maxHeight" max:(boldFont height "maxHeight")). |
2585 "/ fontHeight := font height "maxHeight" max:(italicFont height "maxHeight" max:(boldFont height "maxHeight")). |
2586 ]. |
2586 ]. |
2587 fontHeight := fontHeight + lineSpacing. |
2587 "/ fontHeight := fontHeight + lineSpacing. |
2588 "/ fontAscent := font ascent "maxAscent" max:(italicFont ascent "maxAscent" max:(boldFont ascent "maxAscent")). |
2588 "/ fontAscent := font ascent "maxAscent" max:(italicFont ascent "maxAscent" max:(boldFont ascent "maxAscent")). |
2589 fA := font ascent. |
2589 "/ fA := font ascent. |
2590 fA := (font maxAscent + font ascent) // 2. |
2590 fA := font maxAscent. |
2591 iA := italicFont ascent. |
2591 "/ fA := (font maxAscent + font ascent) // 2. |
2592 iA := (italicFont maxAscent + italicFont ascent) // 2. |
2592 "/ iA := italicFont ascent. |
2593 bA := boldFont ascent. |
2593 iA := italicFont maxAscent. |
2594 bA := (boldFont maxAscent + boldFont ascent) // 2. |
2594 "/ iA := (italicFont maxAscent + italicFont ascent) // 2. |
|
2595 "/ bA := boldFont ascent. |
|
2596 bA := boldFont maxAscent. |
|
2597 "/ bA := (boldFont maxAscent + boldFont ascent) // 2. |
2595 fontAscent := fA max:(iA max:bA). |
2598 fontAscent := fA max:(iA max:bA). |
2596 fontWidth := font width. |
2599 fontWidth := font width. |
2597 fontIsFixedWidth := font isFixedWidth and:[ italicFont isFixedWidth and:[ boldFont isFixedWidth ]]. |
2600 fontIsFixedWidth := font isFixedWidth and:[ italicFont isFixedWidth and:[ boldFont isFixedWidth ]]. |
2598 |
2601 |
2599 "Modified: 22.5.1996 / 12:02:47 / cg" |
2602 "Modified: 22.5.1996 / 12:02:47 / cg" |
4836 ! ! |
4839 ! ! |
4837 |
4840 |
4838 !TextView class methodsFor:'documentation'! |
4841 !TextView class methodsFor:'documentation'! |
4839 |
4842 |
4840 version |
4843 version |
4841 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.352 2013-04-26 11:09:57 cg Exp $' |
4844 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $' |
4842 ! |
4845 ! |
4843 |
4846 |
4844 version_CVS |
4847 version_CVS |
4845 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.352 2013-04-26 11:09:57 cg Exp $' |
4848 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $' |
4846 ! ! |
4849 ! ! |
4847 |
4850 |
4848 |
4851 |
4849 TextView initialize! |
4852 TextView initialize! |