2579 |
2579 |
2580 includesNonStrings == true ifTrue:[ |
2580 includesNonStrings == true ifTrue:[ |
2581 "/ for now, we do not support variable height entries ... |
2581 "/ for now, we do not support variable height entries ... |
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. |
2590 "/ fA := font maxAscent. |
2591 "/ fA := (font maxAscent + font ascent) // 2. |
2591 "/ fA := (font maxAscent + font ascent) // 2. |
2592 "/ iA := italicFont ascent. |
2592 iA := italicFont ascent. |
2593 iA := italicFont maxAscent. |
2593 "/ iA := italicFont maxAscent. |
2594 "/ iA := (italicFont maxAscent + italicFont ascent) // 2. |
2594 "/ iA := (italicFont maxAscent + italicFont ascent) // 2. |
2595 "/ bA := boldFont ascent. |
2595 bA := boldFont ascent. |
2596 bA := boldFont maxAscent. |
2596 "/ bA := boldFont maxAscent. |
2597 "/ bA := (boldFont maxAscent + boldFont ascent) // 2. |
2597 "/ bA := (boldFont maxAscent + boldFont ascent) // 2. |
2598 fontAscent := fA max:(iA max:bA). |
2598 fontAscent := fA max:(iA max:bA). |
2599 fontWidth := font width. |
2599 fontWidth := font width. |
2600 fontIsFixedWidth := font isFixedWidth and:[ italicFont isFixedWidth and:[ boldFont isFixedWidth ]]. |
2600 fontIsFixedWidth := font isFixedWidth and:[ italicFont isFixedWidth and:[ boldFont isFixedWidth ]]. |
2601 |
2601 |
4839 ! ! |
4839 ! ! |
4840 |
4840 |
4841 !TextView class methodsFor:'documentation'! |
4841 !TextView class methodsFor:'documentation'! |
4842 |
4842 |
4843 version |
4843 version |
4844 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $' |
4844 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.354 2013-04-26 13:28:29 cg Exp $' |
4845 ! |
4845 ! |
4846 |
4846 |
4847 version_CVS |
4847 version_CVS |
4848 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.353 2013-04-26 12:53:56 cg Exp $' |
4848 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.354 2013-04-26 13:28:29 cg Exp $' |
4849 ! ! |
4849 ! ! |
4850 |
4850 |
4851 |
4851 |
4852 TextView initialize! |
4852 TextView initialize! |