equal
deleted
inserted
replaced
2128 (item isText and:[item hasChangeOfEmphasis]) ifTrue:[ |
2128 (item isText and:[item hasChangeOfEmphasis]) ifTrue:[ |
2129 t := Text string:item string emphasisCollection:item emphasis asArray. |
2129 t := Text string:item string emphasisCollection:item emphasis asArray. |
2130 t emphasisAllRemove:#color. |
2130 t emphasisAllRemove:#color. |
2131 self |
2131 self |
2132 drawLine:t |
2132 drawLine:t |
2133 atX:(textStartLeft - leftOffset) |
2133 atX:(textStartLeft - viewOrigin x) |
2134 inVisible:visLineNr |
2134 inVisible:visLineNr |
2135 with:fg |
2135 with:fg |
2136 and:bg |
2136 and:bg |
2137 ] ifFalse:[ |
2137 ] ifFalse:[ |
2138 (item class == LabelAndIcon |
2138 (item class == LabelAndIcon |
2141 t := Text string:t string emphasisCollection:t emphasis asArray. |
2141 t := Text string:t string emphasisCollection:t emphasis asArray. |
2142 t emphasisAllRemove:#color. |
2142 t emphasisAllRemove:#color. |
2143 t := LabelAndIcon icon:item icon string:t. |
2143 t := LabelAndIcon icon:item icon string:t. |
2144 self |
2144 self |
2145 drawLine:t |
2145 drawLine:t |
2146 atX:(textStartLeft - leftOffset) |
2146 atX:(textStartLeft - viewOrigin x) |
2147 inVisible:visLineNr |
2147 inVisible:visLineNr |
2148 with:fg |
2148 with:fg |
2149 and:bg |
2149 and:bg |
2150 ] ifFalse:[ |
2150 ] ifFalse:[ |
2151 self drawVisibleLine:visLineNr with:fg and:bg. |
2151 self drawVisibleLine:visLineNr with:fg and:bg. |
2186 " |
2186 " |
2187 wEdge := width-(2 * margin). |
2187 wEdge := width-(2 * margin). |
2188 includesNonStrings ifFalse:[ |
2188 includesNonStrings ifFalse:[ |
2189 wEdge := wEdge max:(self widthOfContents). |
2189 wEdge := wEdge max:(self widthOfContents). |
2190 ]. |
2190 ]. |
2191 self drawEdgesForX:(margin - leftOffset) y:y |
2191 self drawEdgesForX:(margin - viewOrigin x) y:y |
2192 width:wEdge+leftOffset height:fontHeight |
2192 width:wEdge+viewOrigin x height:fontHeight |
2193 level:hilightLevel. |
2193 level:hilightLevel. |
2194 |
2194 |
2195 |
2195 |
2196 ]. |
2196 ]. |
2197 ^ self |
2197 ^ self |
4020 ! ! |
4020 ! ! |
4021 |
4021 |
4022 !SelectionInListView class methodsFor:'documentation'! |
4022 !SelectionInListView class methodsFor:'documentation'! |
4023 |
4023 |
4024 version |
4024 version |
4025 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.195 2001-09-28 13:25:26 cg Exp $' |
4025 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.196 2001-10-05 08:56:24 cg Exp $' |
4026 ! ! |
4026 ! ! |