--- rxvt-unicode/src/rxvtperl.xs	2006/01/09 01:36:56	1.46
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/09 23:00:07	1.51
@@ -31,8 +31,9 @@
 #include <cstddef>
 #include <cstdarg>
 
-#include "rxvt.h"
 #include "iom.h"
+#include "rxvt.h"
+#include "keyboard.h"
 #include "rxvtutil.h"
 #include "rxvtperl.h"
 
@@ -461,20 +462,25 @@
     {
       // handled later
     }
-  else if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
+  else
     {
-      HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
-
-      if (HvKEYS (hv))
+      if (htype == HOOK_REFRESH_BEGIN || htype == HOOK_REFRESH_END)
         {
-          hv_iterinit (hv);
+          HV *hv = (HV *)SvRV (*hv_fetch ((HV *)SvRV ((SV *)term->perl.self), "_overlay", 8, 0));
+
+          if (HvKEYS (hv))
+            {
+              hv_iterinit (hv);
+
+              while (HE *he = hv_iternext (hv))
+                ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
+            }
 
-          while (HE *he = hv_iternext (hv))
-            ((overlay *)SvIV (hv_iterval (hv, he)))->swap ();
         }
+
+      if (!should_invoke [htype])
+        return false;
     }
-  else if (!should_invoke [htype])
-    return false;
 
   dSP;
   va_list ap;
@@ -662,6 +668,10 @@
   export_const_iv (Button4Mask);
   export_const_iv (Button5Mask);
   export_const_iv (AnyModifier);
+
+  export_const_iv (EVENT_NONE);
+  export_const_iv (EVENT_READ);
+  export_const_iv (EVENT_WRITE);
 }
 
 SV *
@@ -717,6 +727,13 @@
         OUTPUT:
         RETVAL
 
+bool
+safe ()
+	CODE:
+        RETVAL = !rxvt_tainted ();
+        OUTPUT:
+        RETVAL
+
 NV
 NOW ()
 	CODE:
@@ -927,6 +944,29 @@
         OUTPUT:
         RETVAL
 
+char *
+rxvt_term::display_id ()
+	ALIAS:
+           display_id = 0
+           locale     = 1
+	CODE:
+        switch (ix)
+          {
+            case 0: RETVAL = THIS->display->id; break;
+            case 1: RETVAL = THIS->locale;      break;
+          }
+        OUTPUT:
+        RETVAL
+
+int
+rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
+	CODE:
+        RETVAL = THIS->pty_ev.events;
+        if (events != EVENT_UNDEF)
+          THIS->pty_ev.set (events);
+	OUTPUT:
+        RETVAL
+
 U32
 rxvt_term::parent ()
 	CODE:
@@ -1237,6 +1277,14 @@
         OUTPUT:
         RETVAL
 
+bool
+rxvt_term::parse_keysym (char *keysym, char *str)
+	CODE:
+        RETVAL = 0 < THIS->parse_keysym (keysym, str);
+        THIS->keyboard->register_done ();
+	OUTPUT:
+        RETVAL
+
 void
 rxvt_term::screen_cur (...)
 	PROTOTYPE: $;$$
@@ -1291,6 +1339,15 @@
 }
 
 void
+rxvt_term::scr_xor_rect (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle1 = RS_RVid, U32 rstyle2 = RS_RVid | RS_Uline)
+
+void
+rxvt_term::scr_xor_span (int beg_row, int beg_col, int end_row, int end_col, U32 rstyle = RS_RVid)
+
+void
+rxvt_term::scr_bell ()
+
+void
 rxvt_term::scr_add_lines (SV *string)
 	CODE:
 {