From e4314c03faa77d71ad69ec37b83e2634e1a2a9c9 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 14 Jul 2011 06:16:04 +0200
Subject: Some more restructuring, WIP

---
 src/Phi.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Phi.hs b/src/Phi.hs
index cea4ecf..43ceebc 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -1,3 +1,4 @@
+import Phi.Phi
 import Phi.Types
 import Phi.Widget
 import Phi.Panel
@@ -8,7 +9,8 @@ import Data.Monoid
 
 main :: IO ()
 main = do
-  initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
+  phi <- initPhi
+  initPhiX phi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelSize = 48 }
     [border border1 [border border3 [], border border3 []], border border2 []]
     where
       border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2
-- 
cgit v1.2.3