module Data.DOM.Rect
       (get'top, getm'top, get'right, getm'right, get'bottom, getm'bottom,
        get'left, getm'left)
       where
import Data.DOM.Css
import Control.Monad
import BrownPLT.JavaScript
import Data.DOM.WBTypes
import Data.DOM.Views
import Data.DOM.Stylesheets
import Data.DOM.Dom
import Data.DOM.Document (createElement)
 
get'top ::
        (Monad mn, CRect this, CCSSPrimitiveValue zz) =>
          Expression this -> mn (Expression zz)
get'top thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "top")
       return r
 
getm'top ::
         (Monad mn, CRect this) =>
           Expression this -> mn (Expression TCSSPrimitiveValue)
getm'top = get'top
 
get'right ::
          (Monad mn, CRect this, CCSSPrimitiveValue zz) =>
            Expression this -> mn (Expression zz)
get'right thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "right")
       return r
 
getm'right ::
           (Monad mn, CRect this) =>
             Expression this -> mn (Expression TCSSPrimitiveValue)
getm'right = get'right
 
get'bottom ::
           (Monad mn, CRect this, CCSSPrimitiveValue zz) =>
             Expression this -> mn (Expression zz)
get'bottom thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "bottom")
       return r
 
getm'bottom ::
            (Monad mn, CRect this) =>
              Expression this -> mn (Expression TCSSPrimitiveValue)
getm'bottom = get'bottom
 
get'left ::
         (Monad mn, CRect this, CCSSPrimitiveValue zz) =>
           Expression this -> mn (Expression zz)
get'left thisp
  = do let et = undefined :: zz
       let r = DotRef et (thisp /\ et) (Id et "left")
       return r
 
getm'left ::
          (Monad mn, CRect this) =>
            Expression this -> mn (Expression TCSSPrimitiveValue)
getm'left = get'left