equal
deleted
inserted
replaced
1934 ]. |
1934 ]. |
1935 |
1935 |
1936 (startLine <= e) ifTrue:[ |
1936 (startLine <= e) ifTrue:[ |
1937 x := textStartLeft - viewOrigin x. |
1937 x := textStartLeft - viewOrigin x. |
1938 self paint:fg on:bg. |
1938 self paint:fg on:bg. |
1939 "/ dont use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView) |
1939 "/ don't use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView) |
1940 self from:startLine to:e do:[:line | |
1940 self from:startLine to:e do:[:line | |
1941 line notNil ifTrue:[ |
1941 line notNil ifTrue:[ |
1942 "/ remove line's color emphasis, to enforce color. |
1942 "/ remove line's color emphasis, to enforce color. |
1943 "/ otherwise blue text is not visible if selection-bg is blue |
1943 "/ otherwise blue text is not visible if selection-bg is blue |
1944 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
1944 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
3455 "/ ]. |
3455 "/ ]. |
3456 " |
3456 " |
3457 need device-font for query |
3457 need device-font for query |
3458 " |
3458 " |
3459 font := font onDevice:device. |
3459 font := font onDevice:device. |
3460 ^ numLines * fontHeight "dont take font height here - think of LabelAndIcons" |
3460 ^ numLines * fontHeight "don't take font height here - think of LabelAndIcons" |
3461 "/ + textStartTop |
3461 "/ + textStartTop |
3462 - (lineSpacing // 2) |
3462 - (lineSpacing // 2) |
3463 + (font descent) |
3463 + (font descent) |
3464 "/ + (font descent) |
3464 "/ + (font descent) |
3465 "/ + (font descent * 2) "makes it look better" |
3465 "/ + (font descent * 2) "makes it look better" |
3466 . |
3466 . |
3467 |
3467 |
3468 "/ "it used to be that code - which is wrong" |
3468 "/ "it used to be that code - which is wrong" |
3469 "/ (nLinesShown == nFullLinesShown) ifTrue:[ |
3469 "/ (nLinesShown == nFullLinesShown) ifTrue:[ |
3470 "/ ^ numLines * fontHeight |
3470 "/ ^ numLines * fontHeight |
3471 "/ ]. |
3471 "/ ]. |