17 lines
495 B
Haskell
17 lines
495 B
Haskell
{-# 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
|