# HG changeset patch # User Claus Gittinger # Date 1454922290 -3600 # Node ID c14ee2bcedea768499d932d65f0c62510a72f9a3 # Parent 68dbe2a5ea55bdbdce6ead10eb63cdb5635a2fcc #DOCUMENTATION class: ListView comment/format in: #drawFromVisibleLine:to:with:and: #heightOfContents typo diff -r 68dbe2a5ea55 -r c14ee2bcedea ListView.st --- a/ListView.st Mon Feb 08 10:04:26 2016 +0100 +++ b/ListView.st Mon Feb 08 10:04:50 2016 +0100 @@ -1936,7 +1936,7 @@ (startLine <= e) ifTrue:[ x := textStartLeft - viewOrigin x. self paint:fg on:bg. - "/ dont use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView) + "/ don't use list from:to:do:, to allow for subclasses to redefine the enumeration (TableView) self from:startLine to:e do:[:line | line notNil ifTrue:[ "/ remove line's color emphasis, to enforce color. @@ -3457,13 +3457,13 @@ need device-font for query " font := font onDevice:device. - ^ numLines * fontHeight "dont take font height here - think of LabelAndIcons" + ^ numLines * fontHeight "don't take font height here - think of LabelAndIcons" "/ + textStartTop - - (lineSpacing // 2) - + (font descent) + - (lineSpacing // 2) + + (font descent) "/ + (font descent) "/ + (font descent * 2) "makes it look better" - . + . "/ "it used to be that code - which is wrong" "/ (nLinesShown == nFullLinesShown) ifTrue:[