summaryrefslogtreecommitdiffstats
path: root/tksao
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-07-10 20:33:29 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-07-10 20:33:29 (GMT)
commitcf4468acff823e103fda2c3a4c2fb612636ed08b (patch)
tree9b3d6b72065fb36a874cde0b61c1095e23efccc3 /tksao
parent357b16a4562dd55303d0914056b29304ab5a789f (diff)
downloadblt-cf4468acff823e103fda2c3a4c2fb612636ed08b.zip
blt-cf4468acff823e103fda2c3a4c2fb612636ed08b.tar.gz
blt-cf4468acff823e103fda2c3a4c2fb612636ed08b.tar.bz2
fix windows warp cursor
Diffstat (limited to 'tksao')
-rw-r--r--tksao/widget/widget.C7
1 files changed, 5 insertions, 2 deletions
diff --git a/tksao/widget/widget.C b/tksao/widget/widget.C
index df930dc..6aa2921 100644
--- a/tksao/widget/widget.C
+++ b/tksao/widget/widget.C
@@ -644,14 +644,17 @@ void Widget::warp(Vector& vv)
unsigned int msk;
XQueryPointer(display,Tk_WindowId(tkwin),&root,&child,
&rootx,&rooty,&winx,&winy,&msk);
+ int xx,yy;
+ Tk_GetRootCoords(tkwin,&xx,&yy);
+
XWarpPointer(display, None, Tk_WindowId(tkwin), 0, 0, 0, 0,
- winx+vv[0], winy+vv[1]);
+ rootx-xx+vv[0], rooty-yy+vv[1]);
#endif
}
void Widget::warpTo(Vector& vv)
{
-#if !(MAC_OSX_TK)
+#if !MAC_OSX_TK
XWarpPointer(display, None, Tk_WindowId(tkwin), 0, 0, 0, 0, vv[0], vv[1]);
#endif