-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: da454e9b97627d38970043488fa54d3bb0a4ba94:
path_to:
revision_to:

commit da454e9b97627d38970043488fa54d3bb0a4ba94
Author: Marc Lehmann <schmorp@schmorp.de>
Date:   Fri Jan 13 15:42:50 2006 +0000

    *** empty log message ***

diff --git a/src/command.C b/src/command.C

--- a/src/command.C
+++ b/src/command.C
@@ -1607,7 +1607,6 @@ rxvt_term::x_cb (XEvent &ev)
         break;

       case MotionNotify:
-        printf ("motion notify\n");//D
 #ifdef POINTER_BLANK
         if (hidden_pointer)
           pointer_unblank ();
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -52,6 +52,8 @@
 #undef ROW
 #define ROW(n) THIS->row_buf [LINENO (n)]

+#define ENABLE_PERL_FRILLS 1
+
 /////////////////////////////////////////////////////////////////////////////

 static SV *
@@ -893,6 +895,85 @@ _new (...)
 void
 rxvt_term::destroy ()

+#if ENABLE_PERL_FRILLS
+
+void
+rxvt_term::XListProperties (U32 window)
+	PPCODE:
+{
+	int count;
+	Atom *props = XListProperties (THIS->display->display, (Window)window, &count);
+
+        EXTEND (SP, count);
+        while (count--)
+          PUSHs (newSVuv ((U32)props [count]));
+
+        XFree (props);
+}
+
+void
+rxvt_term::XGetWindowProperty (U32 window, U32 property)
+	PPCODE:
+{
+        Atom type;
+        int format;
+        unsigned long nitems;
+        unsigned long bytes_after;
+        unsigned char *prop;
+	XGetWindowProperty (THIS->display->display, (Window)window, (Atom)property,
+                            0, 1<<30, 0, AnyPropertyType,
+                            &type, &format, &nitems, &bytes_after, &prop);
+        if (type != None)
+          {
+            EXTEND (SP, 3);
+            PUSHs (newSVuv ((U32)type));
+            PUSHs (newSViv (format));
+            PUSHs (newSVpvn ((char *)prop, nitems * format / 8));
+            XFree (prop);
+          }
+}
+
+void
+rxvt_term::XChangeWindowProperty (U32 window, U32 property, U32 type, int format, SV *data)
+	CODE:
+{
+	STRLEN len;
+        char *data_ = SvPVbyte (data, len);
+
+	XChangeProperty (THIS->display->display, (Window)window, (Atom)property,
+                         type, format, PropModeReplace,
+                         (unsigned char *)data, len * 8 / format);
+}
+
+void
+rxvt_term::XDeleteProperty (U32 window, U32 property)
+	CODE:
+        XDeleteProperty (THIS->display->display, (Window)window, (Atom)property);
+
+U32
+rxvt_term::DefaultRootWindow ()
+	CODE:
+        RETVAL = (U32)THIS->display->root;
+        OUTPUT:
+        RETVAL
+
+U32
+rxvt_term::XCreateSimpleWindow (U32 parent, int x, int y, unsigned int width, unsigned int height)
+	CODE:
+        RETVAL = XCreateSimpleWindow (THIS->display->display, (Window)parent,
+                                      x, y, width, height, 0,
+                                      THIS->pix_colors_focused[Color_border],
+                                      THIS->pix_colors_focused[Color_border]);
+	OUTPUT:
+        RETVAL
+
+void
+rxvt_term::XReparentWindow (U32 window, U32 parent, int x = 0, int y = 0)
+	CODE:
+        XReparentWindow (THIS->display->display, window, parent, x, y);
+
+#endif
+
 void
 rxvt_term::set_should_invoke (int htype, int inc)
 	CODE:

-- Response ended

-- Page fetched on Sun Jun 2 09:18:49 2024