diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 01:47:10 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-14 01:47:10 +0200 |
| commit | 222ba3fe0be82341d6cf31de2f9d3387869f1b1a (patch) | |
| tree | 8b28648ef8c1aa4d2b832905139daf325efc44b4 /lib/Phi/Border.hs | |
| parent | 55d15b73caa4b8d74cf7d678842da69302e600d9 (diff) | |
| download | phi-222ba3fe0be82341d6cf31de2f9d3387869f1b1a.tar phi-222ba3fe0be82341d6cf31de2f9d3387869f1b1a.zip | |
Added widget layout functions
Diffstat (limited to 'lib/Phi/Border.hs')
| -rw-r--r-- | lib/Phi/Border.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Phi/Border.hs b/lib/Phi/Border.hs index a110f2d..0e7fbdc 100644 --- a/lib/Phi/Border.hs +++ b/lib/Phi/Border.hs @@ -15,7 +15,7 @@ data BorderWidth = BorderWidth { borderTop :: !Int , borderRight :: !Int , borderBottom :: !Int , borderLeft :: !Int - } + } deriving Show simpleBorderWidth :: Int -> BorderWidth simpleBorderWidth w = BorderWidth w w w w @@ -34,7 +34,7 @@ data Border = Border { margin :: !BorderWidth , cornerRadius :: !Double , borderWeight :: !Float , content :: ![Widget] - } + } deriving Show instance WidgetClass Border where type WidgetData Border = () |