From 2479ef1d5dff7cc3e14906e39b016b994a2fdeb4 Mon Sep 17 00:00:00 2001
From: "wayo.cavazos" <wayo.cavazos@gmail.com>
Date: Sat, 25 Feb 2006 06:01:51 +0000
Subject: [PATCH] set-error-handler in x.factor

---
 contrib/x11/x.factor | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/contrib/x11/x.factor b/contrib/x11/x.factor
index 9e63f83281..1396cdd149 100644
--- a/contrib/x11/x.factor
+++ b/contrib/x11/x.factor
@@ -1,5 +1,6 @@
+USING: namespaces kernel compiler math arrays strings alien sequences
+xlib rectangle ;
 
-USING: namespaces kernel math arrays strings alien sequences xlib rectangle ;
 IN: x 
 
 SYMBOL: dpy
@@ -238,6 +239,16 @@ dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
 
 : events-queued ( mode -- n ) >r dpy get r> XEventsQueued ;
 
+! 11.8 - Handling Protocol Errors
+
+SYMBOL: error-handler-quot
+
+: error-handler-callback ( -- xt ) "void" { "Display*" "XErrorEvent*" }
+[ error-handler-quot get call ] alien-callback ; compiled
+
+: set-error-handler ( quot -- )
+error-handler-quot set error-handler-callback XSetErrorHandler drop ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 ! 12 - Input Device Functions
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!