--- rxvt-unicode/src/rxvtperl.xs	2006/01/06 03:40:19	1.29
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/06 05:28:55	1.30
@@ -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,13 @@
         OUTPUT:
         RETVAL
 
+U32
+rxvt_term::vt ()
+	CODE:
+        RETVAL = THIS->vt;
+        OUTPUT:
+        RETVAL
+
 U32
 rxvt_term::rstyle (U32 new_rstyle = THIS->rstyle)
 	CODE: