From 4e987026148fe65c323afbc93cd560c07bf06b3f Mon Sep 17 00:00:00 2001
From: Yale AI Dept <ai@nebula.cs.yale.edu>
Date: Wed, 14 Jul 1993 13:08:00 -0500
Subject: Import to github.

---
 progs/demo/X11/mdraw/t.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 progs/demo/X11/mdraw/t.hs

(limited to 'progs/demo/X11/mdraw/t.hs')

diff --git a/progs/demo/X11/mdraw/t.hs b/progs/demo/X11/mdraw/t.hs
new file mode 100644
index 0000000..77f2baf
--- /dev/null
+++ b/progs/demo/X11/mdraw/t.hs
@@ -0,0 +1,16 @@
+module Test where
+import Xlib
+
+xGetEventMul :: XMArray XDisplay -> IO (Int, XEvent)
+xGetEventMul displays =
+  let n_displays = xMArrayLength displays
+      loop :: Int -> IO (Int, XEvent)
+      loop i = if i == n_displays then loop 0
+               else xMArrayLookup displays i `thenIO` \ display ->
+                    xDisplayForceOutput display `thenIO` \ _ ->
+                    xEventListen display `thenIO` \ n_events ->
+                    if n_events == 0 then loop (i + 1)
+                    else xGetEvent display `thenIO` \ event ->
+                         returnIO (i, event)
+  in loop 0
+
-- 
cgit v1.2.3