neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restructured widget state

Browse source
This commit is contained in:
Matthias Schiffer 2011-07-14 00:09:20 +02:00
parent 90c25a997b
commit 55d15b73ca
7 changed files with 126 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Phi.hs
View file

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