From 227cf56f443d1ce45fce2e13a4daf442a29bc862 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Tue, 19 Jul 2011 14:50:04 +0200
Subject: Add native error handler for systray

---
 lib/Phi/Bindings/SystrayErrorHandler.hsc | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 lib/Phi/Bindings/SystrayErrorHandler.hsc

(limited to 'lib/Phi/Bindings/SystrayErrorHandler.hsc')

diff --git a/lib/Phi/Bindings/SystrayErrorHandler.hsc b/lib/Phi/Bindings/SystrayErrorHandler.hsc
new file mode 100644
index 0000000..73fedbb
--- /dev/null
+++ b/lib/Phi/Bindings/SystrayErrorHandler.hsc
@@ -0,0 +1,17 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+module Phi.Bindings.SystrayErrorHandler ( setSystrayErrorHandler
+                                        , getLastErrorWindow
+                                        ) where
+
+#include <SystrayErrorHandler.h>
+
+
+import Graphics.X11.Xlib
+
+
+foreign import ccall unsafe "SystrayErrorHandler.h setSystrayErrorHandler"
+  setSystrayErrorHandler :: IO ()
+
+foreign import ccall unsafe "SystrayErrorHandler.h getLastErrorWindow"
+  getLastErrorWindow :: IO Window
-- 
cgit v1.2.3