--- rxvt-unicode/src/rxvtperl.xs	2006/01/06 03:40:19	1.29
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/06 05:37:59	1.31
@@ -3,7 +3,7 @@
  *----------------------------------------------------------------------*
  *
  * All portions of code are copyright by their respective author/s.
- * Copyright (c) 2005-2005 Marc Lehmann <pcg@goof.com>
+ * Copyright (c) 2005-2006 Marc Lehmann <pcg@goof.com>
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -503,6 +503,8 @@
                   setiv (time,   xe->xmotion.time);
                   setiv (x,      xe->xmotion.x);
                   setiv (y,      xe->xmotion.y);
+                  setiv (row,    xe->xmotion.y / term->fheight);
+                  setiv (col,    xe->xmotion.x / term->fwidth);
                   setiv (x_root, xe->xmotion.x_root);
                   setiv (y_root, xe->xmotion.y_root);
                   setiv (state,  xe->xmotion.state);
@@ -796,6 +798,20 @@
         OUTPUT:
         RETVAL
 
+U32
+rxvt_term::parent ()
+	CODE:
+        RETVAL = (U32)THIS->parent [0];
+        OUTPUT:
+        RETVAL
+
+U32
+rxvt_term::vt ()
+	CODE:
+        RETVAL = (U32)THIS->vt;
+        OUTPUT:
+        RETVAL
+
 U32
 rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
 	CODE: