18 lines
495 B
Text
18 lines
495 B
Text
|
{-# 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
|