equal
deleted
inserted
replaced
1994 |
1994 |
1995 |y l halfSpacing extraBelow| |
1995 |y l halfSpacing extraBelow| |
1996 |
1996 |
1997 y := self yOfVisibleLine:visLineNr. |
1997 y := self yOfVisibleLine:visLineNr. |
1998 backgroundAlreadyClearedColor == bg ifFalse:[ |
1998 backgroundAlreadyClearedColor == bg ifFalse:[ |
1999 self paint:bg. |
1999 gc paint:bg. |
2000 halfSpacing := (lineSpacing//2). |
2000 halfSpacing := (lineSpacing//2). |
2001 extraBelow := 0. |
2001 extraBelow := 0. |
2002 self highlightLineSpacing ifTrue:[ |
2002 self highlightLineSpacing ifTrue:[ |
2003 extraBelow := halfSpacing. |
2003 extraBelow := halfSpacing. |
2004 ]. |
2004 ]. |
2015 self suppressEmphasisInSelection ifTrue:[ |
2015 self suppressEmphasisInSelection ifTrue:[ |
2016 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
2016 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
2017 ] ifFalse:[ |
2017 ] ifFalse:[ |
2018 l := line |
2018 l := line |
2019 ]. |
2019 ]. |
|
2020 |
|
2021 "/ in the future, we may like to have a flag setting, which highlights non-ISO8859 characters; |
|
2022 "/ so we can tell, which chars make problems when saving as non-UTF8 |
|
2023 |
|
2024 "/ l string bytesPerCharacter > 1 ifTrue:[ |
|
2025 "/ l do:[:each | each bytesPerCharacter > 1 ifTrue:[ self halt ]]. |
|
2026 "/ ]. |
2020 gc displayOpaqueString:l x:x y:(y + fontAscent). |
2027 gc displayOpaqueString:l x:x y:(y + fontAscent). |
2021 |
2028 |
2022 checkedLinesForWidthOfContentsComputation == 0 ifTrue:[ |
2029 checkedLinesForWidthOfContentsComputation == 0 ifTrue:[ |
2023 self updateWidthOfWidestLineFor:l |
2030 self updateWidthOfWidestLineFor:l |
2024 ]. |
2031 ]. |