{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances, EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-} module HROOT.Graf.TCanvas.RawType where import Foreign.Ptr import FFICXX.Runtime.Cast data RawTCanvas newtype TCanvas = TCanvas (Ptr RawTCanvas) deriving (TCanvas -> TCanvas -> Bool (TCanvas -> TCanvas -> Bool) -> (TCanvas -> TCanvas -> Bool) -> Eq TCanvas forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: TCanvas -> TCanvas -> Bool == :: TCanvas -> TCanvas -> Bool $c/= :: TCanvas -> TCanvas -> Bool /= :: TCanvas -> TCanvas -> Bool Eq, Eq TCanvas Eq TCanvas -> (TCanvas -> TCanvas -> Ordering) -> (TCanvas -> TCanvas -> Bool) -> (TCanvas -> TCanvas -> Bool) -> (TCanvas -> TCanvas -> Bool) -> (TCanvas -> TCanvas -> Bool) -> (TCanvas -> TCanvas -> TCanvas) -> (TCanvas -> TCanvas -> TCanvas) -> Ord TCanvas TCanvas -> TCanvas -> Bool TCanvas -> TCanvas -> Ordering TCanvas -> TCanvas -> TCanvas 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 :: TCanvas -> TCanvas -> Ordering compare :: TCanvas -> TCanvas -> Ordering $c< :: TCanvas -> TCanvas -> Bool < :: TCanvas -> TCanvas -> Bool $c<= :: TCanvas -> TCanvas -> Bool <= :: TCanvas -> TCanvas -> Bool $c> :: TCanvas -> TCanvas -> Bool > :: TCanvas -> TCanvas -> Bool $c>= :: TCanvas -> TCanvas -> Bool >= :: TCanvas -> TCanvas -> Bool $cmax :: TCanvas -> TCanvas -> TCanvas max :: TCanvas -> TCanvas -> TCanvas $cmin :: TCanvas -> TCanvas -> TCanvas min :: TCanvas -> TCanvas -> TCanvas Ord, Int -> TCanvas -> ShowS [TCanvas] -> ShowS TCanvas -> String (Int -> TCanvas -> ShowS) -> (TCanvas -> String) -> ([TCanvas] -> ShowS) -> Show TCanvas forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> TCanvas -> ShowS showsPrec :: Int -> TCanvas -> ShowS $cshow :: TCanvas -> String show :: TCanvas -> String $cshowList :: [TCanvas] -> ShowS showList :: [TCanvas] -> ShowS Show) instance () => FPtr (TCanvas) where type Raw TCanvas = RawTCanvas get_fptr :: TCanvas -> Ptr (Raw TCanvas) get_fptr (TCanvas Ptr RawTCanvas ptr) = Ptr (Raw TCanvas) Ptr RawTCanvas ptr cast_fptr_to_obj :: Ptr (Raw TCanvas) -> TCanvas cast_fptr_to_obj = Ptr (Raw TCanvas) -> TCanvas Ptr RawTCanvas -> TCanvas TCanvas