equal
deleted
inserted
replaced
1977 |
1977 |
1978 |y l halfSpacing extraBelow| |
1978 |y l halfSpacing extraBelow| |
1979 |
1979 |
1980 y := self yOfVisibleLine:visLineNr. |
1980 y := self yOfVisibleLine:visLineNr. |
1981 backgroundAlreadyClearedColor == bg ifFalse:[ |
1981 backgroundAlreadyClearedColor == bg ifFalse:[ |
1982 self paint:bg. |
1982 gc paint:bg. |
1983 halfSpacing := (lineSpacing//2). |
1983 halfSpacing := (lineSpacing//2). |
1984 extraBelow := 0. |
1984 extraBelow := 0. |
1985 self highlightLineSpacing ifTrue:[ |
1985 self highlightLineSpacing ifTrue:[ |
1986 extraBelow := halfSpacing. |
1986 extraBelow := halfSpacing. |
1987 ]. |
1987 ]. |
1998 self suppressEmphasisInSelection ifTrue:[ |
1998 self suppressEmphasisInSelection ifTrue:[ |
1999 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
1999 l := self withoutColorEmphasis:line ifFg:fg andBg:bg. |
2000 ] ifFalse:[ |
2000 ] ifFalse:[ |
2001 l := line |
2001 l := line |
2002 ]. |
2002 ]. |
|
2003 |
|
2004 "/ in the future, we may like to have a flag setting, which highlights non-ISO8859 characters; |
|
2005 "/ so we can tell, which chars make problems when saving as non-UTF8 |
|
2006 |
|
2007 "/ l string bytesPerCharacter > 1 ifTrue:[ |
|
2008 "/ l do:[:each | each bytesPerCharacter > 1 ifTrue:[ self halt ]]. |
|
2009 "/ ]. |
2003 gc displayOpaqueString:l x:x y:(y + fontAscent). |
2010 gc displayOpaqueString:l x:x y:(y + fontAscent). |
2004 |
2011 |
2005 checkedLinesForWidthOfContentsComputation == 0 ifTrue:[ |
2012 checkedLinesForWidthOfContentsComputation == 0 ifTrue:[ |
2006 self updateWidthOfWidestLineFor:l |
2013 self updateWidthOfWidestLineFor:l |
2007 ]. |
2014 ]. |