From 633dfcee76cfcc52fc273932cece1b40c8bb08e7 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sun, 17 Feb 2013 00:15:16 +0400
Subject: [PATCH] Proper handling of WM initiated full screen switch

---
 wsi.ml | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/wsi.ml b/wsi.ml
index b4481d1..74ae6dc 100644
--- a/wsi.ml
+++ b/wsi.ml
@@ -608,11 +608,18 @@ let readresp sock =
               let rec loop wsl i = if i = nitems then wsl else
                   let atom = r32 s (i*4) in
                   let wsl =
-                    if atom = state.maxhatom then (MaxHorz::wsl)
+                    if atom = state.maxhatom
+                    then MaxHorz::wsl
                     else (
-                      if atom = state.maxvatom then (MaxVert::wsl)
+                      if atom = state.maxvatom
+                      then MaxVert::wsl
                       else (
-                        if atom = state.fulsatom then (Fullscreen::wsl) else wsl
+                        if atom = state.fulsatom
+                        then (
+                          state.fs <- Fs (state.x, state.y, state.w, state.h);
+                          Fullscreen::wsl
+                        )
+                        else wsl
                       )
                     )
                   in loop wsl (i+1)
-- 
2.11.4.GIT