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

data RawTVirtualPad

newtype TVirtualPad = TVirtualPad (Ptr RawTVirtualPad)
                        deriving (TVirtualPad -> TVirtualPad -> Bool
(TVirtualPad -> TVirtualPad -> Bool)
-> (TVirtualPad -> TVirtualPad -> Bool) -> Eq TVirtualPad
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TVirtualPad -> TVirtualPad -> Bool
== :: TVirtualPad -> TVirtualPad -> Bool
$c/= :: TVirtualPad -> TVirtualPad -> Bool
/= :: TVirtualPad -> TVirtualPad -> Bool
Eq, Eq TVirtualPad
Eq TVirtualPad
-> (TVirtualPad -> TVirtualPad -> Ordering)
-> (TVirtualPad -> TVirtualPad -> Bool)
-> (TVirtualPad -> TVirtualPad -> Bool)
-> (TVirtualPad -> TVirtualPad -> Bool)
-> (TVirtualPad -> TVirtualPad -> Bool)
-> (TVirtualPad -> TVirtualPad -> TVirtualPad)
-> (TVirtualPad -> TVirtualPad -> TVirtualPad)
-> Ord TVirtualPad
TVirtualPad -> TVirtualPad -> Bool
TVirtualPad -> TVirtualPad -> Ordering
TVirtualPad -> TVirtualPad -> TVirtualPad
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: TVirtualPad -> TVirtualPad -> Ordering
compare :: TVirtualPad -> TVirtualPad -> Ordering
$c< :: TVirtualPad -> TVirtualPad -> Bool
< :: TVirtualPad -> TVirtualPad -> Bool
$c<= :: TVirtualPad -> TVirtualPad -> Bool
<= :: TVirtualPad -> TVirtualPad -> Bool
$c> :: TVirtualPad -> TVirtualPad -> Bool
> :: TVirtualPad -> TVirtualPad -> Bool
$c>= :: TVirtualPad -> TVirtualPad -> Bool
>= :: TVirtualPad -> TVirtualPad -> Bool
$cmax :: TVirtualPad -> TVirtualPad -> TVirtualPad
max :: TVirtualPad -> TVirtualPad -> TVirtualPad
$cmin :: TVirtualPad -> TVirtualPad -> TVirtualPad
min :: TVirtualPad -> TVirtualPad -> TVirtualPad
Ord, Int -> TVirtualPad -> ShowS
[TVirtualPad] -> ShowS
TVirtualPad -> String
(Int -> TVirtualPad -> ShowS)
-> (TVirtualPad -> String)
-> ([TVirtualPad] -> ShowS)
-> Show TVirtualPad
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TVirtualPad -> ShowS
showsPrec :: Int -> TVirtualPad -> ShowS
$cshow :: TVirtualPad -> String
show :: TVirtualPad -> String
$cshowList :: [TVirtualPad] -> ShowS
showList :: [TVirtualPad] -> ShowS
Show)

instance () => FPtr (TVirtualPad) where
        type Raw TVirtualPad = RawTVirtualPad
        get_fptr :: TVirtualPad -> Ptr (Raw TVirtualPad)
get_fptr (TVirtualPad Ptr RawTVirtualPad
ptr) = Ptr (Raw TVirtualPad)
Ptr RawTVirtualPad
ptr
        cast_fptr_to_obj :: Ptr (Raw TVirtualPad) -> TVirtualPad
cast_fptr_to_obj = Ptr (Raw TVirtualPad) -> TVirtualPad
Ptr RawTVirtualPad -> TVirtualPad
TVirtualPad