diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-10-10 23:22:59 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-10-10 23:22:59 +0200 |
| commit | 33cd402ae968587d256e11004dac9ed52d1c3cc5 (patch) | |
| tree | 4b86bc3d0696d8cfe63a446c86ddde87841d91d2 /src/SystrayHelper.hs | |
| parent | 456f9fb6e6d743702fcca79f4d23e1e5f40c530d (diff) | |
| download | phi-33cd402ae968587d256e11004dac9ed52d1c3cc5.tar phi-33cd402ae968587d256e11004dac9ed52d1c3cc5.zip | |
Use XCB backend
Diffstat (limited to 'src/SystrayHelper.hs')
| -rw-r--r-- | src/SystrayHelper.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/SystrayHelper.hs b/src/SystrayHelper.hs index fb9adcf..02d97df 100644 --- a/src/SystrayHelper.hs +++ b/src/SystrayHelper.hs @@ -3,9 +3,8 @@ import Control.Monad import Data.Maybe import Graphics.XHB -import Graphics.XHB.Connection +import Graphics.XHB.Connection.XCB import Graphics.XHB.Gen.Xproto -import qualified Graphics.XHB.Connection.Open as CO import System.Exit @@ -31,8 +30,7 @@ main = do conn <- liftM fromJust connect atoms <- initAtoms conn - let dispname = displayInfo conn - screen = (roots_Setup . connectionSetup $ conn) !! CO.screen dispname + let screen = (roots_Setup . connectionSetup $ conn) !! connectionScreen conn xembedWindow <- initSystray conn atoms screen |