From df36600f7f4b9288bad30366bb9cf0e9f2690097 Mon Sep 17 00:00:00 2001 From: Andreas Schacker Date: Thu, 21 Apr 2016 20:26:04 +0200 Subject: [PATCH] Add `innerWidth` and `innerHeight` for `Window` --- src/DOM/HTML/Window.js | 12 ++++++++++++ src/DOM/HTML/Window.purs | 4 ++++ 2 files changed, 16 insertions(+) diff --git a/src/DOM/HTML/Window.js b/src/DOM/HTML/Window.js index 6b2a924..7d401dd 100644 --- a/src/DOM/HTML/Window.js +++ b/src/DOM/HTML/Window.js @@ -20,3 +20,15 @@ exports.location = function (window) { return window.location; }; }; + +exports.innerWidth = function (window) { + return function () { + return window.innerWidth; + }; +}; + +exports.innerHeight = function (window) { + return function () { + return window.innerHeight; + }; +}; diff --git a/src/DOM/HTML/Window.purs b/src/DOM/HTML/Window.purs index fbf67b3..f543d35 100644 --- a/src/DOM/HTML/Window.purs +++ b/src/DOM/HTML/Window.purs @@ -10,3 +10,7 @@ foreign import document :: forall eff. Window -> Eff (dom :: DOM | eff) HTMLDocu foreign import navigator :: forall eff. Window -> Eff (dom :: DOM | eff) Navigator foreign import location :: forall eff. Window -> Eff (dom :: DOM | eff) Location + +foreign import innerWidth :: forall eff. Window -> Eff (dom :: DOM | eff) Int + +foreign import innerHeight :: forall eff. Window -> Eff (dom :: DOM | eff) Int