From 7c0f602343e84823d370c8742716ce6b7a8b9850 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Thu, 14 Jul 2011 07:34:43 +0200 Subject: Handle X events asynchronously --- src/Phi.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Phi.hs b/src/Phi.hs index 43ceebc..9ca7f21 100644 --- a/src/Phi.hs +++ b/src/Phi.hs @@ -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 -- cgit v1.2.3