diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 00:09:20 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 00:09:20 +0200 |
commit | 55d15b73caa4b8d74cf7d678842da69302e600d9 (patch) | |
tree | f24500cc8ffb6a1c1ad3bff774d741081069d082 /src | |
parent | 90c25a997bf951ea4b5c13cb95ef0dbb8105777e (diff) | |
download | phi-55d15b73caa4b8d74cf7d678842da69302e600d9.tar phi-55d15b73caa4b8d74cf7d678842da69302e600d9.zip |
Restructured widget state
Diffstat (limited to 'src')
-rw-r--r-- | src/Phi.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1,3 +1,4 @@ +import Phi.Types import Phi.Panel import Phi.Border import Phi.X11 @@ -6,5 +7,5 @@ import Data.Monoid main :: IO () main = do - initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelContent = border (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 1 mempty } - --initPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom, panelContent = border (simpleBorderWidth 0) 0 (simpleBorderWidth 2) (1, 1, 1, 1) (0.75, 0.75, 0.75, 1) 0 1 mempty } + 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 []] |