set-error-handler in x.factor

diff --git a/contrib/x11/x.factor b/contrib/x11/x.factor
index 9e63f8328120cb07f482875d004f3eca78c7baf7..1396cdd1494c74cf788e661378a3114354dfd917 100644 (file)
--- 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
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!