Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge jv
authorMerge Script
Mon, 08 Feb 2016 06:59:31 +0100
branchjv
changeset 5582 49e7df836f07
parent 5580 1ebfdd6387df (current diff)
parent 5581 1533cccf60af (diff)
child 5596 c5f3ebcef742
Merge
EditTextView.st file | annotate | diff | comparison | revisions 
--- a/EditTextView.st	Wed Feb 03 07:07:58 2016 +0100
+++ b/EditTextView.st	Mon Feb 08 06:59:31 2016 +0100
@@ -2305,7 +2305,7 @@
         self paint:bgColor.
         cursorType == #ibeam ifTrue:[
             x1 := x - 1.
-            y2 := y + fontHeight - lineSpacing.
+            y2 := y + fontHeight - lineSpacing - 1.
             self displayLineFromX:x1 y:y toX:x1 y:y2.
             self displayLineFromX:x y:y toX:x y:y2.
             ^ self
@@ -2314,7 +2314,7 @@
         cursorType == #Ibeam ifTrue:[
             x1 := x - 1.
             y := y + 1.
-            y2 := y + fontHeight - lineSpacing.
+            y2 := y + fontHeight - lineSpacing - 1.
             self displayLineFromX:x1 y:y toX:x1 y:y2.
             self displayLineFromX:x y:y toX:x y:y2.
             self displayLineFromX:x1-2 y:y toX:x+2 y:y.
hg/stx-libwidg