Make Window work

This commit is contained in:
Evan Czaplicki 2013-07-26 17:36:01 +02:00
parent 2a5bee06fc
commit 7d00618169

View file

@ -1,14 +1,17 @@
module Window where
import Native.Window as W
import Native.Window as Native
-- The current dimensions of the window (i.e. the area viewable to the
-- user, not including scroll bars).
dimensions : Signal (Int,Int)
dimensions = Native.dimensions
-- The current width of the window.
width : Signal Int
width = Native.width
-- The current height of the window.
height : Signal Int
height = Native.height