Allow dynamic width in tiling mode

darcs-hash:20070321054245-c98ca-fc10278adbcbfe61de0f7bb4d4e14c5befc565b2.gz

1 files changed, 2 insertions, 0 deletions

diff --git a/XMonad.hs b/XMonad.hs
index f18460c..ee23739 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -44,6 +44,8 @@ data XState = XState
     , dimensions    :: {-# UNPACK #-} !(Int,Int)
     , workspace     :: {-# UNPACK #-} !WorkSpace      -- ^ workspace list
     , layout        :: {-# UNPACK #-} !Layout
+    -- how much of the screen the main window should take
+    , leftWidth     :: {-# UNPACK #-} !Rational
     }
 
 type WorkSpace = StackSet Window