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

Use XCB backend

Browse source
This commit is contained in:
Matthias Schiffer 2011-10-10 23:22:59 +02:00
parent 456f9fb6e6
commit 33cd402ae9
10 changed files with 80 additions and 131 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/Phi/Widgets/X11/Taskbar.hs
View file

@ -40,7 +40,6 @@ import Graphics.Rendering.Pango.Layout
import Graphics.Rendering.Pango.Font
import Graphics.XHB
import Graphics.XHB.Connection
import Graphics.XHB.Gen.Xproto
import Codec.Binary.UTF8.String
@ -625,7 +624,7 @@ getWindowGeometry x11 window =
fi :: (Integral a, Num b) => a -> b
fi = fromIntegral
showWindow :: ConnectionClass c r => c -> Atoms -> WINDOW -> IO Bool
showWindow :: ConnectionClass c => c -> Atoms -> WINDOW -> IO Bool
showWindow conn atoms window = do
states <- liftM (map (fromXid . toXid) . fromMaybe []) $ getProperty32 conn window (atom_NET_WM_STATE atoms)
transientFor <- liftM (map fromIntegral . fromMaybe []) $ getProperty32 conn window (atomWM_TRANSIENT_FOR atoms)