summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorculler <culler>2020-05-12 17:58:27 (GMT)
committerculler <culler>2020-05-12 17:58:27 (GMT)
commit5a63e8e71bdc37625feb31ba5ae1101597198a86 (patch)
treea976083c658e38ea850fb6ba4052998ff8558e0d
parentf474a082901a4f23a0bdd72c133c1934c5e76b7f (diff)
parentb7a61c5313ae2864eb2cb6a9404b9a8e1159b7d4 (diff)
downloadtk-5a63e8e71bdc37625feb31ba5ae1101597198a86.zip
tk-5a63e8e71bdc37625feb31ba5ae1101597198a86.tar.gz
tk-5a63e8e71bdc37625feb31ba5ae1101597198a86.tar.bz2
Aqua: Fix an error in Tk_SetCaretPos.
-rw-r--r--macosx/tkMacOSXKeyEvent.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/macosx/tkMacOSXKeyEvent.c b/macosx/tkMacOSXKeyEvent.c
index d09a9a5..55c36ce 100644
--- a/macosx/tkMacOSXKeyEvent.c
+++ b/macosx/tkMacOSXKeyEvent.c
@@ -866,7 +866,6 @@ Tk_SetCaretPos(
* key events. We use the TKContextView coordinate system for this.
*/
- caret_x = x;
caret_height = height;
while (!Tk_IsTopLevel(tkwin)) {
x += Tk_X(tkwin);
@@ -876,6 +875,7 @@ Tk_SetCaretPos(
return;
}
}
+ caret_x = x;
caret_y = Tk_Height(tkwin) - y;
}