{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Core.Rectangle_t.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawRectangle_t

newtype Rectangle_t = Rectangle_t (Ptr RawRectangle_t)
                        deriving (Eq, Ord, Show)

instance () => FPtr (Rectangle_t) where
        type Raw Rectangle_t = RawRectangle_t
        get_fptr (Rectangle_t ptr) = ptr
        cast_fptr_to_obj = Rectangle_t