diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-12 14:41:25 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-12 14:41:25 +0200 |
| commit | 6de4eb5792d88a70eaf9cc19784371a9a0eaba43 (patch) | |
| tree | 9ab92e2c3e29b16131a237be932a5338b292d97e /lib/Phi/Panel.hs | |
| parent | c918dde366a02ed4de26ea0c5e07a153d8f902bb (diff) | |
| download | phi-6de4eb5792d88a70eaf9cc19784371a9a0eaba43.tar phi-6de4eb5792d88a70eaf9cc19784371a9a0eaba43.zip | |
Simplify struts generation
Diffstat (limited to 'lib/Phi/Panel.hs')
| -rw-r--r-- | lib/Phi/Panel.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Phi/Panel.hs b/lib/Phi/Panel.hs index 23b022f..42f4f98 100644 --- a/lib/Phi/Panel.hs +++ b/lib/Phi/Panel.hs @@ -1,6 +1,7 @@ {-# LANGUAGE ExistentialQuantification #-} -module Phi.Panel ( Panel(..) +module Phi.Panel ( Position(..) + , Panel(..) , PanelClass(..) , (<~>) , separator @@ -8,6 +9,8 @@ module Phi.Panel ( Panel(..) import Data.Function +data Position = Top | Bottom + class PanelClass a where minSize :: a -> Int |