neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add native error handler for systray

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-19 14:50:04 +02:00
parent bc9f8e1fbc
commit 227cf56f44
6 changed files with 73 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/Phi/Bindings/SystrayErrorHandler.hsc Normal file
View file

@ -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