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

Handle X events asynchronously

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-14 07:34:43 +02:00
parent e4314c03fa
commit 7c0f602343
4 changed files with 83 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Phi.hs
View file

@ -10,8 +10,9 @@ import Data.Monoid
main :: IO ()
main = do
phi <- initPhi
initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelSize = 48 }
initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
[border border1 [border border3 [], border border3 []], border border2 []]
runPhi phi
where
border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2
border2 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1