equal
deleted
inserted
replaced
1517 col:cursorCol |
1517 col:cursorCol |
1518 with:fgColor |
1518 with:fgColor |
1519 and:bgColor. |
1519 and:bgColor. |
1520 ^ self |
1520 ^ self |
1521 ]. |
1521 ]. |
1522 x := (self xOfCol:cursorCol inVisibleLine:cursorVisibleLine) - leftOffset. |
1522 x := (self xOfCol:cursorCol inVisibleLine:cursorVisibleLine) - viewOrigin x. |
1523 y := self yOfVisibleLine:cursorVisibleLine. |
1523 y := self yOfVisibleLine:cursorVisibleLine. |
1524 |
1524 |
1525 oldPaint := self paint. "/ do not clobber GC |
1525 oldPaint := self paint. "/ do not clobber GC |
1526 cursorType == #frame ifTrue:[ |
1526 cursorType == #frame ifTrue:[ |
1527 super redrawVisibleLine:cursorVisibleLine col:cursorCol. |
1527 super redrawVisibleLine:cursorVisibleLine col:cursorCol. |
1807 |
1807 |
1808 line := self visibleAt:cursorVisibleLine. |
1808 line := self visibleAt:cursorVisibleLine. |
1809 (line notNil and:[line isText]) ifTrue:[ |
1809 (line notNil and:[line isText]) ifTrue:[ |
1810 cursorCol > 1 ifTrue:[ |
1810 cursorCol > 1 ifTrue:[ |
1811 oldClip := self clippingRectangleOrNil. |
1811 oldClip := self clippingRectangleOrNil. |
1812 x := (self xOfCol:cursorCol inVisibleLine:cursorVisibleLine) - leftOffset. |
1812 x := (self xOfCol:cursorCol inVisibleLine:cursorVisibleLine) - viewOrigin x. |
1813 y := self yOfVisibleLine:cursorVisibleLine. |
1813 y := self yOfVisibleLine:cursorVisibleLine. |
1814 self clippingRectangle:(x@y extent:((font width * 2) @ fontHeight)). |
1814 self clippingRectangle:(x@y extent:((font width * 2) @ fontHeight)). |
1815 super redrawVisibleLine:cursorVisibleLine from:cursorCol-1 to:cursorCol. |
1815 super redrawVisibleLine:cursorVisibleLine from:cursorCol-1 to:cursorCol. |
1816 self clippingRectangle:oldClip. |
1816 self clippingRectangle:oldClip. |
1817 ^ self. |
1817 ^ self. |
2749 "/ (but we must clip, to avoid destoying the character before) |
2749 "/ (but we must clip, to avoid destoying the character before) |
2750 (newLine notNil and:[newLine isText]) ifTrue:[ |
2750 (newLine notNil and:[newLine isText]) ifTrue:[ |
2751 colNr > 1 ifTrue:[ |
2751 colNr > 1 ifTrue:[ |
2752 cursorVisibleLine notNil ifTrue:[ |
2752 cursorVisibleLine notNil ifTrue:[ |
2753 oldClip := self clippingRectangleOrNil. |
2753 oldClip := self clippingRectangleOrNil. |
2754 x := (self xOfCol:colNr inVisibleLine:cursorVisibleLine) - leftOffset. |
2754 x := (self xOfCol:colNr inVisibleLine:cursorVisibleLine) - viewOrigin x. |
2755 y := self yOfVisibleLine:cursorVisibleLine. |
2755 y := self yOfVisibleLine:cursorVisibleLine. |
2756 drawCharacterOnly ifTrue:[ |
2756 drawCharacterOnly ifTrue:[ |
2757 self clippingRectangle:(x@y extent:((font width * 2) @ fontHeight)). |
2757 self clippingRectangle:(x@y extent:((font width * 2) @ fontHeight)). |
2758 self redrawLine:lineNr from:colNr-1 to:colNr |
2758 self redrawLine:lineNr from:colNr-1 to:colNr |
2759 ] ifFalse:[ |
2759 ] ifFalse:[ |
5021 ! ! |
5021 ! ! |
5022 |
5022 |
5023 !EditTextView class methodsFor:'documentation'! |
5023 !EditTextView class methodsFor:'documentation'! |
5024 |
5024 |
5025 version |
5025 version |
5026 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.257 2001-10-04 16:53:28 cg Exp $' |
5026 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.258 2001-10-05 08:55:43 cg Exp $' |
5027 ! ! |
5027 ! ! |