Added widget layout functions

This commit is contained in:
Matthias Schiffer 2011-07-14 01:47:10 +02:00
parent 55d15b73ca
commit 222ba3fe0b
4 changed files with 56 additions and 23 deletions

View file

@ -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 []