From 8ea800dd0f798f40e8e81b8a266e6d5690d0cb49 Mon Sep 17 00:00:00 2001
From: daniel <daniel@wagner-home.com>
Date: Wed, 21 Mar 2007 06:42:45 +0100
Subject: Allow dynamic width in tiling mode

darcs-hash:20070321054245-c98ca-fc10278adbcbfe61de0f7bb4d4e14c5befc565b2.gz
---
 XMonad.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad.hs')

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
-- 
cgit v1.2.3