From: malc <av1474@comtv.ru>
Date: Sat, 16 Feb 2013 20:15:16 +0000 (+0400)
Subject: Proper handling of WM initiated full screen switch
X-Git-Tag: v14~25
X-Git-Url: https://repo.or.cz/w/llpp.git/commitdiff_plain/633dfcee76cfcc52fc273932cece1b40c8bb08e7

Proper handling of WM initiated full screen switch
---

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)