Added widget layout functions
This commit is contained in:
parent
55d15b73ca
commit
222ba3fe0b
4 changed files with 56 additions and 23 deletions
|
@ -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 []
|
||||
|
|
Reference in a new issue