2013-09-30 07:44:31 +00:00
|
|
|
Elm.Native.Window = {};
|
|
|
|
Elm.Native.Window.make = function(elm) {
|
2013-02-20 22:36:16 +00:00
|
|
|
|
2013-03-09 07:12:40 +00:00
|
|
|
elm.Native = elm.Native || {};
|
2013-09-30 08:32:27 +00:00
|
|
|
elm.Native.Window = elm.Native.Window || {};
|
|
|
|
if (elm.Native.Window.values) return elm.Native.Window.values;
|
2013-02-20 22:36:16 +00:00
|
|
|
|
2013-09-30 07:44:31 +00:00
|
|
|
var Signal = Elm.Signal.make(elm);
|
|
|
|
var Tuple2 = Elm.Native.Utils.make(elm).Tuple2;
|
2013-03-09 07:12:40 +00:00
|
|
|
|
2013-05-06 00:52:00 +00:00
|
|
|
function getWidth() { return elm.node.clientWidth; }
|
|
|
|
function getHeight() {
|
2013-05-14 14:29:06 +00:00
|
|
|
if (elm.display === ElmRuntime.Display.FULLSCREEN) {
|
|
|
|
return window.innerHeight;
|
|
|
|
}
|
|
|
|
return elm.node.clientHeight;
|
2013-05-06 00:52:00 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
var dimensions = Signal.constant(Tuple2(getWidth(), getHeight()));
|
2013-02-20 22:36:16 +00:00
|
|
|
dimensions.defaultNumberOfKids = 2;
|
|
|
|
|
2013-03-10 03:02:07 +00:00
|
|
|
// Do not move width and height into Elm. By setting the default number of kids,
|
|
|
|
// the resize listener can be detached.
|
2013-05-11 20:42:45 +00:00
|
|
|
var width = A2(Signal.lift, function(p){return p._0;}, dimensions);
|
2013-02-20 22:36:16 +00:00
|
|
|
width.defaultNumberOfKids = 0;
|
|
|
|
|
2013-05-11 20:42:45 +00:00
|
|
|
var height = A2(Signal.lift, function(p){return p._1;}, dimensions);
|
2013-02-20 22:36:16 +00:00
|
|
|
height.defaultNumberOfKids = 0;
|
|
|
|
|
2013-05-14 14:29:06 +00:00
|
|
|
function resizeIfNeeded() {
|
2013-11-18 16:22:36 +00:00
|
|
|
// Do not trigger event if the dimensions have not changed.
|
|
|
|
// This should be most of the time.
|
2013-05-06 00:52:00 +00:00
|
|
|
var w = getWidth();
|
|
|
|
var h = getHeight();
|
2013-04-08 00:57:57 +00:00
|
|
|
if (dimensions.value._0 === w && dimensions.value._1 === h) return;
|
2013-11-18 16:22:36 +00:00
|
|
|
|
|
|
|
setTimeout(function () {
|
|
|
|
// Check again to see if the dimensions have changed.
|
|
|
|
// It is conceivable that the dimensions have changed
|
|
|
|
// again while some other event was being processed.
|
|
|
|
var w = getWidth();
|
|
|
|
var h = getHeight();
|
|
|
|
if (dimensions.value._0 === w && dimensions.value._1 === h) return;
|
|
|
|
elm.notify(dimensions.id, Tuple2(w,h));
|
|
|
|
}, 0);
|
2013-03-09 07:12:40 +00:00
|
|
|
}
|
2013-06-03 06:46:02 +00:00
|
|
|
elm.addListener([dimensions.id], window, 'resize', resizeIfNeeded);
|
2013-03-09 07:12:40 +00:00
|
|
|
|
2013-09-30 08:32:27 +00:00
|
|
|
return elm.Native.Window.values = {
|
2013-03-09 07:12:40 +00:00
|
|
|
dimensions:dimensions,
|
|
|
|
width:width,
|
2013-05-14 14:29:06 +00:00
|
|
|
height:height,
|
|
|
|
resizeIfNeeded:resizeIfNeeded
|
2013-03-09 07:12:40 +00:00
|
|
|
};
|
|
|
|
|
|
|
|
};
|