@@ -1,14 +1,17 @@
2module Window where
2module Window where
4−import Native.Window as W
4+import Native.Window as Native
6-- The current dimensions of the window (i.e. the area viewable to the
6-- The current dimensions of the window (i.e. the area viewable to the
7-- user, not including scroll bars).
7-- user, not including scroll bars).
8dimensions : Signal (Int,Int)
8dimensions : Signal (Int,Int)
9+dimensions = Native.dimensions
10-- The current width of the window.
11-- The current width of the window.
11width : Signal Int
12width : Signal Int
13-- The current height of the window.
15-- The current height of the window.
14height : Signal Int
16height : Signal Int
17+height = Native.height