From a77d276fc18a6ae0d6b071f84225f697bde4c619 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=B6ller?= <nisse@lysator.liu.se>
Date: Mon, 12 Jan 1998 02:54:20 +0100
Subject: [PATCH] * Types.pmod (Window->ClearArea): New function.

Rev: lib/modules/Protocols.pmod/X.pmod/Types.pmod:1.14
---
 lib/modules/Protocols.pmod/X.pmod/Types.pmod | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/lib/modules/Protocols.pmod/X.pmod/Types.pmod b/lib/modules/Protocols.pmod/X.pmod/Types.pmod
index ee9e08ff53..9bdb4cdb14 100644
--- a/lib/modules/Protocols.pmod/X.pmod/Types.pmod
+++ b/lib/modules/Protocols.pmod/X.pmod/Types.pmod
@@ -615,6 +615,24 @@ class Window
       m->type = display->lookup_atom(m->type);
     return m;
   }
+
+  object ClearArea_req(int x, int y, int width, int height, int exposures)
+  {
+    object req = Requests.ClearArea();
+    req->window = id;
+    req->exposures = exposures;
+    req->x = x;
+    req->y = y;
+    req->width = width;
+    req->height = height;
+
+    return req;
+  }
+
+  void ClearArea(int x, int y, int width, int height, int|void exposures)
+  {
+    display->send_request(ClearArea_req(x, y, width, height, exposures));
+  }
   
   // Shape extension
   void ShapeRectangles( string kind, int xo, int yo, string operation,
-- 
GitLab