From 222ba3fe0be82341d6cf31de2f9d3387869f1b1a Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 14 Jul 2011 01:47:10 +0200
Subject: Added widget layout functions

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

(limited to 'src')

diff --git a/src/Phi.hs b/src/Phi.hs
index 73beba8..2128d38 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -1,4 +1,5 @@
 import Phi.Types
+import Phi.Widget
 import Phi.Panel
 import Phi.Border
 import Phi.X11
@@ -8,4 +9,7 @@ import Data.Monoid
 main :: IO ()
 main = do
   initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom}
-    [border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 1 []]
+    [border1, border2]
+    where
+      border1 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2 []
+      border2 = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1 []
-- 
cgit v1.2.3